Runtime error 1004...Autofilter method of rangefailed....

[pedie]

Why is this error happening...i think it is coded correctly...

[/FONT]
[FONT=Courier New]Sub filterme()
Dim x As String
Dim lr&
x = ActiveSheet.ComboBox1.Value
lr = Sheets("HOME").Range("K" & Rows.Count).End(xlUp).Row[/FONT]
[FONT=Courier New]ActiveSheet.Range("K1:N" & lr).Select
ActiveSheet.AutoFilterMode = False
ActiveSheet.Range("K1:N" & lr).AutoFilter Field:=4, Criteria1:=x
Range("K1:N" & lr).SpecialCells(xlCellTypeVisible).Copy Range("B2")
ActiveSheet.AutoFilterMode = False
End Sub[/FONT]
[FONT=Courier New]

 

[Andrew Poulsom]

Is HOME the active sheet? Is the active sheet protected?

 

[jim may]

It worked for me. What line is producing the error (Stepping thru it - using F8)?

 

[pedie]

ActiveSheet.Range("K1:N" & lr).AutoFilter Field:=4, Criteria1:=x
It error in the above line.

Home sheet is the active sheet...

Thanks again for helping.

It works for me too if I f8 but when I run, It errors...
This is connected to combo box whose change events fires this vba...

 

[Andrew Poulsom]

For some reason the AutoFilter is causing the ComboBox's Change event procedure to run again. Try disabling events like this:

Dim EventsDisabled As Boolean
 
Private Sub ComboBox1_Change()
    If EventsDisabled = True Then Exit Sub
    EventsDisabled = True
    Call filterme
    EventsDisabled = False
End Sub

 

[pedie]

Andrew, thank you soo much...!!!
This helps alot.