Macro to loop through column, if blank blank cells then hide rows

**Marc L** · 05-24-2019, 04:11 AM

A demonstration as a beginner starter :

PHP Code:


Sub Demo()

        Dim V, R&

        Application.ScreenUpdating = False

    For Each V In [{8,21,34}]

        With Cells(V, 3).CurrentRegion

            For R = 3 To .Rows.Count Step 2

                With .Cells(R, 4).Resize(2)

                    If Application.CountBlank(.Cells) = 2 Then .EntireRow.Hidden = True

                End With

            Next

        End With

    Next

        Application.ScreenUpdating = True

End Sub

Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !

**stein7** · 05-24-2019, 08:24 AM

Thank you for your reply really appreciate it, I’m having trouble implementing this on my real sheet, it didn’t work at first go, let me see what I can do.

**stein7** · 05-25-2019, 01:06 AM

Hi Marc, I have had trouble with trying to implement this on my real sheet due to the layout being slightly different, I attempted to reflect the changes in the code, but it is not picking it, maybe because I am not the best in coding and forgetting to change a parameter in your code. I have attached a sample workbook that accurately reflects the positioning in my real sheet. Would tremendously appreciate your assistance on doing a couple of modifications for it to be able to run on this new similar sample sheet.