Hide rows if certain rows are blank

[caet_]

Hello!

I hope to find you well

I would like to know if there is any code in VBA, that allows hide rows if they are empty. In my case, I would like to hide rows from 40 to 327, if the rows are empty (or if column A of that row is empty).


Also, I already have this code in the sheet I am talking about:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D10,H20")) Is Nothing Then Exit Sub
    ActiveSheet.Unprotect Password:="123"
    Application.ScreenUpdating = False
    With Sheets("Sheet1")
        Select Case Target.Address
            Case "$D$10"
                Select Case Target.Value
                    Case Is = 1, 2
                        .CheckBoxes("Check Box 7").Visible = False
                        .CheckBoxes("Check Box 8").Visible = False
                        .Rows("33:34").EntireRow.Hidden = False
                    Case Is = 3, 4
                        .CheckBoxes("Check Box 9").Visible = True
                        .CheckBoxes("Check Box 10").Visible = True
                        .Rows("33:34").EntireRow.Hidden = True
                        .Rows("31:32").EntireRow.Hidden = False
                End Select
            Case "$H$20"
                Select Case Target.Value
                    Case "PRODUCT A"
                        .CheckBoxes("Check Box 5").Visible = False
                        .CheckBoxes("Check Box 6").Visible = False
                        .CheckBoxes("Check Box 1").Visible = True
                        .CheckBoxes("Check Box 2").Visible = True
                        .Rows("21:22").EntireRow.Hidden = True
                    Case "PRODUCT B"
                        .CheckBoxes("Check Box 5").Visible = True
                        .CheckBoxes("Check Box 6").Visible = True
                        .CheckBoxes("Check Box 1").Visible = True
                        .CheckBoxes("Check Box 2").Visible = True
                        .Rows("21:22").EntireRow.Hidden = False
                End Select
        End Select
    End With
    ActiveSheet.Protect Password:="123"
    Application.ScreenUpdating = True

 

[Logit]

.
Here are two macros ... one to hide and the other to unhide :

Option Explicit

Sub HURows()
Dim BeginRow As Integer
Dim EndRow As Integer
Dim ChkCol As Integer
Dim RowCnt As Integer

    BeginRow = 40
    EndRow = 327
    ChkCol = 1

    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Value <= 0 Then
            Cells(RowCnt, ChkCol).EntireRow.Hidden = True
        Else
            Cells(RowCnt, ChkCol).EntireRow.Hidden = False
        End If
    Next RowCnt
End Sub

Sub UnHRows()
Dim BeginRow As Integer
Dim EndRow As Integer
Dim ChkCol As Integer
Dim RowCnt As Integer

    BeginRow = 40
    EndRow = 327
    ChkCol = 1

    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Value <= 0 Then
            Cells(RowCnt, ChkCol).EntireRow.Hidden = False
        Else
            Cells(RowCnt, ChkCol).EntireRow.Hidden = True
        End If
    Next RowCnt
End Sub

 

[caet_]

.
Here are two macros ... one to hide and the other to unhide :

Option Explicit

Sub HURows()
Dim BeginRow As Integer
Dim EndRow As Integer
Dim ChkCol As Integer
Dim RowCnt As Integer

    BeginRow = 40
    EndRow = 327
    ChkCol = 1

    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Value <= 0 Then
            Cells(RowCnt, ChkCol).EntireRow.Hidden = True
        Else
            Cells(RowCnt, ChkCol).EntireRow.Hidden = False
        End If
    Next RowCnt
End Sub

Sub UnHRows()
Dim BeginRow As Integer
Dim EndRow As Integer
Dim ChkCol As Integer
Dim RowCnt As Integer

    BeginRow = 40
    EndRow = 327
    ChkCol = 1

    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Value <= 0 Then
            Cells(RowCnt, ChkCol).EntireRow.Hidden = False
        Else
            Cells(RowCnt, ChkCol).EntireRow.Hidden = True
        End If
    Next RowCnt
End Sub

Hello! Thank you for your answer!
However, it is not working. I have tried to use that code after the one I already had (in the same sheet)

 

[Logit]

Post your workbook to a download site and provide the link.

 

[caet_]

Hello!

Here it is: https://easyupload.io/e8ohlb

I've slightly changed the code. Also, the empty rows between rows from 40 to 327 will depend of the cells D5 and H5 of sheet1.

Thank you for your help!

 

[Logit]

What is the password to unprotect Sheet 1 ?

 

[caet_]

What is the password to unprotect Sheet 1 ?

Sorry, my bad. The password is 123

 

[Logit]

.

Option Explicit
Sub HideRows()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Sheet1.Range("A40:A327")
    If c.Value = 0 Or c.Value = "" Then
        c.EntireRow.Hidden = True
    Else
        c.EntireRow.Hidden = False
    End If
Next c
Application.ScreenUpdating = True
End Sub

Sub UnHideRows()
Application.ScreenUpdating = False
Rows("40:327").EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

 

[caet_]

.

Option Explicit
Sub HideRows()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Sheet1.Range("A40:A327")
    If c.Value = 0 Or c.Value = "" Then
        c.EntireRow.Hidden = True
    Else
        c.EntireRow.Hidden = False
    End If
Next c
Application.ScreenUpdating = True
End Sub

Sub UnHideRows()
Application.ScreenUpdating = False
Rows("40:327").EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

Thank you.
I have tried to use it in the module and in the sheet1 and it does not work

 

[Logit]

.
Download example workbook : Doubt01.xlsm