TÌN DÒNG CUỐI (CÓ CÔNG THỨC NHƯNG GIÁ TRỊ RỖNG)

[babygirl_8990]

Chào anh/chị!
Em đang có khó khăn khi đang lập trình . Vấn đề em muốn in tự động hàng loạt dựa vào cột mã sheet test vùng b, nhung vì cột đó cô công thức nên tìm dòng cuối cùng thì sẽ in tới dòng 20, mục đích em muốn in tới dòng 13 thôi ạ, em có gửi file, anh chị giúp em thay thế mã code in tới dong 13 nha

Cảm on nhiều ạ

 

[snow25]

Chào anh/chị!
Em đang có khó khăn khi đang lập trình . Vấn đề em muốn in tự động hàng loạt dựa vào cột mã sheet test vùng b, nhung vì cột đó cô công thức nên tìm dòng cuối cùng thì sẽ in tới dòng 20, mục đích em muốn in tới dòng 13 thôi ạ, em có gửi file, anh chị giúp em thay thế mã code in tới dong 13 nha

Cảm on nhiều ạ

Bạn kiểm tra thêm điều kiện nữa là được mà.Ví dụ kiểm tra xem nó khác không thì mới IN.

 

[babygirl_8990]

Bạn kiểm tra thêm điều kiện nữa là được mà.Ví dụ kiểm tra xem nó khác không thì mới IN.

Vì mình mới học lập trình thôi, nên không biết viết mã code đúng cho trường hợp khác 0, mong bạn hướng dẫn thêm

 

[PacificPR]

Vì mình mới học lập trình thôi, nên không biết viết mã code đúng cho trường hợp khác 0, mong bạn hướng dẫn thêm

Bạn thêm 1 tẹo nữa vào

Sub INTUDONG()
    Dim dcuoi As Long
    Dim i As Long
dcuoi = Sheets("test").Range("b1000").End(xlUp).Row
For i = 7 To dcuoi
    If Sheets("TEST").Range("B" & i) <> Empty Then
        Sheets("IN").Range("C5") = Sheets("TEST").Range("B" & i)
        Sheets("in").Range("c5:d10").PrintOut
    End If
Next
End Sub

 

[babygirl_8990]

Bạn thêm 1 tẹo nữa vào

Sub INTUDONG()
    Dim dcuoi As Long
    Dim i As Long
dcuoi = Sheets("test").Range("b1000").End(xlUp).Row
For i = 7 To dcuoi
    If Sheets("TEST").Range("B" & i) <> Empty Then
        Sheets("IN").Range("C5") = Sheets("TEST").Range("B" & i)
        Sheets("in").Range("c5:d10").PrintOut
    End If
Next
End Sub

Mình cảm ơn nha, code xài quá ok