CONDITIONAL HIDE/UNHIDE ROWS

[Mos.StaLL]

I have code to hide rows (which works) and I also have code to unhide
rows. I'm simply having trouble combining the code into one macro.
If anybody can help I will greatly appreciate it. Below is a copy of
the code. Thanks.

Sub hide_rows()
Dim RowNdx As Long
Dim LastRow As Long

LastRow = ActiveSheet.Cells(Rows.Count, "V").End(xlUp).Row
For RowNdx = LastRow To 5 Step -1
If Cells(RowNdx, "V").Value = 0 Then
Rows(RowNdx).Hidden = True

End If
Next RowNdx
End Sub

________________________________
Sub Unhide()

Dim RowNdx As Long
Dim LastRow As Long

LastRow = ActiveSheet.Cells(Rows.Count, "V").End(xlUp).Row
For RowNdx = LastRow To 5 Step -1
If Cells(RowNdx, "V").Value > 0 Then
Rows(RowNdx).Hidden = False
End If
Next RowNdx

End Sub

 

[papou]

Hi

Sub hide_unhide_rows()
Dim RowNdx As Long
Dim LastRow As Long

LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For RowNdx = LastRow To 5 Step -1
Select Case Cells(RowNdx, "A").Value
Case Is = 0
Rows(RowNdx).Hidden = True
Case Is > 0
Rows(RowNdx).Hidden = False
End Select
Next RowNdx
End Sub

HTH
Cordially
Pascal

 

[Mos.StaLL]

Hi

Sub hide_unhide_rows()
Dim RowNdx As Long
Dim LastRow As Long

LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For RowNdx = LastRow To 5 Step -1
Select Case Cells(RowNdx, "A").Value
Case Is = 0
Rows(RowNdx).Hidden = True
Case Is > 0
Rows(RowNdx).Hidden = False
End Select
Next RowNdx
End Sub

HTH
Cordially
Pascal

<[email protected]> a écrit dans le message de (e-mail address removed)...











- Show quoted text -

It worked perfectly! Thanks. I'm trying to teach myself this and
realize my life will be much easier once I become procificient in it.
Thanks again, oh, I simply had to change you code a bit, you had the
"A" column when I was looking for the "V" column, but you probably did
that on purpose.

James

 

[papou]

Hello James
Thanks for your feedback, glad it helped -

Cordially
Pascal
<[email protected]> a écrit dans le message de (e-mail address removed)...

Hi

Sub hide_unhide_rows()
Dim RowNdx As Long
Dim LastRow As Long

LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For RowNdx = LastRow To 5 Step -1
Select Case Cells(RowNdx, "A").Value
Case Is = 0
Rows(RowNdx).Hidden = True
Case Is > 0
Rows(RowNdx).Hidden = False
End Select
Next RowNdx
End Sub

HTH
Cordially
Pascal

<[email protected]> a écrit dans le message de (e-mail address removed)...











- Show quoted text -

It worked perfectly! Thanks. I'm trying to teach myself this and
realize my life will be much easier once I become procificient in it.
Thanks again, oh, I simply had to change you code a bit, you had the
"A" column when I was looking for the "V" column, but you probably did
that on purpose.

James