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

[BuiQuangThuan]

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

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

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

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 ạ

 

[XuanThanh]

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]

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

 

[be_09]

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

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

 

[BuiQuangThuan]

Thử bỏ vòng lặp

For J đi

Cám ơn thầy ạ. Con thử theo cách thầy nói ra thấy kết quả được rồi ạ