chuyển dữ liệu hàng trong excel

[nadfuji]

Chào các bạn !
Tôi đang gặp phải vướng mắc về việc filter và chuyển dữ liệu trong excel sau khi nhấn vào command button.
Nói chung thì cũng hơi dài dòng . Nên tôi gởi cái file mẫu , nhờ các bạn hỗ trợ dùm
Cảm ơn các bạn nhé,

 

[Quang_Hải]

Bạn xem file coi xài được không

 

[nadfuji]

Chào anh ,
Đúng rồi , em đang cần đoạn code này mà suy nghĩ mãi không ra
Em cảm ơn anh nhiều nhé , chúc anh năm mới nhiều sức khoẻ và thành đạt nhé

 

[nadfuji]

Anh ơi !
Giúp dùm em chút xíu , em có phát hiện 1 lỗi ngoài ý muốn trong file này là :
"Trong file này mình có 24 hàng dữ liệu , đương nhiên là khi mình chọn vài dữ liệu trong số này và nhấn nút xác nhận ==> Dữ liệu có chạy qua sheet nhận ==> Đúng yêu cầu
Nhưng sau đó mình lại chọn tiếp vài dữ liệu còn xót lại trong sheet tổng và lại tiếp tục nhấn nút xác nhận thì dữ liệu cũng chạy qua sheet nhận , nhưng lại chồng lên dữ liệu trước đó .

Tóm lại là dữ liệu bị chồng chéo lên nhau , nhờ anh chỉ giúp dùm em nha .
Cảm ơn anh nhiều

 

[ptm0412]

Thay câu này:
.Resize(, 6).Offset(1).Copy Sh.[a3]

Bằng:
.Resize(, 6).Offset(1).Copy Sh.[a65000].End(xlUp).Offset(1, 0)