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.
Luiz, a rotina IMP_FILTRO executa uma filtragem baseado na plan dados, que eh onde eu adiciono os dados do arquivo.txt, e lança esses dados ja filtrados na plan FILTRO. Esse procedimento é realizado para que eu possa gerar os graficos e possiveis relatórios já com os dados filtrados. Ex.: Eu seleciono o dia 28.10.09 e a rotina IMP_FILTRO GRAVA NA PLAN FILTRO somente os dados da data em questao. O problema está em atualizar a Plan dados com informações atualizadas do arquivo .txt.
Os critérios são no filtro que vc faz para copiar os arquivos, na rotina IMP_FILTRO (nome anterior!).
Bom dia, Luiz...
Esse é o código que eu utilizo para a importação do arquivo .txt, mas não sei exatamente onde eu insiro os critérios para o filtro. O problema é que eu tenho que executar uma verificação dos arquivos da plan dados e importar do txt as informações que forem iguais a data e > hora já gravada, pois pode ocorrer de ser realizada mais de uma importação num mesmo dia.
Sub ATUALIZAR()
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\rogerio\Desktop\Granfinale\pen1.txt", Destination:=ActiveCell)
.Name = "pen1"
On Error Resume Next
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _
, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
As células da plan dados são: data = B3:B65356
hora = C3:C65356
Obrigado por enquanto...
Vc deve estar abrindo o txt para carregar os dados. É neste TXT , depois de aberto, que vc precisa adicionar os critério de filtro. Ou seja, vc sempre carrega todo o TXT, pois ele é sua base, mas só copia o que interessa.