VBA Advanced Filter

[aymarhoon]

Hi guys

I am getting run-time-error '13' Type mismatch when I run the below code, can you help to identify what is wrong in my code?

Sub FILTERData()
Dim rngData As Range, rngCriteria As Range, rngOutput As Range

Set rngData = Sheets("RawData").ListObjects("tblTrRawData")
Set rngCriteria = Sheets("Groups").Range("I29:L30")
Set rngOutput = Sheets("Groups").ListObjects("tblGrNames")

  rngData.AdvancedFilter xlFilterCopy, rngCriteria, rngOutput
End Sub

 

[DanteAmor]

Welcomw to MrExcel!

Try this

Sub FILTERData()
  Dim rngData As Range, rngCriteria As Range, rngOutput As Range
  
  Set rngData = Sheets("RawData").Range("tblTrRawData[#All]")
  Set rngCriteria = Sheets("Groups").Range("I29:L30")
  Set rngOutput = Sheets("Groups").Range("tblGrNames[#All]")

  rngData.AdvancedFilter xlFilterCopy, rngCriteria, rngOutput
End Sub

Note: The number of rows in the destination table must have the number of rows to receive or send you a warning.