copiar dados para outra planilha usando VBA

Anônima

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

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.

0 comentários

Resposta aceita pelo autor da pergunta

Anônima

Utilize o gravador de amcros para auxiliar na sintaxe. Vc não precisa gravar tudo, mas apens a parte que deseja implantar.

0 comentários

41 respostas adicionais

Anônima

2010-02-12T23:46:00+00:00

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!
Esta resposta foi útil?

0 comentários Sem comentários
Anônima

2010-02-12T12:56:44+00:00

Luiz, a principio a macro funcionou, mas qdo. eu altero a data a filtrar pela segunda vez, ele da um erro:

Sub IMP_FILTRO()

'

' IMP_FILTRO Macro

' Macro gravada em 12/02/2010 por calpar com. de calcario ltda.

    Sheets("Dados").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 => O método Paste da classe worksheet falhou

End Sub

Detalhe: Eu uso uma macro para limpar a plan Filtro.
Esta resposta foi útil?

0 comentários Sem comentários
Anônima

2010-02-12T12:19:19+00:00

Se vc não tinha filtro já setado, vc precisa disparar o filtro antes.

Sheets("Dados").Select

Selection.AutoFilter

Selection.AutoFilter Field:=2, Criteria1:=Range("ER2").Value
Esta resposta foi útil?

0 comentários Sem comentários
Anônima

2010-02-12T11:57:34+00:00

Sub IMP_FILTRO()

'

' IMP_FILTRO Macro

'

    Sheets("Dados").Select

    Selection.AutoFilter Field:=2, Criteria1:=Range("ER2").Value

    Range("A3:BL65536").Select    'Esse intervalo irá até a ultima linha da plan dados

    Selection.Copy

    Sheets("FILTRO").Select

    ActiveSheet.Paste

End Sub

Ainda não executou o filtro. Os campos na cel dados e filtro estão formatados como data (29/10/09)
Esta resposta foi útil?

0 comentários Sem comentários