ORGANIZACAO DE DADOS

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

ORGANIZACAO DE DADOS

Mensagempor luke002 » Ter Fev 13, 2018 6:45 am

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.
Você não está autorizado a ver ou baixar esse anexo.
Editado pela última vez por wagner em Ter Fev 13, 2018 7:41 am, em um total de 1 vez.
Razão: Títulos não devem conter expressões como "ajuda", "help" ou similar pois prejudicam o sistema de pesquisas
luke002
Membro
Membro
 
Mensagens: 21
Registrado em: Ter Fev 13, 2018 6:37 am
Has thanked: 11 times
Have thanks: 0 time

{ SO_SELECT }

Re: (AJUDA) ORGANIZACAO DE DADOS

Mensagempor Reinaldo » Ter Fev 13, 2018 7:49 am

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
Reinaldo
Gostou da resposta? Clique no ícone "Positivo" da mensagem!(ao lado de citar)
Avatar do usuário
Reinaldo
Expert
Expert
 
Mensagens: 4135
Registrado em: Sáb Dez 19, 2009 9:59 am
Localização: Garça - SP / SCS - SP
Has thanked: 178 times
Have thanks: 1891 times

Re: (AJUDA) ORGANIZACAO DE DADOS

Mensagempor luke002 » Ter Fev 13, 2018 7:55 am

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
luke002
Membro
Membro
 
Mensagens: 21
Registrado em: Ter Fev 13, 2018 6:37 am
Has thanked: 11 times
Have thanks: 0 time

Re: ORGANIZACAO DE DADOS

Mensagempor wagner » Ter Fev 13, 2018 8:24 am

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?
Se a resposta foi útil para você, por gentileza, Amigo, clique na mãozinha ao lado direito da ferramenta CITAR, no canto superior direito.

Atenciosamente
Wagner Morel

For this post the author wagner thanked:
luke002 (Ter Fev 13, 2018 3:03 pm)
Avatar do usuário
wagner
Moderador
Moderador
 
Mensagens: 3590
Registrado em: Sáb Out 20, 2012 12:49 pm
Localização: Fortaleza - CE
Has thanked: 62 times
Have thanks: 1554 times

Re: ORGANIZACAO DE DADOS

Mensagempor luke002 » Ter Fev 13, 2018 3:07 pm

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
luke002
Membro
Membro
 
Mensagens: 21
Registrado em: Ter Fev 13, 2018 6:37 am
Has thanked: 11 times
Have thanks: 0 time

Anexo

Mensagempor klarc28 » Ter Fev 13, 2018 3:20 pm

........
Você não está autorizado a ver ou baixar esse anexo.
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.

For this post the author klarc28 thanked:
luke002 (Ter Fev 13, 2018 8:32 pm)
klarc28
Membro
Membro
 
Mensagens: 840
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 18 times
Have thanks: 340 times

Re: ORGANIZACAO DE DADOS

Mensagempor luke002 » Ter Fev 13, 2018 8:32 pm

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''
Você não está autorizado a ver ou baixar esse anexo.
luke002
Membro
Membro
 
Mensagens: 21
Registrado em: Ter Fev 13, 2018 6:37 am
Has thanked: 11 times
Have thanks: 0 time

Re: ORGANIZACAO DE DADOS

Mensagempor klarc28 » Ter Fev 13, 2018 9:05 pm

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.

Código: Selecionar todos
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.
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.

For this post the author klarc28 thanked:
luke002 (Qua Fev 14, 2018 11:10 pm)
klarc28
Membro
Membro
 
Mensagens: 840
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 18 times
Have thanks: 340 times

Re: ORGANIZACAO DE DADOS

Mensagempor klarc28 » Qua Fev 14, 2018 11:39 pm

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.
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 840
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 18 times
Have thanks: 340 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: boobymcgee, cavalcante, Google [Bot], Google Adsense [Bot] e 4 visitantes