gán dữ liệu từ form xuống không tương ứng với cell xuống sheet (2 người xem)

[jthanhtung]

gởi anh chị GPE, tôi có vọc được đoạn code mà khi gán dữ liệu xuống sheet nó không tương ứng với hàng, nó chạy qua địa chỉ khác, nên nhờ anh chị kiểm tra và chỉ thêm tôi cảm ơn rất nhiều

Private Sub cmChuyen_Click()
Dim Rng As Range
Dim sF As Range
Dim Ws As Worksheet
Set Ws = Workbooks("LOCATION").Sheets("LIST")
Set Rng = Ws.Range("M5:M" & Ws.Range("M5000").End(3).Row)
With Rng
Set sF = .Find(Me.cbAddress.Text, , xlValues, xlWhole)
If Not sF Is Nothing Then
    .Cells(Me.cbAddress.ListIndex + 1, -3).Value = Me.txtRemark
    .Cells(Me.cbAddress.ListIndex + 1, -4).Value = Me.txtIndate
    .Cells(Me.cbAddress.ListIndex + 1, -5).Value = Me.txtSet
    .Cells(Me.cbAddress.ListIndex + 1, -6).Value = Me.txtItem
End If
Set Ws = Nothing
Set Rng = Nothing
Set sF = Nothing
End With
End Sub

 

[hanhpptc]

Tốt nhất là bạn đưa file lên