[NEED HELP!] Tìm kiếm toàn bộ workbook (1 người xem)

[vubinh099]

Chào các bác! em có 2 file, em muốn tìm điều kiện ở file 1 rồi dò 1 ô cố định trong tất cả các sheet ở file 2, nếu thỏa điều kiện sẽ trả kết quả từ file 2 về file 1. Do nhu cầu của công việc cần phải làm như vậy, e biết chỉ có Code mới giải quyết được vấn đề này nhưng e không rành lắm về VBA cũng như Macro (e đang tập tành tự học). Nhờ các bác chiếu cố giúp newbie ạ. Em cảm ơn rất nhiều!!!

 

[HieuCD]

Chào các bác! em có 2 file, em muốn tìm điều kiện ở file 1 rồi dò 1 ô cố định trong tất cả các sheet ở file 2, nếu thỏa điều kiện sẽ trả kết quả từ file 2 về file 1. Do nhu cầu của công việc cần phải làm như vậy, e biết chỉ có Code mới giải quyết được vấn đề này nhưng e không rành lắm về VBA cũng như Macro (e đang tập tành tự học). Nhờ các bác chiếu cố giúp newbie ạ. Em cảm ơn rất nhiều!!!

chỉ chạy đúng trong ví dụ, và tự sữa lại cho các ví dụ khác
Sub copy()
Dim Sh As Worksheet
Application.ScreenUpdating = False
Windows("DU LIEU.xlsx").Activate
i = 2
For Each Sh In ThisWorkbook.Worksheets
Sheets(i - 1).Select
If Cells(2, 1) <> "" Then
ngay = Cells(2, 1)
Range("B5:B7").copy
Windows("BANG TINH.xlsx").Activate
Cells(i, 1) = ngay
Cells(i, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
i = i + 1
End If
Windows("DU LIEU.xlsx").Activate
Next Sh
Windows("BANG TINH.xlsx").Activate
Application.ScreenUpdating = True
End Sub

 

[vubinh099]

chỉ chạy đúng trong ví dụ, và tự sữa lại cho các ví dụ khác
Sub copy()
Dim Sh As Worksheet
Application.ScreenUpdating = False
Windows("DU LIEU.xlsx").Activate
i = 2
For Each Sh In ThisWorkbook.Worksheets
Sheets(i - 1).Select
If Cells(2, 1) <> "" Then
ngay = Cells(2, 1)
Range("B5:B7").copy
Windows("BANG TINH.xlsx").Activate
Cells(i, 1) = ngay
Cells(i, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
i = i + 1
End If
Windows("DU LIEU.xlsx").Activate
Next Sh
Windows("BANG TINH.xlsx").Activate
Application.ScreenUpdating = True
End Sub

Cám ơn bác rất nhiều, lại là bác giúp em, cám ơn bác!!!!!