Preciso fazer um filtro com um determinado valor em uma aba de uma planilha,depois do filtro feito, preciso copiar, abrir um novo documento, e colar essa informção.
Desenvolvi o código abaixo mas não está dando certo.
segue o código
Sub filtrar()
Worksheets(Array("Planilha3", "Planilha2", "Planilha3",)).Copy
ActiveSheet.Range("Planilha3").AutoFilter Field:=Range("E1:E1048576").Column, Criteria1:="Cell 01"
With ActiveWorkbook
ActiveWorkbook.SaveAs Filename:=fname1, FileFormat:=xlOpenXMLWorkbookMacroEnabled
ThisWorkbook.Save
ThisWorkbook.Close
End With
End Sub
Worksheets(Array("Planilha3", "Planilha2", "Planilha3",)).Copy
. O correto seriaWorksheets(Array("Planilha1", "Planilha2", "Planilha3")).Copy
ActiveSheet.Range("Planilha3").AutoFilter
está errado. Você quer filtrar somente a coluna 3 da Planilha3 nova para o dado="Cell 01"
?