Help, Dùng vlookup lấy giá trị, comment,Format cell.... (1 người xem)

[thienthu2002]

Mong mọi người giúp đỡ
Mình không biết gì về VBA hết nhưng giờ sếp yêu cầu cần dùng vlookup lấy :
- Giá trị trong ô
- Định dạng (in đậm,màu của ô, gạch chéo,...)
- Comment của ô đó.
Cố gắng mãi vẫn không thể làm được mong mọi người giúp
Gấp gấp
file đính kèm http://www.mediafire.com/?jgc1231c5ucygro
Link đã fix lại, thành thật xin lỗi
Giải Thích
Từ Sheet tổng hợp Dùng Vlookup lấy dử liệu từ các sheet khác về, nếu ô được lấy về như thế nào thì ô xuất ra phải y chang 100% như vậy.

 

[0905744404]

Thử dùng code xem sao
Đứng tại sheet LENBANG và chạy code này

Sub DO_TIM()
Dim r As Long, tim As Range
For r = 3 To [B65536].End(3).Row
   Set tim = Sheets("TONG HOP").[B:B].Find(Cells(r, 2), , , 1)
   If Not tim Is Nothing Then
      tim.Offset(, 3).Copy Cells(r, 6)
   End If
Next
End Sub

khi em lọc tại cột D của sheet "tổng hợp" Thì Code của bác không hoạt động
- VD: Em lọc VDD thì số thứ tự tại cột A của sheet " Tong Hop" Sẽ chạy lại từ 1 đến ...
khi sang sheet " len Bang" hàm sẽ dò tìm lại theo số thứ tự tại cột A của sheet : Tong Hop"

 

[tuyenbw]

Dear All

Do mình đính kèm nhầm file. Xin hủy bài này. Xin lỗi cả nhà!

Macro làm việc với 2 trang '01' & '02' đã nhé;
Bạn kiểm sau mỗi lần thêm/thay dữ liệu trong 2 trang này & chạy macro, nha.

Xin chào cả nhà!
Mình cũng có nhu cầu giống bạn này nhưng cấu trúc thì không giống. Mình thay tên sheet để chạy nhưng không ra kết quả. Mình gởi kèm file nhờ cả nhà hổ trợ giúp.

Xin cảm ơn!

 

[tuyenbw]

Xin chào HYen17!

Mình copy code của anh/chị nhưng không chạy được. Nhờ anh/chị điều chỉnh code giúp. File mình đính kèm chỉ cần copy từ 1 sheet con sang sheet tổng hợp mang theo comment và highlight cell (như anh/ chị đã giúp cho bạn Thiên Thu)
Cảm ơn anh/chị nhiều.