Print only rows when there is text inside

[Takaishi]

Hey all,

I am going crazy trying to do the following:

Fellow employees are working on a work related Excel sheet with columns from A2 to G2 (headers) and 103 rows. When adding text starting in row C3 up until G3 with a total of 103 rows, I want it to check if there is text in any of these rows and if so, keep it. If not, remove the complete row.

All of this should happen when clicking on a button called "Print", which I have already inserted. I have tried every possible code solution but I do not get it.

I would appreciate a push in the right direction, thanks!

 

[John_w]

Your post is a bit ambiguous: the title says to print only rows with text, but the description says to remove these rows and then print. I've coded for the former case.

Assign this macro to your "Print" button.

Public Sub Print_Non_Blank_Rows()

    Dim hideRowsRange As Range, r As Long
    
    Set hideRowsRange = ActiveSheet.Range("C3:G105")
    
    'Hide empty rows
    
    For r = 1 To hideRowsRange.Rows.Count
        If Application.CountA(hideRowsRange.Rows(r)) = 0 Then hideRowsRange.Rows(r).EntireRow.Hidden = True
    Next
    
    ActiveSheet.PrintOut
    
    'Unhide empty rows
    
    For r = 1 To hideRowsRange.Rows.Count
        If Application.CountA(hideRowsRange.Rows(r)) = 0 Then hideRowsRange.Rows(r).EntireRow.Hidden = False
    Next
        
End Sub