Lấy dữ liệu và in tự động

buiquangthuan

Thành viên tiêu biểu
Tham gia ngày
17 Tháng mười hai 2010
Bài viết
465
Được thích
172
Điểm
395
Nơi ở
Bắc Ninh
Chào các thầy cô ạ.
Em muốn thầy cô giúp ạ.
Hiện tại em đang có dữ liệu từ sheet("In") như hình
1574513075112.png
và em muốn lần lượt đưa dữ liệu từ sheet in qua sheet Form như hình bên.
Sau khi điền đủ dữ liệu tại 3 ô bôi màu sẽ tự động in sheet Form
1574512951058.png
Tiếp tục cho tới hết dữ liệu.
Hiện tại em đang dùng vòng lặp. Nhưng mà không hiểu sao nó bị lặp lại 2 lần.
Mong các thầy cô chỉ giúp
Mã:
Sub INFORM()
Dim I&, J&, dC&, arr()
dC = Sheets("In").Range("A" & Rows.Count).End(xlUp).Row
 arr = Sheets("In").Range("A2:C" & dC).Value
For J = 2 To UBound(arr, 2)
    For I = 1 To UBound(arr, 1)
        Sheets("Form").Range("B4").Value = Sheets("In").Range("A" & I + 1)
        Sheets("Form").Range("B5").Value = Sheets("In").Range("B" & I + 1)
        Sheets("Form").Range("E5").Value = Sheets("In").Range("C" & I + 1)
     MsgBox ("HET DONG" & I)
    Next I 
Next J
End Sub
Em cám ơn nhiều ạ
 

File đính kèm

XuanThanh

Thành viên thường trực
Tham gia ngày
20 Tháng ba 2007
Bài viết
278
Được thích
373
Điểm
710
Tức là chỉ lọc nhưng giá trị thỏa mãn cả 3 điều kiện đúng không? Hay sao? Nói rõ hơn mới giúp được
 

buiquangthuan

Thành viên tiêu biểu
Tham gia ngày
17 Tháng mười hai 2010
Bài viết
465
Được thích
172
Điểm
395
Nơi ở
Bắc Ninh
Tức là chỉ lọc nhưng giá trị thỏa mãn cả 3 điều kiện đúng không? Hay sao? Nói rõ hơn mới giúp được
Tức là em muốn đưa dữ liệu của từng dòng bên sheet in sang bên sheet form. Chẳng hạn 3 cái ô bôi màu bên sheet form khi đủ dữ liệu rồi thì in.rồi lại đến dong tiếp theo của sheet in
 

be09

TNMT_Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
9,289
Được thích
9,012
Điểm
560
Tuổi
63
Nơi ở
Biên Hòa, Đồng Nai
Chào các thầy cô ạ.
Em muốn thầy cô giúp ạ.
Hiện tại em đang có dữ liệu từ sheet("In") như hình
View attachment 228916
và em muốn lần lượt đưa dữ liệu từ sheet in qua sheet Form như hình bên.
Sau khi điền đủ dữ liệu tại 3 ô bôi màu sẽ tự động in sheet Form
View attachment 228915
Tiếp tục cho tới hết dữ liệu.
Hiện tại em đang dùng vòng lặp. Nhưng mà không hiểu sao nó bị lặp lại 2 lần.
Mong các thầy cô chỉ giúp
Mã:
Sub INFORM()
Dim I&, J&, dC&, arr()
dC = Sheets("In").Range("A" & Rows.Count).End(xlUp).Row
arr = Sheets("In").Range("A2:C" & dC).Value
For J = 2 To UBound(arr, 2)
    For I = 1 To UBound(arr, 1)
        Sheets("Form").Range("B4").Value = Sheets("In").Range("A" & I + 1)
        Sheets("Form").Range("B5").Value = Sheets("In").Range("B" & I + 1)
        Sheets("Form").Range("E5").Value = Sheets("In").Range("C" & I + 1)
     MsgBox ("HET DONG" & I)
    Next I
Next J
End Sub
Em cám ơn nhiều ạ
Thử bỏ vòng lặp

For J đi
 
Top Bottom