Hide/unhide rows with zero values

Need a macro which will hide rows having 0 values. On running once it will hide those rows having 0 values and on pressing second time it will unhide those hidden rows and so on.
Thanks for any reply.

Hi

What column(s) are you checking for the 0 values?


rylo

i need the same for column C , D, and E

Hi

try

sub xxx
  for i = cells(rows.count,1).end(xlup).row to 1 step -1
  if cells(i,3) = 0 or cells(i,4) = 0 or cells(i,5) = 0 then
   cells(i,1).entirerow.delete
  end if
  next i
end sub

rylo

Thanks for the code But i want to hide the rows and not to delete the rows. As I'll assign the macro to a button, so I want that on cliking once the rows with zero values will hide and on second click it will unhide all rows, on third click again hide zero value rows and on 4th click, unhide all rows and so on. Could the code be modified in this manner? thanks

Originally Posted by sujittalukder

Thanks for the code But i want to hide the rows and not to delete the rows. As I'll assign the macro to a button, so I want that on cliking once the rows with zero values will hide and on second click it will unhide all rows, on third click again hide zero value rows and on 4th click, unhide all rows and so on. Could the code be modified in this manner? thanks

Private Sub CommandButton1_Click()
Static flag As Boolean
If flag Then
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
  If Cells(i, 3) = 0 Or Cells(i, 4) = 0 Or Cells(i, 5) = 0 Then
   Cells(i, 1).EntireRow.Hidden = True
  End If
  Next
Else
ActiveSheet.Rows.Hidden = False
End If
flag = Not flag
End Sub

While unhiding it will unhide all the rows on the sheet and not only those were hidden by the macro

A V Veerkar