Não há mais suporte para esse navegador.
Atualize o Microsoft Edge para aproveitar os recursos, o suporte técnico e as atualizações de segurança mais recentes.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Pessoal, bom dia.
Estou precisando de um exemplo de macro que copie um intervalo de linhas de uma planilha (dados) para a planilha Filtro, baseado na informação retirada de uma textbox.
Ex.: Na planilha dados, eu tenho os campos: série, data, hora, umidade. Na textbox eu lanço a data e quero que a VBA retorne todos os lançamentos com essa data na planilha filtro, independente da hora lançada. To quabrando a cuca aqui e naum tah dando certo.
Outro problema. Essas informações eu retiro de um arquivo .txt que coleta as leituras de uma placa leitora. eu preciso filtrar esses dados para que a VBA naum replique informações que eu já baixei.
Grato pela ajuda
Processos no Microsoft 365 para configurar aplicativos do Office, resgatar chaves de produto e ativar licenças.
Pergunta bloqueada. Essa pergunta foi migrada da Comunidade de Suporte da Microsoft. É possível votar se é útil, mas não é possível adicionar comentários ou respostas ou seguir a pergunta.
Utilize o gravador de amcros para auxiliar na sintaxe. Vc não precisa gravar tudo, mas apens a parte que deseja implantar.
Eu alterei a linha, mas o erro persiste...
Sub IMP_FILTRO()
Sheets("Dados").Select
Plan1.Range("A3:BL65536").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=Plan2.Range("ER2").Value
'Plan1.Range("A3:BL65536").Select
Selection.Copy
Sheets("FILTRO").Select
Range("A3").Select
ActiveSheet.Paste
On Error Resume Next
End Sub
Vamos focar no primeiro problema. Antes da linha de slection.filter, selecione todo o intervalo a ser filtrado. Ito deve resolver o problema do filtro na segunda inha. Insira algo do tipo:
Range("A1:z1000").select
Bom dia, Luiz
Primeiramente, quero agradecer a vossa ajuda. Muito obrigado.
Vamos lá...Quando eu crio o filtro pela primeira vez, a macro execura perfeitamente e insere os filtros na linha de cabeçalho da planilha Dados. Após informar a data de referencia na textbox, a macro executa perfeitamente e lança os dados filtrados da plan Dados para a planilha filtro. O problema se dá em razão de eu querer executar outro filtro com data diferente. A macro cria o filtro na linha de registro. aí acontece o erro. Os filtros criados avançam uma linha abaixo do cabeçalho. Para isso naum ocorrer, tenho que sair do documento e abrir ele novamente.
Outra duvida minha que naum estou conseguindo ececutar é um código que filtre as informações que já baixei e naum duplique na pasta dados. Para essa informação naum duplicar. eu tenho que tomar por referencia a hora da gravação no arquivo .txt. Preciso que a macro naum repita informação na planilha dados.
Att.
Acho que esta linha esta inconsistente:
Plan1.Range("A3:BL65536").Select
Não tem relação com o erro, que esta estranho. Vc consegue colar e copiar sem ser via macro? Se conseguir, tem algum detalhe que vc não passou!