Hàm truy vấn cùng lúc lên 2 form (1 người xem)

[tnfsmith]

Mình up file cần hỏi lên mọi người xem dùm có cách nào truy vấn lần lượt cột C2, C3 từ sheet Source lên 02 form ở sheet Data cùng lúc không?
Hoặc truy vấn được một tk ở cột ACCTNO thì copy lên form 1 và truy vấn được thêm 1 tk nữa thì xuất lên form 2 (tất nhiên là số tk ở 2 form không trùng nhau)
Xin cám ơn

 

[Quang_Hải]

Mình up file cần hỏi lên mọi người xem dùm có cách nào truy vấn lần lượt cột C2, C3 từ sheet Source lên 02 form ở sheet Data cùng lúc không?
Hoặc truy vấn được một tk ở cột ACCTNO thì copy lên form 1 và truy vấn được thêm 1 tk nữa thì xuất lên form 2 (tất nhiên là số tk ở 2 form không trùng nhau)
Xin cám ơn

Ý là bạn muốn in 1 lúc 2 số tk đúng không?
Bạn dùng vòng lặp For kèm với Step 2
Ví dụ

For i = 1 to 100 Step 2
     Cells(i,1)= i
     Cells(i+1,2)= i+1
Next

 

[Ba Tê]

Mình up file cần hỏi lên mọi người xem dùm có cách nào truy vấn lần lượt cột C2, C3 từ sheet Source lên 02 form ở sheet Data cùng lúc không?
Hoặc truy vấn được một tk ở cột ACCTNO thì copy lên form 1 và truy vấn được thêm 1 tk nữa thì xuất lên form 2 (tất nhiên là số tk ở 2 form không trùng nhau)
Xin cám ơn

Gắn thử cái này vào cái nút của bạn xem sao.
Code dễ đọc, dễ sửa tuỳ thích
[GPECODE=vb]Public Sub GPE()
Dim Arr(), I As Long, J As Long, R As Long
On Error Resume Next
With Sheets("Source")
R = .[A65536].End(xlUp).Row
R = R + (R + 1) Mod 2
Arr = .Range("A2:A" & R).Resize(, 50).Value
End With
With Sheets("Data")
For I = 1 To UBound(Arr, 1) Step 2
.[B5] = Arr(I, 37)
.[E6] = Arr(I, 1)
.[C7] = Arr(I, 2)
.[C8] = Arr(I, 3)
.[C9] = Arr(I, 5)
.[E9] = Arr(I, 4)
.[C10] = Arr(I, 17)
.[C11] = Arr(I, 25)
.[E11] = Arr(I, 27)
.[C12] = Arr(I, 16)
.[C13] = "????"
'-----------------
.[B21] = Arr(I + 1, 37)
.[E22] = Arr(I + 1, 1)
.[C23] = Arr(I + 1, 2)
.[C24] = Arr(I + 1, 3)
.[C25] = Arr(I + 1, 5)
.[E25] = Arr(I + 1, 4)
.[C26] = Arr(I + 1, 17)
.[C27] = Arr(I + 1, 25)
.[E27] = Arr(I + 1, 27)
.[C28] = Arr(I + 1, 16)
.[C29] = "????"
ActiveSheet.PrintOut
Next I
End With
End Sub[/GPECODE]

 

[Quang_Hải]

Gắn thử cái này vào cái nút của bạn xem sao.
Code dễ đọc, dễ sửa tuỳ thích

Bài này nếu em viết thì em sẽ bỏ cái rừng của anh, em sẽ dùng công thức Vlookup trên sheet, chỉ thay cái ID cho mỗi dòng lặp thôi

 

[Ba Tê]

Bài này nếu em viết thì em sẽ bỏ cái rừng của anh, em sẽ dùng công thức Vlookup trên sheet, chỉ thay cái ID cho mỗi dòng lặp thôi

Sẵn cái VBA thì chơi luôn, Vlookup trên sheet lỡ có người buồn tay xoá thì sao?
Tòn ten!