prezados
Em anexo tem uma planilha e um arquivo .txt
Fiz uma macro para importar os dados do txt para a planilha. Preciso das seguintes correções:
1) a coluna e valor não reconhece como dinheiro. Com isso, as formulas do cabeçalho não funcionam
2) se o texto importado para a coluna descrição tiver a palavra Paypal em qualquer posição ==> a coluna F recebe P
Observações:
1) È importante o teste de qualquer posição pois assim poderei fazer para outros casos que precisar posteriormente
2) e precisar mude o caminho do arquivo txt
Desde já agradeço
Espero ter Ajudado. Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Bom dia,
segue anexo minha contribuição!
Favor fazer os testes e dar o FeedBack.
Não se esqueça de mudar o "Caminho".
Se te ajudei, não esqueça de dar o like e marcar a postagem como "Resolvido".
Abraços!
Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.
Abraços!
Leandro Cordeiro
Uma outra possibilidade>>Altere sua rotina conforme abaixo<<<
Public Sub IMPORTA()
Dim Texto As String, Path As String
Dim L As Long 'linha de gravação
'altere para caminhonome onde seu arquivo está
Path = "D:00NUBANK.txt"
'abre o arquivo texto para leitura.
Open Path For Input As #1
L = 8: Cont = 1
'loop para percorrer todas as linhas do arquivo texto
Do While Not EOF(1)
Line Input #1, Texto 'lê uma linha
Cont = Cont + 1
'Clean - remove caracteres não imprimíveis.
'LTrim remove espaços a esquerda.
Texto = WorksheetFunction.Clean(LTrim(Texto))
'Separa a linha em termos separados por espaço
separa = Split(Texto, "#")
'Grava os termos nas celulas
For x = 0 To UBound(separa)
If x = 0 Then
Cells(L, x + 3) = CDate(separa(x))
ElseIf x = 2 Then
Cells(L, x + 3) = CDbl(separa(x))
Else
Cells(L, x + 3) = separa(x)
If separa(x) Like "*Paypal*" Then Cells(L, x + 4) = "P"
End If
Next
L = L + 1
Loop
Close #1 'fecha o arquivo texto
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
pessoal
Desde ja agradeço as duas resposta e peço desculpas por não ter respondido antes. estive viajando por uns dias..
Leandro: eu não entendi porque tenho que ter 3 macros . Pensei que tinha como fazer tudo em uma única até pelo que entendi vc primeiro importa depois procura e depois formata. Esta funcionando mas na hora de executar tenho que prestar atenção. e não quero ter que colocar um botão em cada planilha
No entanto tem um problema : a planilha que te enviei tem apenas uma aba para facilitar a criação da resposta. Mas a planilha que tenho tem 12 abas. Uma para cada mês Você fixou como aba um . Desta forma quando importo os dados preciso que va para a aba corrente e não para a aba 01. Tem como alterar isso?
Em relação a busca ja adaptei
segue a planilha alterada
Desde já agradeço
Espero ter Ajudado. Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Ha mais uma coisa : se for possivel formatar a coluna de valor sem o simbolo monetario, ou seja ficaria assim por exemplo 98,12.
grato
Espero ter Ajudado. Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Bom dia.
Eu consideraria a hipótese de importar os dados via power query.
Resposta útil? Clique na mãozinha ao lado do botão Citar.
Bom dia!!
Por isso sempre digo para postar a planilha ou a demanda REAL, para evitar retrabalho...
Levando em consideração que este fórum não serve para nada se não contribuir de alguma forma para ajudar os usuários à usarem a cabeça e aprender, minha intenção ao colocar cada procedimento em uma macro separada, foi para organização e para que você possa, além de receber a solução, entender o que fiz.
Quando eu tiver tempo, mexo na sua planilha novamente, estou agarrado com um projeto aqui.
Abraço!
Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.
Abraços!
Leandro Cordeiro
Dei uma olhada aqui!
Veja se é isso que voce precisa...
Desfixei a planilha em que será executada a macro que formata e encontra as "palavras-chave".
Com relação à importação, não mexi, pois voce não pediu.
De qualquer forma, você pode usar o exemplo "For each" para desfixar a importação se desejar.
OBS: Não esquece de alterar o caminho
Abraço!
Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.
Abraços!
Leandro Cordeiro