Notifications
Clear all

ORGANIZACAO DE DADOS

9 Posts
4 Usuários
0 Reactions
1,640 Visualizações
(@luke002)
Posts: 0
New Member
Topic starter
 

Boa tarde

Gostaria de ajuda em uma macro para organizar as informacoes do jeito que eu preciso na planilha e bem simples porem estou enferrujado no excel.

Gostaria de pegar a a informacao da coluna ''A'' e organizar ela na coluna ''C'' que e a data ''d'' valores , ''e'' nome e por fim ''F'' descricao

Todas as informacoes ficam compactadas na coluna A queria so dividilas nos campos corretos

13/02/2018,"+385.00","Direct Credit 421520 NAM YANG Rent 400-15 LT","+6604.27"

as informacoes coloridas sao as que eu preciso

a planilha esta em anexo

Obrigado.

 
Postado : 13/02/2018 4:45 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Mas qual o criterio para "encontrar/extrair" os dados para coluna E e F.
Lembre-se: Voçe tem pleno conhecimento de seu assunto/necessidade, os colaboradores do Fórum muito provavelmente não.
Outras linhas o que considerar??
Quando for -->Transfer from SANJIB THAPA MAG CommBank app Rent o que considerar. Motivo??
e em -->Transfer from CommBank app

Em sua primeira linha qual o motivo de rente repetir em E e F

 
Postado : 13/02/2018 5:49 am
(@luke002)
Posts: 0
New Member
Topic starter
 

Reinaldo

13/02/2018,"+385.00","Direct Credit 421520 NAM YANG Rent 400-15 LT","+6604.27"

O criterio sao as informacoes em negrito que sao as que eu preciso. Acredito que podem ser feitas de duas formas ou contando os caracteres e trazendo para as colunas corretas ou removendo as informacoes que nao sao necessarias da coluna A

Exemplo

13/02/2018,"+385.00","Direct Credit 421520 NAM YANG Rent 400-15 LT","+6604.27"

Como ficaria

13/02/2018 385.00 NAM YANG Rent 400-15 LT

 
Postado : 13/02/2018 5:55 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

luke002,

Bom dia!

Seja muito bem vindo ao fórum.

Para aproveitar ao máximo o fórum e sempre manter o mesmo de forma organizada, sugiro ler os tópico da regras abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Quanto a sua dúvida, acredito que você não entendeu o que o Reinaldo perguntou a respeito do critério. Afirmar que o critério é o que está em negrito (ou colorido como no seu primeiro post) não é um critério para programação. Entende?

Para se programar corretamente o que você necessita, é necessário haver um critério padrão em cada uma das linhas onde a parte de texto deve ser extraído. No exemplo que você colocou não há esse padrão.

Para exemplificar: Na coluna E do seu exemplo, linha 2, você disse que deve ser separado "NAM YANG Rent" e na coluna F deve ser "Rent 400-15 LT". Já na coluna E da linha 3 é só um nome e não há nada na coluna F. Como, em programação, vamos saber o que pegar?

 
Postado : 13/02/2018 6:24 am
(@luke002)
Posts: 0
New Member
Topic starter
 

Ola

Uma macro para remover os seguintes caracteres da coluna A ajudaria bastante.

,"+
","
Direct Credit
Transfer from
","
+
"
Antes
13/02/2018,"+385.00","Direct Credit 421520 NAM YANG Rent 400-15 LT","+6604.27"
depois
13/02/2018 385.00 421520 NAM YANG Rent 400-15 LT 6604.27

 
Postado : 13/02/2018 1:07 pm
(@klarc28)
Posts: 0
New Member
 

........

 
Postado : 13/02/2018 1:20 pm
(@luke002)
Posts: 0
New Member
Topic starter
 

Perfeito.

Ajustei aqui pra exatamente o que eu preciso.

So um detalhe como eu poderia dividir as informacoes da coluna A na coluna ''C'' , ''D'' ,''E'' , ''F''

 
Postado : 13/02/2018 6:32 pm
(@klarc28)
Posts: 0
New Member
 

Para fazer isso, é preciso que todas as strings tenham um delimitador claro. Usei o underline como delimitador.
Além disso, é necessário que todas as strings estejam padronizadas. Por exemplo, se algumas strings apresentarem falha na terceira parte (apenas uma hipótese), aí já vai dar erro, pois o código pode considerar a quarta como terceira, a quinta como quarta e a sexta como quinta...
Em caso de falhas, vai te dar uma tremenda dor de cabeça.

Option Explicit

Sub dividir()

On Error Resume Next
Dim linha As Long
Dim str() As String
linha = 2

While Plan1.Range("A" & linha).Value <> ""
str = Split(Plan1.Range("A" & linha).Value, "_")
Plan1.Range("C" & linha).Value = str(0)
Plan1.Range("D" & linha).Value = str(1)
Plan1.Range("E" & linha).Value = str(2)
Plan1.Range("F" & linha).Value = str(3)

linha = linha + 1
Wend


End Sub

Cinco dicas que foram muito úteis para mim:

1) Quando não sei fazer algo no VBA, vou ao menu EXIBIÇÃO >> MACROS >> GRAVAR MACRO
Faço o que eu quero aí volto ao menu EXIBIÇÃO >> MACROS >> PARAR GRAVAÇÃO
Aperto Alt + F11 e vejo como a macro fez aqui. Tento entender e tento adaptar.

2) Quando vou criar um código e o resultado não está saindo como o esperado, entro no código e vou apertando F8 para executar passo a passo, aí vou passando o mouse sobre as variáveis para verificar se o valores delas estão corretos, já consertei milhares de códigos dessa forma.

3) Antes de executar o código, vou ao menu Depurar >> Compilar. Isso ajuda corrigir erros mais simples, como o nome de uma variável digitado errado.

4) Declaro todas as variáveis. Isso também evita erros.

5) Sempre uso o Option Explicit lá no início. Ele me obriga a declarar as variáveis.

 
Postado : 13/02/2018 7:05 pm
(@klarc28)
Posts: 0
New Member
 

Você deve marcar como resolvido na parte que te ajudou, não na sua própria parte.
Eu também peço aos moderadores deste fórum que criem um procedimento que impeça que os usuários façam isso, pois é algo que ocorre com muita frequência.

 
Postado : 14/02/2018 9:39 pm