Copy 1 hàng or 1 cột từ sheet1 sang sheet2

[tidus_vn]

Có ai có đoạn code vba làm được điều này thì share cho mình với!!thanks nhiều nha

 

[Hai Lúa Miền Tây]

Có ai có đoạn code vba làm được điều này thì share cho mình với!!thanks nhiều nha

Bạn Record lại Macro khi copy bằng tay dòng hay cột ... vào dán ở sheet2, dừng Record. Vào code xem thử => như vậy bạn đã có được code copy theo ý bạn

 

[khoavu87]

Có ai có đoạn code vba làm được điều này thì share cho mình với!!thanks nhiều nha

của bạn đây:

Sub TransCopy1()
Range("4:4").Copy Sheet2.Range("a1")
End Sub
' đó là hàng. cốt chắc ko phải nói thêm

chúc bạn thành công

 

[tidus_vn]

thanks,nhưng bạn có thể giải thích ý nghĩa của câu lệnh trên ko??mình ko hiểu lắm câu lệnh này!!!Thanks a lot

 

[khoavu87]

thanks,nhưng bạn có thể giải thích ý nghĩa của câu lệnh trên ko??mình ko hiểu lắm câu lệnh này!!!Thanks a lot

Sub TransCopy1()
Range("4:4").Copy Sheet2.Range("a1") '( ở đây để đầy đủ hơn nên viết: sheet1.range(........).)
End Sub
- range("4:4")---> chọn dòng thứ 4 của sheet 1 để copy di chuyển đến nơi cần đặt dữ liệu.
- sheet2---> là sheet mà mình muốn di chuyển đến để đặt dữ liệu.
- a1 :là vị trí đầu tiên của dữ liệu muốn đặt,;
Chú ý: bạn cũng có thể thực hiện quá trình recode Macro để tạo ra code cho nó .
ví dụ :

Sub Macro1()

Rows("4:4").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
từ đoạn thu đó bạn có thể thu gọn dần nó, đến khi ngắn gọn có thể ( giống như rút gọn biểu thức ấy)

 

[tidus_vn]

mình có 1 đoạn code như sau:
max = 0
For i = 4 To 115
a = Sheet2.Cells(i, "C")
If (a = "COMBAO MAX") And Cells(i, "J") > max Then
max = Sheet2.Cells(i, "J")
hang = Str(i)
End If
Next i

chạy đoạn code đó sẽ ra cái hàng mà mình cần tìm,giờ mình muốn copy cái hàng đó từ sheet1 sang sheet 2 thì làm sao???

 

[tidus_vn]

Mình làm được rồi,thanks bạn nhiều nha