Link dữ liệu các sheet

[mrthanh001]

Bạn tham khảo đoạn code sau đây nhé:
Option Explicit
Sub ghidulieu()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim i&, d&
Set sh1 = ThisWorkbook.Sheets("Sheet1")
Set sh2 = ThisWorkbook.Sheets("Sheet2")
d = sh2.Range("A" & sh2.Rows.Count).End(xlUp).Row + 1
If sh1.Cells(2, 1).Value <> "" And sh1.Cells(2, 2).Value <> "" Then
sh2.Cells(d, 1).Value = sh1.Cells(2, 1).Value
sh2.Cells(d, 2).Value = sh1.Cells(2, 2).Value
End If
End Sub

bạn ơi! chạy như thế nào vậy bạn

 

[thinhvd]

bạn ơi! chạy như thế nào vậy bạn

Ủa! Bạn đi xin code tưởng bạn phải biết đưa code vào trong chứ. Bạn search goolge cách chạy 1 đoạn code nhé

 

[mrthanh001]

bạn ơi! chạy như thế nào vậy bạn

thanks bạn nha, nhưng mình cho chạy test thử code trên mà không ra được kết quả, nó cũng không báo lỗi gì.