Sorting by cell contents

[andrewb90]

I have a subscriber list where in column A the customer is labeled as 'inactive' or '7day' or 'Sunday' and then in column B:D are address and detail info. What I need is a way to hide all rows that have 'inactive' as the label in Column A. Additionally, If I have A4&A5 as a merged cell saying 'inactive' would that affect the code or would both rows disappear properly?

Thanks in advance!

Andrew

 

[cyrilbrd]

Hi

Sub HideRow()

    Application.ScreenUpdating = False
     ' Dim R As Range
     ' Set R = Application.Intersect(Target, Range("A1:A10"))
     ' If R Is Nothing Then Exit Sub
    With ActiveSheet
        For Each cell In Range("A1:A10")
            If cell.Value = "inactive" Then
                cell.EntireRow.Hidden = True
            End If
        Next
    End With
    Application.ScreenUpdating = True

End Sub

Just change the range to fit your file in:

Range("A1:A10")

and it should work.
As for the merge... No it won't work, merge means only one(1) cell, so only the highest (A4 in your example) will be hidden.

Did this help?

 

[cyrilbrd]

Sub Hide()

    Application.ScreenUpdating = False
    With ActiveSheet
        For Each cell In Range("A1:A10")
            If cell.Value = "HIDE" Then
                cell.EntireRow.Hidden = _
                Not cell.EntireRow.Hidden
            End If
        Next
    End With
    Application.ScreenUpdating = True

End Sub

Or also this one so you could "hide" and "un-hide" at will simply by activating the shortcut key of your choice... option+command+shift+H in my case...