Combining Code

[fdfordham]

Below I have 2 sets of VBA code for hiding columns and hiding rows. Both work great, but only the hide column portion works when added together. What am I doing wrong? Thanks for the help!


Private Sub Worksheet_Change(ByVal Target As Range)

Dim cCell As Range
If Target.Address <> Range("C64").Address Then Exit Sub
Application.ScreenUpdating = False
For Each cCell In Range("K1:AZ1")
cCell.EntireColumn.Hidden = (cCell.Value < Target.Value)
Next
Application.ScreenUpdating = True

Dim rCell As Range
If Target.Address <> Range("C65").Address Then Exit Sub
Application.ScreenUpdating = False
For Each rCell In Range("I1:I57")
rCell.EntireRow.Hidden = (rCell.Value = Target.Value)
Next
Application.ScreenUpdating = True


End Sub

 

[hrayani]

you're using Exit Sub after the first condition

Try like below

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim cCell As Range
    Dim rCell As Range
    
    Application.ScreenUpdating = False
    
    For Each cCell In Range("K1:AZ1")
        If Target.Address = Range("C64").Address Then
            cCell.EntireColumn.Hidden = (cCell.Value < Target.Value)
        End If
    Next
    
    For Each rCell In Range("I1:I57")
        If Target.Address = Range("C65").Address Then
            rCell.EntireRow.Hidden = (rCell.Value = Target.Value)
        End If
    Next
    
    Application.ScreenUpdating = True

End Sub

 

[Osvaldo Palmeiro]

Try this.

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim cCell As Range
  Application.ScreenUpdating = False
  If Target.Address = "$C$64" Then
   For Each cCell In Range("K1:AZ1")
    cCell.EntireColumn.Hidden = cCell.Value < Target.Value
   Next
  ElseIf Target.Address = "$C$65" Then
   For Each cCell In Range("I1:I57")
    cCell.EntireRow.Hidden = cCell.Value = Target.Value
   Next
  End If
End Sub

 

[fdfordham]

you're using Exit Sub after the first condition

Try like below

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim cCell As Range
    Dim rCell As Range
   
    Application.ScreenUpdating = False
   
    For Each cCell In Range("K1:AZ1")
        If Target.Address = Range("C64").Address Then
            cCell.EntireColumn.Hidden = (cCell.Value < Target.Value)
        End If
    Next
   
    For Each rCell In Range("I1:I57")
        If Target.Address = Range("C65").Address Then
            rCell.EntireRow.Hidden = (rCell.Value = Target.Value)
        End If
    Next
   
    Application.ScreenUpdating = True

End Sub

Works great. Thank you!

 

[hrayani]

Works great. Thank you!

you are welcome & thanks for the feedback