Mình có đoạn code coppy dữ liệu từ ô hiện hành (ActiveCell) sau đó dán vào ô cuối cùng của cột được chỉ định bên sheet khác.
Và coppy ô đầu tiên của dòng có chứa (ActiveCell) dán vào ô đầu tiên của dòng cuối cùng có chứa dữ liệu
Code đã chạy nhưng có vẻ không được mượt cho lắm.
Mình nhờ các anh chị và các bạn trên diễn đàn sửa lại dùm nhé.
Chân thành cảm ơn.
----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long
Application.ScreenUpdating = False
If ActiveCell.Offset(-1, 0) <> "" Then
ActiveCell.Offset(-1, 0).Copy
With Sheets("DK_HUY_XE")
LastRow = .Cells(.Rows.Count, "b").End(xlUp).Row - 1
.[d1].Offset(LastRow).PasteSpecial xlPasteValues
End With
Cells(ActiveCell.End(xlUp).Row, 1).Copy
With Sheets("DK_HUY_XE")
.[d1].Offset(LastRow, -2).PasteSpecial xlPasteValues
End With
End If
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Và coppy ô đầu tiên của dòng có chứa (ActiveCell) dán vào ô đầu tiên của dòng cuối cùng có chứa dữ liệu
Code đã chạy nhưng có vẻ không được mượt cho lắm.
Mình nhờ các anh chị và các bạn trên diễn đàn sửa lại dùm nhé.
Chân thành cảm ơn.
----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long
Application.ScreenUpdating = False
If ActiveCell.Offset(-1, 0) <> "" Then
ActiveCell.Offset(-1, 0).Copy
With Sheets("DK_HUY_XE")
LastRow = .Cells(.Rows.Count, "b").End(xlUp).Row - 1
.[d1].Offset(LastRow).PasteSpecial xlPasteValues
End With
Cells(ActiveCell.End(xlUp).Row, 1).Copy
With Sheets("DK_HUY_XE")
.[d1].Offset(LastRow, -2).PasteSpecial xlPasteValues
End With
End If
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub