Em có đoạn code này để lấy dữ liệu từ các sheet khác vào sheet "Lọc dữ liệu" mà nó không chạy được hoàn chỉnh. Nó chạy mà không chờ cho các sheet khác lấy dữ liệu đủ về
Sub Locdulieu()
Dim i As Integer
For i = 4 To 6 Step 1
Sheet03_11.Select
Range("C2").Select
Range("c2") = Sheet3.Cells(i, "b")
Range("c3").Select
Sau khi code trên thực hiện thì các sheet khác sẽ lấy dữ liệu từ web về. Tại dòng 1 của sheet(Lọc dữ liệu) sẽ được link đến 1 số giá trị ở các sheet khác. Sau đó copy các giá trị này vào dòng bên dưới được chỉ sẵn. Vấn đề lỗi là code dưới thực hiện luôn mà không đợi các sheet khác tải dữ liệu từ web về.
Hoặc có thể chèn code nào đó vào đây để chờ khoảng 10s cho các sheet khác lấy dữ liệu về rồi thực hiện tiếp code bên dưới ?
Sheet3.Select
Range("E1:N1").Select
Selection.Copy
Cells(i, "E").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub
Sub Locdulieu()
Dim i As Integer
For i = 4 To 6 Step 1
Sheet03_11.Select
Range("C2").Select
Range("c2") = Sheet3.Cells(i, "b")
Range("c3").Select
Sau khi code trên thực hiện thì các sheet khác sẽ lấy dữ liệu từ web về. Tại dòng 1 của sheet(Lọc dữ liệu) sẽ được link đến 1 số giá trị ở các sheet khác. Sau đó copy các giá trị này vào dòng bên dưới được chỉ sẵn. Vấn đề lỗi là code dưới thực hiện luôn mà không đợi các sheet khác tải dữ liệu từ web về.
Hoặc có thể chèn code nào đó vào đây để chờ khoảng 10s cho các sheet khác lấy dữ liệu về rồi thực hiện tiếp code bên dưới ?
Sheet3.Select
Range("E1:N1").Select
Selection.Copy
Cells(i, "E").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub
File đính kèm
Lần chỉnh sửa cuối: