Sub TrollText()
Dim MainList As Worksheet
Dim Support As Worksheet
Dim TrollText As String
Set MainList = ThisWorkbook.Worksheets("Main list")
Set Support = ThisWorkbook.Worksheets("Support")
TrollText = "điền thông tin tự động"
MainList.Range("A1:Z100").Value = TrollText
Support.Range("A1:Z100").Value = MainList.Range("A1").Value
MsgBox "Đã hoàn thành việc điền thông tin tự động từ Sheet Main List sang Sheet Support!"
End SubNgười ta tả đơn giản thì ta chẩn đoán lâm sàng thôi anh.
với tại chữ "điền thông tin tự động" để trong dấu nháy hẳn hoi nên chơi luôn. 
Có vẻ thớt mới nói nửa đầu câu chuyện. Còn nửa sau làm gì nữa chắc nói sauNgười ta tả đơn giản thì ta chẩn đoán lâm sàng thôi anh.
Thớt kiệm lời quá, điền thông tin chiếu từ Status gì đấy vào form thì khả năng vlookup là đủ mà.
mình cảm ơn bạn đã viết code cho mình .Người ta tả đơn giản thì ta chẩn đoán lâm sàng thôi anh.
Thớt kiệm lời quá, điền thông tin chiếu từ Status gì đấy vào form thì khả năng vlookup là đủ mà.
Thật sự chân thành cảm ơn bạn rất nhiều vì đã hỗ trợ cho mình.
Để công thức ở form không quá dài và cho bạn dễ hiểu, mình thêm 1 cột phụ ở sheet Mail list như trong file đính kèm rồi vlookup sang.
Cảm ơn bạn rất nhiều.
Không có gì bạn, chuyện nhỏ thôi mà.
Động viên vừa phải thôi. Mang tiếng những người comment dạo như tớ lắm.
hi a,
Khổ gê, khi nhận được sự giúp đỡ thì phải biết người giúp mình là ai chứ.
Mình khuyên bạn mấy cái thể loại bảng biểu chấm công này nhiều người họ đã làm và nhiều người họ hướng dẫn lắm, cứ lên google mà tra trước file mẫu của những người khác đã làm.
← ← ←
