Nhờ sửa lại code coppy paste ActiveCell

[Bong0503]

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

 

[Ba Tê]

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

File đâu?
Trong trái ổi có cái gì?

 

[Bong0503]

File đâu?
Trong trái ổi có cái gì?

Dạ file đây Bác. Trong trái ổi có "hạt ổi" ah

 

[gttrongvn]

Bạn nói copy dữ liệu từ ô hiện hành, nhưng code lại là ô bên trái ô hiện hành,còn Target là gì? bạn nói cụ thể thao tác của bạn trên file đi.

 

[Bong0503]

Bạn nói copy dữ liệu từ ô hiện hành, nhưng code lại là ô bên trái ô hiện hành,còn Target là gì? bạn nói cụ thể thao tác của bạn trên file đi.

Như thế này, Khi mình nhập mới một biển số xe vào sheet DSX thì code sẽ coppy tự động coppy cái biển số xe đó rồi dán sang sheet DK_HUY_XE.
Trong file mình gửi code đã chạy nhưng trong file thực tế mình đang làm có lẽ do số lượng sheet nhiều nên nó quay mất mấy '. bạn coi điều chỉnh lại dùm mình nhé.
Trân trọng!

 

[Bong0503]

File đâu?
Trong trái ổi có cái gì?

Kính gửi bác Ba Tê
Em vừa test lại file của E nó lỗi tùm lum.
Rất mong bác viết code lại dùm em.
Yêu cầu là khi em nhập một biển số vào ô bất kỳ trong vùng C8:T558 thì code sẽ coppy cái biển số đó vàn dán vào ô cuối cùng của cột D bên sheet DK_HUY_XE và coppy tên căn hộ tương ứng.
E có thêm một yêu cầu nữa là khi em xóa biển số bất kỳ nào đó thì code sẽ tìm biển số đó bên sheet DK_HUY_XE và đánh dấu X vào cột Hủy.
Rất mong sự trợ dúp của bác.
Trân trọng cảm ơn Bác!

 

[gttrongvn]

Mình không biết cách nhập trực tiếp dữ liệu để tự động copy dữ liệu qua sheet khác như ý bạn được,nên xài tạm userform làm trung gian để nhập liệu cho 2 sheet kia.Bạn tham khảo code trong sheet "DSX" với userform nha, cách thao tác trên bảng tính như sau: bạn double click vào ô muốn nhập biển số xe, userform hiện ra, bạn nhập số, nhấn Enter, dữ liệu sẽ theo ý bạn

 

[Bong0503]

Cám ơn bạn, cái form thì ok rồi đấy, bạn có thể code thêm ý này dùm mình được không khi xóa biển số bất kỳ nào đó thì code sẽ tìm biển số đó bên sheet DK_HUY_XE và đánh dấu X vào cột Hủy .
Trân trọng!

 

[gttrongvn]

Bạn còn thêm ý nào nữa hok, nghĩ nốt rồi mình viết 1 lần luôn cho (trong khả năng có thể).

 

[Bong0503]

Bạn còn thêm ý nào nữa hok, nghĩ nốt rồi mình viết 1 lần luôn cho (trong khả năng có thể).

Cám ơn bạn.
Lúc trước mình chạy bằng code thì nó đáp ứng đc, bay giờ bằng form thì sau khi đã có biển số ở cột D sheet DK_Huy_Xe bạn sửa lại code để tự động cập nhật ngày hiện tại vào cột F và dấu X vào cột G nhé.
Chân thành cảm ơn bạn!

 

[gttrongvn]

Rồi nè bạn, bạn tham khảo nha.

 

[Bong0503]

Cám ơn bạn rất nhiều, liên quan đến cái form như vậy là ổn rồi.
Còn ý này khi xóa biển số bất kỳ thì code sẽ tìm biển số đó bên sheet DK_HUY_XE và đánh dấu X vào cột Hủy .
Bạn xem có hướng xử lý không?
Trân trọng!

 

[Bong0503]

Rồi nè bạn, bạn tham khảo nha.

Xin lỗi bạn nhé tại chưa coi kỹ file, để mình test lại nhé

 

[gttrongvn]

Đây bạn, đánh dấu X vào cột hủy, và sheet DSX sẽ xóa dữ liệu ô activecell

 

[Bong0503]

Rồi nè bạn, bạn tham khảo nha.

Quá Chuẩn luôn.
Một lần nữa cám ơn bạn nhé!

 

[Bong0503]

Đây bạn, đánh dấu X vào cột hủy, và sheet DSX sẽ xóa dữ liệu ô activecell

Còn một lỗi nhỏ nữa bạn ơi.
Nếu bên cột ĐK mới ( cột G) đã có dấu X thì khi minh xóa xe bên sheet DSX cột J bên sheet DK_HUY_XE không tự động thêm X dẫn đến kết quả chưa chưa được chính xác bạn ah.
Bạn coi fix lại dùm mình nhé.
Trân trọng!

 

[gttrongvn]

Ý bạn là cấp mới thì đánh x vào cột G, còn hủy biển số xe thì xóa x ở cột G, thêm x ở cột J ??

 

[Bong0503]

Ý bạn là cấp mới thì đánh x vào cột G, còn hủy biển số xe thì xóa x ở cột G, thêm x ở cột J ??

Không phải bạn ah! File lúc trước bạn làm chuẩn rồi, có lẽ tại mình mở nhiều file quá test bị lỗi, mình chỉ mở một file thì ok
Cám ơn bạn nhé!