Code to hide rows

[dpaton05]

I need some code to hide some rows if some cells are blank.

• If C13 is blank, I need to hide row 25
• if C14 is blank I need to hide row 26
• If C15 is blank I need to hide row 27
• If C16 is blank, I need to hide row 28

Can someone help me with the code please?

 

[dpaton05]

I am sorry, I didn't explain it completely in the first place. Even if there is a 0 in them, I was just thinking that they were blank.

 

[Michael M]

Is this what you need ??

Private Sub CommandButton1_Click()
Dim cell As Range, n As Long
n = 24
  For Each cell In Range("C13:C16")
    If cell.Value = "" Or cell.Value = 0 Then Rows(n).Hidden = True
    n = n + 1
  Next cell
 
   If Range("C16") = "" Or Range("C16") = 0 Then
        Rows(28).Hidden = True
    End If
End Sub

 

[dpaton05]

That's perfect, thanks Michael, sorry to be a pain

 

[Michael M]

That's ok mate...but you should be able to write these type of codes on your own now..?

 

[dpaton05]

If all the cells in range C13:C16 are blank, the rows will all hide but if there are some values in some of the cells, the correct row won't hide.

 

[dpaton05]

Sorry Michael, I forgot I can write some code myself now. I just need some ideas as for how to start the code, as in what syntax to use as I am not good with determining the method to use.

 

[Michael M]

So is this the part that is causing the issue ??

If Range("C16") = "" Or Range("C16") = 0 Then  Rows(28).Hidden = True

Does it need to loop like the other section ??

 

[dpaton05]

I had a closer look at it and I worked it out myself. Thanks for reminding me that I can code now Michael

 

[Michael M]

Excellent....good to hear you got it sorted...?

 

[dpaton05]

Not sure what has happened Michael but this code now only hides row 25, even if all cells in the range C13 to C16 are blank.

Dim cell As Range, n As Long
n = 25
  For Each cell In Range("C13:C16")
    If cell.Value = "" Or cell.Value = 0 Then Rows(n).Hidden = True
    n = n + 1
  Next cell