RunTime Error 1004 When Auning AutoFilter

Bwolosz

New Member
Joined
Jul 10, 2019
Messages
6
Good Morning Everyone,

Looking for some recommendations on how I could prevent the RunTime Error 1004 while running VBA for an AutoFilter routine.

In the work sheet I have a ActiveX Combobox that is being used to select a value.
I would then like to filter records in a range of "A15:F" & LRow ( Last Row )
The code is being run on the selection of a new value in the ComboBox

Below is the code I have been working with.




Private Sub ComboBox1_Change()


Dim ComboVal As Long
Dim LRow As Long


LRow = Sheets("Labor_Entry_Form").Cells(Rows.Count, "A").End(xlUp).Row
ComboVal = ComboBox1.Value


With Sheets("Labor_Entry_Form")
.AutoFilterMode = False
.Range("A15:F" & LRow).AutoFilter
.Range("A15:F" & LRow).AutoFilter Field:=1, Criteria1:=ComboVal
End With




End Sub


Any help is greatly appreciated.

Thanks,

Bradley
 

Some videos you may like

Excel Facts

Spell Check in Excel
Press F7 to start spell check in Excel. Be careful, by default, Excel does not check Capitalized Werds (whoops)

dmt32

Well-known Member
Joined
Jul 3, 2012
Messages
5,907
Office Version
2019
Platform
Windows
Hi,
try this update to your code

Code:
Private Sub ComboBox1_Change()
    Dim ComboVal As String
    Dim LRow As Long
    
    With Me.ComboBox1
        If .ListIndex = -1 Then Exit Sub
        ComboVal = .Value
    End With
    
    With Sheets("Labor_Entry_Form")
'add password as required
        .Unprotect Password = ""
        LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        With .Range("A15:F" & LRow)
            .AutoFilter
            .AutoFilter Field:=1, Criteria1:=ComboVal
        End With
    End With
    
End Sub
Dave
 

Bwolosz

New Member
Joined
Jul 10, 2019
Messages
6
Thanks for the suggestion Dave.
I tried the code and am still receiving the same 1004 error.

I just tried to run the code against a filter button I added to the sheet, and everything seems to work fine?!?!

I really do appreciate your attempt to help.

Thanks,

Bradley

Hi,
try this update to your code

Code:
Private Sub ComboBox1_Change()
    Dim ComboVal As String
    Dim LRow As Long
    
    With Me.ComboBox1
        If .ListIndex = -1 Then Exit Sub
        ComboVal = .Value
    End With
    
    With Sheets("Labor_Entry_Form")
'add password as required
        .Unprotect Password = ""
        LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        With .Range("A15:F" & LRow)
            .AutoFilter
            .AutoFilter Field:=1, Criteria1:=ComboVal
        End With
    End With
    
End Sub
Dave
 

Watch MrExcel Video

Forum statistics

Threads
1,101,886
Messages
5,483,513
Members
407,397
Latest member
HerbA

This Week's Hot Topics

  • Finding issue in If elseif else with For each Loop
    Finding issue in If elseif else with For each Loop I have tried this below code but i'm getting in Y column filled with W005. Colud you please...
  • MsgBox Error
    Hi Guys, I have the below error show up when i try and run my macro in File1 but works fine if i copy and paste the same code into file2. [ATTACH...
  • CELL FORMAT - IF CONDITION
    My Cell Format is [B]""0.00" Cr". [/B]But in the cell, it is showing 123.00 for editing. (123 is entry figure). (Data imported from other...
  • Show numbers nearly the same
    Is this possible. I have a number that can change very time eg 0.00001234 Then I have a lot of numbers 0.0000001, 0.0000002, 0.00000004...
  • Please i need your help to create formula
    I need a formula in cell B8 to do this >>if b1=1 then multiply ( cell b8) by 10% ,if b1=2 multiply by 20%,if=3 multiply by 30%. Thank you in...
  • Got error while adding column and filter
    Got error while adding column and filter In column Z has some like "Success" and "Error". I want to add column in AA if the Z cell value is...
Top