Xin giúp: Tạo macro kiểm tra nhập trùng dữ liệu. (1 người xem)

[trananhtommy]

Chào các Bác.

E tạo 1 macro có sẵn trong máy để ghi dữ liệu cập nhật.

Nhưng sợ bấm GHI nhầm, macro ghi 2 lần dữ liệu. Vì vậy muốn bấm nhầm, máy sẽ kiểm soát để hỏi chắc chắn có muốn ghi hay không (vì có thể là nhầm nhưng cũng có thể phát sinh thu tiền 2 lần cho 1 mã, 1 người, 1 ngày và 1 số tiền).

E đã tạo công thức kiểm tra ở Ô F8 sheet "Cap nhat" (có file đính kèm).

Xin các Bác giúp để khi nhấn macro GHI thì nó sẽ kiểm tra Ô F8 nếu bằng 4 sẽ bật lên hội thoại báo nhập trùng và cho 2 lựa chọn. Vẫn muốn cập nhật bấm Yes sẽ cho chạy macro, bấm No sẽ bỏ thực thi macro.

Xin cảm ơn các Bác ạ.

 

[haonlh]

them IF sau
Sub ghi_vao_so()
If [f8] = 4 Then
Response = MsgBox("Bi trung. Enter de nhap, ESC de thoi", 1)
If Response = 2 Then End
End If
Sheets("Du lieu").Select
....
End Sub

 

[nhapmon]

gởi bạn thêm một cách làm

 

[sealand]

Đã dùng code thì nên bỏ hết cột E và F đi rồi chép code này vào và gán cho nút nhập Macro có tên UpdateDT

[GPECODE=vb]Sub UpdateDT()
Dim Tm As Variant
Tm = Sheet1.[C3:C7]
If Ktra(Tm) Then
Sheet2.[A65536].End(3).Offset(1).Resize(, 3) = WorksheetFunction.Transpose(Tm)
Sheet2.[A65536].End(3).Offset(, 3) = Tm(5, 1)
Sheet2.[A65536].End(3).Offset(, 4) = Tm(4, 1)
Else
MsgBox "Du lieu trung lap co dong y khong ?"
End If
End Sub
Function Ktra(MyDT As Variant) As Boolean
Dim Tm1 As Variant, i
With Sheet2
Tm1 = .Range(.[A2], .[A65536].End(3).Offset(, 4))
For i = 1 To UBound(Tm1, 1)
If Tm1(i, 1) = MyDT(1, 1) And Tm1(i, 2) = MyDT(2, 1) Then Exit Function
Next
End With
Ktra = True
End Function[/GPECODE]