Using the following sub to act as a

[Yogi39]

Using the following sub to act as a filter....
I have about 5000 records.
This sub is low...!
is this the fastest way to show and hide rows based on the same logic of the below cod ?
can I incorporate the logic in a filter ?

Sub OptionButton3863_Click()
Dim rr As String
Application.ScreenUpdating = False
For Each r In Sheets("Master").Range("A:A")
If r.Row > 3 Then
If r = "" Then Exit For
    If IsNumeric(r) And r < 2000 Then
    r.EntireRow.Hidden = True
    Else
    r.EntireRow.Hidden = False
    End If

    If Not IsNumeric(r) Then
    rr = r.Value
    If GetDigits(rr) < 2000 Then
    r.EntireRow.Hidden = True
    Else
    r.EntireRow.Hidden = False
    End If
    End If
    
End If
Next
Application.ScreenUpdating = True
End Sub

 

[SkipVought]

Yogi,

Why not turn on the filter, macro recorder and see what you get. Then modify to fit.



Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884