Các bạn sửa code này cho mình với

[khamha]

Các bạn sửa code này cho mình với:
Mình muốn đổi tên sheet1 = SL và sheet2 = D10
cảm ơn các bạn thật nhiều.


code:
Private Sub Worksheet_Change(ByVal Target As Range)
Sheet2.[G:G].ClearContents
If Not Intersect(Target, [A8:AO65500]) Is Nothing Then Sheet1.Range("A8:AO65500" & Sheet1.[AO65500].End(xlUp).Row).Copy Sheet2.[A8:AO65500]
End Sub

 

[le tin]

Các bạn sửa code này cho mình với:
Mình muốn đổi tên sheet1 = SL và sheet2 = D10
cảm ơn các bạn thật nhiều.


code:
Private Sub Worksheet_Change(ByVal Target As Range)
Sheet2.[G:G].ClearContents
If Not Intersect(Target, [A8:AO65500]) Is Nothing Then Sheet1.Range("A8:AO65500" & Sheet1.[AO65500].End(xlUp).Row).Copy Sheet2.[A8:AO65500]
End Sub

Ý bạn là vầy phải không :
Sheet1 = Sheets("DL")
Sheet2 = Sheets("D10")

 

[SA_DQ]

Hình như trong dòng lệnh có dư

Nếu macro sự kiện này đang ở trang tính Sheet3, thì

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, [A8:AO65500]) Is Nothing Then _
      Sheet1.Range("A8:AO" & Sheet1.[AO65500].End(xlUp).Row).Copy Sheet2.[A8]
End Sub

Còn nếu nó thuộc trang tính Sheet1 hay Sheet2 thì có thể thu gọn lại chút đỉnh.

 

[khamha]

thành thật cảm ơn bạn le tin đã giải thích cho mình,hiện giờ mình có một Form nhập dữ liệu nhưng mà nó còn thiếu 02 nút là nút sửa phiếu

 

[khamha]

và nút phiếu mới.bạn cố gắng giúp mình nhé,một lần nữa cảm ơn bạn,và đợi hồi âm của bạn le tin.mình đang dùngđiện thoại để kết nối

 

[khamha]

mạng nên không gửi bản mẫu lên được,bạn làm ơn vào hồ sơ của mình để xem bảng mẫu,mình đang cần gấp lắm.