Em thay Range() bằng Cells() cũng được Thầy ha?
Sub dien_du_lieu_bang_nut()
Worksheets("Entry Data").Activate
Cells(Cells(6, "B"), "C").Value = Range("D2") & " " & Range("D3")
Cells(Cells(6, "B"), "D").Value = Range("D4")
Cells(Cells(6, "B"), "E").Value = Range("D5")
Cells(Cells(6, "B"), "B").Value = Cells(6, "B")
Range("D2:D5").ClearContents
End SubEm thay Range() bằng Cells() cũng được Thầy ha?
Sub dien_du_lieu_bang_nut()
Worksheets("Entry Data").Activate
Cells(Cells(6, "B"), "C").Value = Range("D2") & " " & Range("D3")
Cells(Cells(6, "B"), "D").Value = Range("D4")
Cells(Cells(6, "B"), "E").Value = Range("D5")
Cells(Cells(6, "B"), "B").Value = Cells(6, "B")
Range("D2:D5").ClearContents
End Sub