Copy-Paste dữ liệu tuần tự từ sheet 1 sang sheet 2 .

David882011 · 27/10/15

Mình muốn tìm 1 Marco thực hiện 2 nhiệm vụ sau :

1 : Copy những ô cố định chứa dữ liệu từ sheet 1 sang sheet 2 .
2 : Dữ liệu được Copy sẻ không đè lên nhau , nếu ô trước đã có dữ liệu thì sẻ tự động Copy vào cột trống phía sau .

Thanks All !!!

giaiphap · 27/10/15

David882011 đã viết:
Mình muốn tìm 1 Marco thực hiện 2 nhiệm vụ sau :

1 : Copy những ô cố định chứa dữ liệu từ sheet 1 sang sheet 2 .
2 : Dữ liệu được Copy sẻ không đè lên nhau , nếu ô trước đã có dữ liệu thì sẻ tự động Copy vào cột trống phía sau .

Thanks All !!!

Bạn sử dụng code sau đây:

Mã:

Sub Test()
Sheets("Dich vu").Range("A" & (WorksheetFunction.CountA(Sheets("Dich vu").Range("A2:A1000")) + 2)).Value = Sheets("Tinh tien").Range("A3").Value
Sheets("Dich vu").Range("B" & (WorksheetFunction.CountA(Sheets("Dich vu").Range("B2:B1000")) + 2)).Value = Sheets("Tinh tien").Range("D20").Value
Sheets("Dich vu").Range("C" & (WorksheetFunction.CountA(Sheets("Dich vu").Range("C2:C1000")) + 2)).Value = Sheets("Tinh tien").Range("E1").Value
Sheets("Dich vu").Range("D" & (WorksheetFunction.CountA(Sheets("Dich vu").Range("D2:D1000")) + 2)).Value = Sheets("Tinh tien").Range("F1").Value
End Sub

David882011 · 27/10/15

giaiphap đã viết:

Bạn sử dụng code sau đây:

Mã:

Sub Test()
Sheets("Dich vu").Range("A" & (WorksheetFunction.CountA(Sheets("Dich vu").Range("A2:A1000")) + 2)).Value = Sheets("Tinh tien").Range("A3").Value
Sheets("Dich vu").Range("B" & (WorksheetFunction.CountA(Sheets("Dich vu").Range("B2:B1000")) + 2)).Value = Sheets("Tinh tien").Range("D20").Value
Sheets("Dich vu").Range("C" & (WorksheetFunction.CountA(Sheets("Dich vu").Range("C2:C1000")) + 2)).Value = Sheets("Tinh tien").Range("E1").Value
Sheets("Dich vu").Range("D" & (WorksheetFunction.CountA(Sheets("Dich vu").Range("D2:D1000")) + 2)).Value = Sheets("Tinh tien").Range("F1").Value
End Sub

Thanks Bạn giaiphap !!! }}}}}

David882011 · 27/10/15

Bạn giaiphap cho mình hỏi thêm chút , nếu mình muốn thay đổi vị trí lưu thì sửa vào "A" và nếu tăng cột copy thì thêm vào "A2:A1000" thành "A2:A6000" . đúng ko bạn ?

Sheets("Dich vu").Range("A" & (WorksheetFunction.CountA(Sheets("Dich vu").Range("A2:A1000")) + 2)).Value = Sheets("Tinh tien").Range("A3").Value

hoamattroicoi · 27/10/15

David882011 đã viết:
Mình muốn tìm 1 Marco thực hiện 2 nhiệm vụ sau :

1 : Copy những ô cố định chứa dữ liệu từ sheet 1 sang sheet 2 .
2 : Dữ liệu được Copy sẻ không đè lên nhau , nếu ô trước đã có dữ liệu thì sẻ tự động Copy vào cột trống phía sau .

Thanks All !!!

Bạn tạo 1 shape trên sheet và sử dụng code này :

PHP:

Sub AleHap()
Dim sArr
With Sheets("Tinh Tien")
    sArr = Array(.[A3].Value, .[D20].Value, .[E1].Value, .[F1].Value)
End With
Sheets("Dich Vu").[A65536].End(xlUp).Offset(1).Resize(, 4) = sArr
End Sub

giaiphap · 27/10/15

David882011 đã viết:
Bạn giaiphap cho mình hỏi thêm chút , nếu mình muốn thay đổi vị trí lưu thì sửa vào "A" và nếu tăng cột copy thì thêm vào "A2:A1000" thành "A2:A6000" . đúng ko bạn ?

Sheets("Dich vu").Range("A" & (WorksheetFunction.CountA(Sheets("Dich vu").Range("A2:A1000")) + 2)).Value = Sheets("Tinh tien").Range("A3").Value