Thread: Insert Row Depending on Cell Value

I have a worksheet in which the cell in column B of the membership list contains a 'Y' or a 'N', depending on whether someone is a member or not.

I want to write a macro, whereby, on clicking the macro button, only rows with a 'Y' will show. Rows with a 'N' will be hidden.

Any help appreciated.

Thanks jaslake,

I am a non-programmer. So, I only know how to work with simple macros. Can you show me how you have connected the command buttons to the VBA code?

I already have the following code under sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim TestRangeString As String
    If Target.Cells.Count > 1 Then
        Exit Sub
    End If
    On Error GoTo ErrHandler:
    TestRangeString = "B8:B100,G8:J100"
    If Not Application.Intersect(Range(TestRangeString), Target) Is Nothing Then
        If IsNumeric(Target.Value) = False Then
            Application.EnableEvents = False
            'Target.Value = StrConv(Target.Text, vbLowerCase)
            Target.Value = StrConv(Target.Text, vbUpperCase)
            'Target.Value = StrConv(Target.Text, vbProperCase)
            Application.EnableEvents = True
        End If
    End If
ErrHandler:
    Application.EnableEvents = True

    Dim TestRangeString2 As String
    If Target.Cells.Count > 1 Then
        Exit Sub
    End If
    On Error GoTo ErrHandler2:
    TestRangeString2 = "C8:C100,D8:D100,E8:E100"
    If Not Application.Intersect(Range(TestRangeString2), Target) Is Nothing Then
        If IsNumeric(Target.Value) = False Then
            Application.EnableEvents = False
            'Target.Value = StrConv(Target.Text, vbLowerCase)
            'Target.Value = StrConv(Target.Text, vbUpperCase)
            Target.Value = StrConv(Target.Text, vbProperCase)
            Application.EnableEvents = True
        End If
    End If
ErrHandler2:
    Application.EnableEvents = True
End Sub

Can we not just do it with sinple macros and macro buttons?

Thanks.

Thanks davesexcel ,

All sorted out.

You may mark this thread as SOLVED.