Cập nhật số lượng theo mã hàng

[bebeen]

Em có ví dụ nhỏ này nhờ mọi người xem cho. Em đang bế tắc....Mong giúp đỡ em!

 

[viehoai]

Em có ví dụ nhỏ này nhờ mọi người xem cho. Em đang bế tắc....Mong giúp đỡ em!

Mình sử theo code của bạn để chạy được như sau:

Private Sub CommandButton1_Click()
    Dim vung1 As Range, vung2 As Range
    Dim cll As Range
    Set vung1 = S1.Range(S1.[A2], S1.[A65000].End(3))
    Set vung2 = vung1.Find(CapNhat.TextBox1.Value, , xlValues, xlWhole)
    If Not vung2 Is Nothing Then
        S1.Range("C" & vung2.Row).Value = Me.TextBox3.Value
        S1.Range("B" & vung2.Row).Value = Me.TextBox2.Value
    End If
    Set vung1 = Nothing
    Set vung2 = Nothing

End Sub