Nhờ hướng dẫn in tự động bỏ dòng trống khi link từ sheet khác (4 người xem)

[phucnguyen1993]

Mình có file dữ liệu PXK như đính kèm, mỗi khi in 1 phiếu xuất mình khá mắc công ẩn từng dòng trống ạ,
Nhờ các cao nhân xem thử giúp mình với.
Mình cám ơn ạ

 

[vanthinh3101]

Mình có file dữ liệu PXK như đính kèm, mỗi khi in 1 phiếu xuất mình khá mắc công ẩn từng dòng trống ạ,
Nhờ các cao nhân xem thử giúp mình với.
Mình cám ơn ạ

Trường hợp này phải dùng code bạn nhé!

Sub ListBox8_Change()
    Dim Cls As Range
    
    Application.ScreenUpdating = False
    With Sheet1
        .Rows("6:20").Hidden = False
        For Each Cls In .Range("A6:A20")
            If Cls.Value = "" Then Exit For
        Next Cls
        .Rows(Cls.Row & ":20").Hidden = True
    End With
    Application.ScreenUpdating = True
End Sub

 

[phucnguyen1993]

Trường hợp này phải dùng code bạn nhé!

Sub ListBox8_Change()
    Dim Cls As Range
   
    Application.ScreenUpdating = False
    With Sheet1
        .Rows("6:20").Hidden = False
        For Each Cls In .Range("A6:A20")
            If Cls.Value = "" Then Exit For
        Next Cls
        .Rows(Cls.Row & ":20").Hidden = True
    End With
    Application.ScreenUpdating = True
End Sub

Tks bác, đúng thứ mình cần ạ.
Phiền bác xíu nữa được không ạ?, VD như PXKPNP_FIN/17/003729, có 1 vài vật tư ô nó không auto giãn dòng ạ, bác có cách nào để nó tự giãn dòng không ạ? Mình cám ơn

 

[vanthinh3101]

Tks bác, đúng thứ mình cần ạ.
Phiền bác xíu nữa được không ạ?, VD như PXKPNP_FIN/17/003729, có 1 vài vật tư ô nó không auto giãn dòng ạ, bác có cách nào để nó tự giãn dòng không ạ? Mình cám ơn

Theo Template của bạn đưa, các ô trong bảng không bị MergeCells.
Vậy bạn chỉ cần
- Chọn chế độ WrapText cho toàn bộ các ô
- Quét chọn toàn bộ từ dòng 6 đến dòng 20
- Tại tab Home, chọn Format/AutoFit Row Height

 

[phucnguyen1993]

Theo Template của bạn đưa, các ô trong bảng không bị MergeCells.
Vậy bạn chỉ cần
- Chọn chế độ WrapText cho toàn bộ các ô
- Quét chọn toàn bộ từ dòng 6 đến dòng 20
- Tại tab Home, chọn Format/AutoFit Row Height

dạ xin lỗi xíu ạ, bác hiểu sai ý em tý ạ, Format/AutoFit Row Height chỉ đối với dữ liệu tạm thời trong ô thôi ạ, còn nếu mình chọn 1 PXK khác thì dữ liệu khác nó không autofit ạ, Nhờ bác giúp đỡ, em cám ơn ạ

 

[vanthinh3101]

dạ xin lỗi xíu ạ, bác hiểu sai ý em tý ạ, Format/AutoFit Row Height chỉ đối với dữ liệu tạm thời trong ô thôi ạ, còn nếu mình chọn 1 PXK khác thì dữ liệu khác nó không autofit ạ, Nhờ bác giúp đỡ, em cám ơn ạ

Bạn đã làm theo chưa?
Tôi làm thấy được mà.

 

[phucnguyen1993]

Bạn đã làm theo chưa?
Tôi làm thấy được mà.

Bạn đã làm theo chưa?
Tôi làm thấy được mà.

mình làm theo bác nó vẫn không auto giãn dòng ạ:
Đầu tiên mình chọn: PXKPNP_FIN/17/003729. Mình cũng chọn dòng 6 -> 20 => wraptext => Format / Autofit Row Height. Thi nó giãn dòng theo nội dung ở PXKPNP_FIN/17/003729.
Sau đó chuyển qua PXKPNP_FIN/17/003730 thì phải bấm lại Autofit Row Height nó mới giãn theo nội dung PXKPNP_FIN/17/003730
Mong bác giúp đỡ

 

[vanthinh3101]

mình làm theo bác nó vẫn không auto giãn dòng ạ:
Đầu tiên mình chọn: PXKPNP_FIN/17/003729. Mình cũng chọn dòng 6 -> 20 => wraptext => Format / Autofit Row Height. Thi nó giãn dòng theo nội dung ở PXKPNP_FIN/17/003729.
Sau đó chuyển qua PXKPNP_FIN/17/003730 thì phải bấm lại Autofit Row Height nó mới giãn theo nội dung PXKPNP_FIN/17/003730
Mong bác giúp đỡ

Bạn thêm đoạn này vào code vậy:

With Sheet1
       ...
        Next Cls
        .Range("A6:A20").EntireRow.AutoFit    'Tu dong can chinh do cao cua dong'
        .Rows(Cls.Row & ":20").Hidden = True
End With

 

[phucnguyen1993]

Bạn thêm đoạn này vào code vậy:

With Sheet1
       ...
        Next Cls
        .Range("A6:A20").EntireRow.AutoFit    'Tu dong can chinh do cao cua dong'
        .Rows(Cls.Row & ":20").Hidden = True
End With

Thật sự cám ơn bác !!