Using VBA to hide rows with zero values

**anholland** · 07-17-2012, 03:35 AM

Hi,

I've developed a spreadsheet in Excel 2010 which will be used to generate compensation based statements for about 200 employees. The issue i have is that there will be many rows with zero values that i would need to hide and actioning manually is simply not an option as i need to refresh these fairly often. I've looked at some VBA code on this forum which is helpful however i can't get anything to work for me.

I currently type in the ID number of the employee which populates various comp information using VLOOKUPS and the needed VBA/Macro would idetify rows with zero values in columns E,F,H and I and hide them (not delete).

I've enclosed a test version for your viewing, any help much appreciated.

Andy

**efernandes67** · 07-20-2012, 07:08 PM

How does your worksheet works:

1) In columns E you will have always "USD" or you are goint to have values?
2) In columns H you will have always "GBP" or you are goint to have values?
3) If you have a value in column F you will always have a value in column I, correct?

if all the answres to my questions are yes then try to copy this code to a module and run it

Sub hideRows()
    Dim rng As Range
    Dim rCell As Range
    
    Application.ScreenUpdating = False
    
    Set rng = Sheets("Statement").Range("I25:I103") ' you can define a named range
    
    For Each rCell In rng
        rCell.Select
        If Not IsEmpty(rCell) And rCell = 0 Then
            Rows(rCell.Row & ":" & rCell.Row).EntireRow.Hidden = True
        End If
    Next
    
    Application.ScreenUpdating = True
End Sub