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-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

Anônima

Vamos analisar....

Sub IMP_FILTRO() 'Seleção da planilah de dados Sheets("Dados").Select

'Indicação de autofiltro para a data
'É AQUI QUE VC DEVE PEGAR O VALOR DA SUA CÉLULA - PODE SER NECESSÁRIO FORMATAR O CONTEÚDO DA CÉLULA NA MACRO!
Selection.AutoFilter Field:=2, Criteria1:=Range("ER2").Value
 
'Seleção de dados
Range("A3:BL6").Select           'Área filtrada na planilha dados

' Cópia
Selection.Copy
Sheets("FILTRO").Select
ActiveSheet.Paste

End Sub

0 comentários