Nói chính xác là mình có copy đoạn code của 1 người trên diễn đàn,và mình có sữa chữa chút ít để ứng dụng thử vào dự toán bên mình làm( trước giờ mình toàn làm bằng thủ công). Bạn SA_DQ nói đó là ghép kỹ thuật thì mình không ý kiến vì thực chất mình chưa hiểu lắm về VBA. Nên mình muốn nhờ các bạn, anh, chị trên diễn đàn có kinh nghiệm giúp mình chỉnh sửa code sao cho khắc phục lỗi của mình

. Như mình đã nói thì sau khi nhập mã hiệu ở cột tiên lượng thì mã hiệu auto từ sheet MẪUCHUẨN nhưng nhưng cột P (số lượng thì ko nhảy theo ý mình, mà auto giống như sheet mẫu chuẩn đã mặc định.Mặc khác mình ko hiểu sao là sau khi nhập mã hiệu AB.11584 hay AB.11611 thì cột B ko nhảy theo 1 công việc mà nó nhảy 1 loạt công việc luôn. Mình mong các bạn, anh, chị giúp đỡ mình về vấn đề này với. Mình cảm ơn nhiều, cảm ơn GPE. Ah đoạn code nè.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Vung As Range, iHang As Long, iNhay As Long
On Error Resume Next
If Not Intersect(Target, [A10:A10000]) Is Nothing Then
If Target.Count = 1 Then
Set Vung = Sheets("MAUCHUAN").Range(Sheets("MAUCHUAN").[B10], Sheets("MAUCHUAN").[B10000].End(xlUp)).Offset(, -1)
iHang = Application.WorksheetFunction.Match(Target, Vung, 0)
iNhay = Vung(iHang).End(xlDown).Row - Vung(iHang).Row
Vung(iHang).Offset(, 1).Resize(iNhay, 17).Copy Target.Offset(, 1)
End If
End If
End Sub