Não sou entendido de VBA, mas sou curioso e com a ajuda de alguns vídeos no youtube estou tentando automatizar uma planilha para meu trabalho. Porém, quando tento executar uma macro ocorre o erro: "Erro em tempo de execução: '438': O objeto não aceita esta propriedade ou método".
Pedi para depurar e pelo pouco que entendo é que talvez o destino do resultado esteja com problema, mas não consigo identificar o problema. O que estou tentando fazer é um filtro avançado para extrair informações de uma base de dados, e para isto estou usando a seguinte macro:
Public Sub GerarConsulta()
ShtConsulta.Range("CriterioData") = ShtConsulta.Range("RelatorioData").Value
ShtConsulta.Range("CriterioComanda") = ShtConsulta.Range("RelatorioComanda").Value
ShtConsulta.Range("CriterioItem") = ShtConsulta.Range("RelatorioItem").Value
ShtConsulta.Range("CriterioPagto") = ShtConsulta.Range("RelatorioPagto").Value
ShtConsulta.Range("CriterioSituacao") = ShtConsulta.Range("RelatorioSituacao").Value
ShtConsulta.Range("CriterioConsultor") = ShtConsulta.Range("RelatorioConsultor").Value
ShtConsulta.Range("CriterioBaixa") = ShtConsulta.Range("RelatorioBaixa").Value
ShtLancamentos("B3").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=ShtConsulta.Range("Criterios"), _
CopyToRange:=ShtConsulta.Range("LocalRelatorio"), Unique:=False
End Sub
O local de consulta e a base de dados estão em planilhas distintas. Quando coloco para depurar, toda essa segunda parte fica amarela (a partir do shtlancamentos), porém aparece uma setinha na terceira linha (CopyToRange...).
SALADERIA UNIC.rar