Code VBA cập nhật dữ liệu theo điều kiện

[NgoTuanwme]

Nhờ Anh Chị xem giúp em đoạn code VBA trong file đính kèm,

Code này e đang dùng để cập nhật dữ liệu khi trùng STT tại cột A, nhưng giờ em muốn mở rộng điều kiện thêm cột B và cột F.

Anh chị xem tư vấn code trong trường hợp này giúp em nha.

 

[snow25]

Nhờ Anh Chị xem giúp em đoạn code VBA trong file đính kèm,

Code này e đang dùng để cập nhật dữ liệu khi trùng STT tại cột A, nhưng giờ em muốn mở rộng điều kiện thêm cột B và cột F.

Anh chị xem tư vấn code trong trường hợp này giúp em nha.

Bạn thử code này.

Sub capnhapdulieu()
      Application.ScreenUpdating = False
    Dim arr, i As Long, lr As Long, dk As String, dks As String
    With Sheets("temp")
         arr = .Range("G1:R1").Value
         dk = arr(1, 1) & "#" & arr(1, 2) & "#" & arr(1, 6)
    End With
    With Sheets("PROJECT COMING")
         lr = .Range("A" & Rows.Count).End(xlUp).Row
         For i = 3 To lr
             dks = .Range("A" & i).Value & "#" & .Range("B" & i).Value & "#" & .Range("F" & i).Value
             If dk = dks Then
                .Range("a" & i).Resize(, UBound(arr, 2)).Value = arr
                GoTo xong
             End If
         Next i
              .Range("a" & i).Resize(, UBound(arr, 2)).Value = arr
xong:
     End With
              Application.ScreenUpdating = True
End Sub

 

[NgoTuanwme]

Code chạy đúng ý rồi ạ, cảm ơn anh rất nhiều.
Cho em xin hỏi ngoài lề chút xíu ạ, là trên UserForm textbox em định dạng là "dd/mm/yyyy" trên cột excel cũng vậy, hệ thống cũng vậy, nhưng khi em apply từ Userform xuống excel thì nó tự đổi thành "mm/dd/yyyy". cái này là do Userform hay format excel vậy anh?

 

[snow25]

Code chạy đúng ý rồi ạ, cảm ơn anh rất nhiều.
Cho em xin hỏi ngoài lề chút xíu ạ, là trên UserForm textbox em định dạng là "dd/mm/yyyy" trên cột excel cũng vậy, hệ thống cũng vậy, nhưng khi em apply từ Userform xuống excel thì nó tự đổi thành "mm/dd/yyyy". cái này là do Userform hay format excel vậy anh?

Nó định dạng theo excel bạn à.

 

[NgoTuanwme]

Nó định dạng theo excel bạn à.

Cảm ơn anh nhiều