copiar dados para outra planilha usando VBA

Anônima
2010-02-12T10:27:49+00:00

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

Microsoft 365 e Office | Instalar, resgatar, ativar | Para uso doméstico | Outro

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 Sem comentários
Resposta aceita pelo autor da pergunta
Anônima
2010-02-23T12:39:25+00:00

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

Esta resposta foi útil?

0 comentários Sem comentários

41 respostas adicionais

Classificar por: Mais Novo
  1. Anônima
    2010-02-12T11:48:13+00:00

    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

    Esta resposta foi útil?

    0 comentários Sem comentários
  2. Anônima
    2010-02-12T11:43:24+00:00

    Sub IMP_FILTRO()

    '

    ' IMP_FILTRO Macro

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

    '

    '

        Sheets("Dados").Select

        Selection.AutoFilter Field:=2, Criteria1:="28/10/09"

        Range("A3:BL6").Select           'Área filtrada na planilha dados

        Selection.Copy

        Sheets("FILTRO").Select

        ActiveSheet.Paste

    End Sub

    Detalhe: A informação da textbox eu lanço na célula "ER2" da planilha filtro.

                 A planilha dados irá receber as leituras do arquivo .txt....E serão muitas. uma leitura a cada 10 min.

    Esta resposta foi útil?

    0 comentários Sem comentários
  3. Anônima
    2010-02-12T11:34:17+00:00

    Coloque a macro que vc gravou.

    Esta resposta foi útil?

    0 comentários Sem comentários
  4. Anônima
    2010-02-12T11:15:26+00:00

    Luiz, eu segui os passos sugeridos, mas mesmo assim não retornou o resultado esperado.

    Esta resposta foi útil?

    0 comentários Sem comentários