Nhờ các anh chị trong diễn đàn sửa giúp hộ e đoạn này theo ý với

[nam0099]

Sub Nhap()
Sheets("TH").Select
Range("A4:E4").Select
Selection.Copy
Sheets("TH2").Select
Range("A4").Select
ActiveSheet.Paste
Range("H13").Select
End Sub
Làm thế để mỗi 1 lần chạy nó tự động copy xuống A4 rồi mỗi lần chạy tiếp theo xuống một dòng A5, A6... A100.

 

[be_09]

Làm thế để mỗi 1 lần chạy nó tự động copy xuống A4 rồi mỗi lần chạy tiếp theo xuống một dòng A5, A6... A100.

1/ Bạn nên sửa tiêu đề bài viết lại cho cụ thể, rõ ràng hơn là "Sửa giúp code Copy sheet này và Paste sang sheet khác".
2/ Thử code sau, với điều kiện sheet TH và TH2 phải có tiêu đề ở dòng 3.
3/ Code có thể Copy cùng lúc nhiều dòng.

Sub NhapLieu()
  Sheets("TH").[A3].CurrentRegion.Offset(1).Copy _
  Destination:=Sheets("TH2").[A10000].End(xlUp).Offset(1)
End Sub

 

[nam0099]

1/ Bạn nên sửa tiêu đề bài viết lại cho cụ thể, rõ ràng hơn là "Sửa giúp code Copy sheet này và Paste sang sheet khác".
2/ Thử code sau, với điều kiện sheet TH và TH2 phải có tiêu đề ở dòng 3.
3/ Code có thể Copy cùng lúc nhiều dòng.

Sub NhapLieu()
  Sheets("TH").[A3].CurrentRegion.Offset(1).Copy _
  Destination:=Sheets("TH2").[A10000].End(xlUp).Offset(1)
End Sub

Cảm ơn bạn rất nhiều! Tôi vừa copy đoạn code của bạn vào thì báo lỗi không chạy đc. Ý của tôi muốn chỉ copy 1 dòng ở sheet "TH" sang sheet "TH2" và ở sheet này mỗi 1 lần dán vào nó ở dòng dưới tiếp theo và không bị mất dữ liệu dòng trên.

 

[be_09]

Cảm ơn bạn rất nhiều! Tôi vừa copy đoạn code của bạn vào thì báo lỗi không chạy đc. Ý của tôi muốn chỉ copy 1 dòng ở sheet "TH" sang sheet "TH2" và ở sheet này mỗi 1 lần dán vào nó ở dòng dưới tiếp theo và không bị mất dữ liệu dòng trên.

Bài 1 hỏi một đằng bạn đưa File 1 Nẽo vậy, .
Code bạn đưa thì lấy từ A4, File bạn đưa thì lấy từ B4 (bỏ qua cột A). Rút kinh nghiệm lần sau hỏi cho cụ thể, rõ ràng và tốt nhất là nên đính kèm File để người giúp dễ hiểu hơn.
File bài 3 sử dụng code sau:

Sub NhapLIeu()
  Sheets("TH").[B3].CurrentRegion.Offset(1, 1).Copy _
  Destination:=Sheets("TH2").[B1000].End(xlUp).Offset(1)
End Sub

 

[Quang_Hải]

Đang rảnh quá nên viết một bài nâng điểm cho nick

Sub CopyFromTo()
Dim sArr()
sArr = Sheets("TH").[A4:E4].Value
Sheets("TH2").[B65536].End(3).Offset(1, -1).Resize(, UBound(sArr, 2)) = sArr
End Sub

 

[nam0099]

Đang rảnh quá nên viết một bài nâng điểm cho nick

Sub CopyFromTo()
Dim sArr()
sArr = Sheets("TH").[A4:E4].Value
Sheets("TH2").[B65536].End(3).Offset(1, -1).Resize(, UBound(sArr, 2)) = sArr
End Sub

Cảm ơn anh Quanghai1969 nhiều nhiều, đúng ý em rồi.