IF * then Hide entire Row

[mmmarty]

Greetings,

I've searched the forum to no avail.
I'd like to create a macro to function same as a multiple selection grouping - But this feature does not work in excel right.

I want to place an asterisk * in any cell down the A column, Then have all rows with an asterisk found to be selected and hidden. This must be doable, your suggestion is appreciated.

 

[Pauljj]

You could try using Auto filter, that way it can hide the complete row if a '*' is found

 

[Richard Schollar]

Hi

Sure - something like:

For i =  1 to Cells(Rows.Count,"A").End(xlUp).Row
If Cells(i,1).Value = "*" Then Rows(i).Hidden = True
Next

 

[mmmarty]

Thanks Richard, it works.



Sub Hide_Row()
For A = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(A, 1).Value = "*" Then Rows(A).Hidden = True
Next
MsgBox "All rows with an * in Column A have been hidden."
End Sub


Can you tell me why my attempt to UNhide those same rows is failing here?


Sub UNHide_Row()
For A = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(A, 1).Value = "*" Then Rows(A).UNHide_Row = True
Next
MsgBox "All rows with an * in Column A are Un Hidden"
End Sub

 

[Richard Schollar]

Hi

Just wrong property name (and missing Next):

Sub UNHide_Row()
For A = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(A, 1).Value = "*" Then Rows(A).Hidden= False
Next
MsgBox "All rows with an * in Column A are Un Hidden"
End Sub