macro for hiding and unhiding rows based on a dropdown selection and cell value

Try this macro. You don't need the Hide and Unhide macros.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Select Case Target.Value
            Case "Yes"
                ActiveSheet.Range("$A$5:$AO$2962").AutoFilter Field:=9, Criteria1:="<>"
            Case "No"
                If Sheets("Material").FilterMode Then Sheets("Material").ShowAllData
        End Select
    Application.ScreenUpdating = True
End Sub

Your code appears to hide row 2. Maybe you want to have your begin row be farther down. I added a couple of things to hopefully speed up the code.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$2" Then
        Select Case Target
            Case "Yes"
                Call HideRows
                
            Case "No"
                Call UnHideRows
        End Select
    End If
    
End Sub

Sub HideRows()
    BeginRow = 1
    EndRow = 2953
    ChkCol = 9
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Value = "" Then
            Cells(RowCnt, ChkCol).EntireRow.Hidden = True
        End If
    Next RowCnt
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub
Sub UnHideRows()
    BeginRow = 1
    EndRow = 2953
    ChkCol = 9
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Value = "" Then
            Cells(RowCnt, ChkCol).EntireRow.Hidden = False
        End If
    Next RowCnt
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

I removed the code I posted because after further testing I realized the code would run after making a change in column I instead of when A2 was changed. And others posted solutions already

Maybe this:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address(True, True) = "$A$2" Then
        Select Case Target.Value
            Case "Yes"
                Call HideRows
                
            Case "No"
                Call UnHideRows
        End Select
    End If
End Sub

Sub HideRows()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
    BeginRow = 4
    EndRow = Range("A" & Rows.Count).End(xlUp).Row
    ChkCol = 9

    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Value = "" Then
            Cells(RowCnt, ChkCol).EntireRow.Hidden = True
        End If
    Next RowCnt
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Sub UnHideRows()
Cells.EntireRow.Hidden = False
'    BeginRow = 1
'    EndRow = 2953
'    ChkCol = 9
'
'    For RowCnt = BeginRow To EndRow
'        If Cells(RowCnt, ChkCol).Value = "" Then
'            Cells(RowCnt, ChkCol).EntireRow.Hidden = False
'        End If
'    Next RowCnt
End Sub

Note there are a few changes to both subroutines.


Regards, TMS

Thanks for the rep.



If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.