Filter Columns With Macro

**nachousa** · 07-14-2010, 12:13 PM

I want to filter a specific column (Selecting two Names) the Run my macro. So in My case Select "Southwood" and uncheck everything else.

This is what I have, but is not working

Sub Filter()
'Number 4 is the Column Number
Dim r As Long
For r = Cells(Rows.Count, 4).End(xlUp).Row To 1 Step -1
    If Cells(r, 4) = "Southwood" Then Rows(r).Select
Next r
Macro1
End Sub

Any Ideas??

**Leith Ross** · 07-14-2010, 01:31 PM

Hello nachousa,

This macro will auto filter column "D" only on the active sheet for any cells that have "Southwood".

Sub FilterColumn()

    With ActiveSheet
      .AutoFilterMode = False
      .Columns("D:D").AutoFilter Field:=1, Criteria1:="Southwood", VisibleDropDown:=True
    End With
    
End Sub

**nachousa** · 07-14-2010, 03:52 PM

Thanks.. that wasn't too bad.
I have a quick question that's unrelated but im a little stuck.
I have a list of numbers. each with a bunch of zeros listed before the num.
ex. 000000005608
00000000000000067890
I dont know why is showing like this but is there a way of removing the zeros before the num.
reslut: 5608 and 67890

Hope you can help!