Nhờ anh chị giúp em code trong file đính kèm. (1 người xem)

[VU_BAO]

trong file em co 2 sheet ( DL & FORM)
- sheet Dl chứa thông tin giá từng mã hàng của từng khách hàng.
- Sheet Form để xem giá hiện tại một mặt hàng của 1 khách hàng tương ứng.
Vấn đề là em muốn ghi lại giá mới cua mã hàng này bằng cách ghi vào cell giá mới và bấm nút cập nhật sẽ tự động đè lên giá củ của đúng mã hàng và khách hàng đang chọn. anh chị xem file đính kèm.

thanks.

 

[Quang_Hải]

trong file em co 2 sheet ( DL & FORM)
- sheet Dl chứa thông tin giá từng mã hàng của từng khách hàng.
- Sheet Form để xem giá hiện tại một mặt hàng của 1 khách hàng tương ứng.
Vấn đề là em muốn ghi lại giá mới cua mã hàng này bằng cách ghi vào cell giá mới và bấm nút cập nhật sẽ tự động đè lên giá củ của đúng mã hàng và khách hàng đang chọn. anh chị xem file đính kèm.

thanks.

Với dữ liệu trong file thì code tạm thế này

Sub thaygia()
Dim MH As Range, KH As Range
With Sheets("FORM")
   Set MH = Sheets("DL").[A5:A10000].Find(.[B6].Value, , , 1)
   If Not MH Is Nothing Then
      Set KH = Sheets("DL").[B4:Z4].Find(.[C3].Value, , , 1)
         If Not KH Is Nothing Then
            MH.Offset(, KH.Column - 1) = .[D6]
         End If
   End If
   .[D6].ClearContents
End With
End Sub

 

[VU_BAO]

thanks anh nhieu nha