Selectively set row height (or hide / unhide rows) using a macro

[BryanSergeant]

Hi Folks,

I’m trying to write a macro to run down an Excel sheet and selectively, based on a parameter, set the row height to zero or 15.
It could be expressed as:
- For Rows 1 to 500
- If the value of the cell in column A for a row is 0, then set that row height to 0
- If the value of the cell in column A for a row is 1, then set that row height to 15

I’ve created a macros in the past but am pretty lightweight at it… so would greatly appreciate any help

Thanks, in advance,
Bryan

 

[Andrew Poulsom]

Welcome to MrExcel

Does this work for you?

Sub Test()
    Dim i As Long
    With ActiveSheet
        For i = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
            If .Range("A" & i).Value = 0 Then
                .Rows(i).EntireRow.RowHeight = 0
            ElseIf .Range("A" & i).Value = 1 Then
                .Rows(i).EntireRow.RowHeight = 15
            End If
        Next i
    End With
End Sub

 

[BryanSergeant]

Hi Andrew,

Brilliant!!!!
It works perfectly.
You wonderful chap!!

Thank you so much for solving my headache.
Very very grateful... thank you.

Hope I can help you some day.

Best wishes,
Bryan

Welcome to MrExcel

Does this work for you?

Sub Test()
    Dim i As Long
    With ActiveSheet
        For i = 1 To .Range("A" & .Rows.Count).End(xlUp).Row
            If .Range("A" & i).Value = 0 Then
                .Rows(i).EntireRow.RowHeight = 0
            ElseIf .Range("A" & i).Value = 1 Then
                .Rows(i).EntireRow.RowHeight = 15
            End If
        Next i
    End With
End Sub