VBA Transpor dados com critério

2024 - VBA & Macros

Post Recente por Osvaldomp 3 anos atrás

2 Posts

2 Usuários

0 Reactions

1,119 Visualizações

RSS

rafa2812

(@rafa2812)

Posts: 2

New Member

Topic starter

Ola, bom dia.

Gostaria de saber se é possivel fazer um código em vba que atenda ao cenário do arquivo anexo

A questão é que o arquivo que eu importo, me traz as informações das contas, pagamentos/recebimentos e saldo da conta, tudo na mesma coluna.

Queria uma forma de extrair os ranges de "Acc xxx" até o "Saldo xxx" e transpor para outras colunas.

as "Ref xxx" correspodem ao valor acima deles, por ex: a ref da célula A4 corresponde ao valor na célula A3.

as contas (Acc xxx) podem ter mais valores e referencias, menos referencias ou nenhuma referencia (nesse caso, fica apenas a linha do numero da conta (ACC xxx) e o saldo da conta (Saldo xxxx)

Alguem poderia me ajudar com este código?

desde ja agradeço!

Pasta-de-trabalho-1.xlsx

Este tópico foi modificado 3 anos atrás by rafa2812

Postado : 23/09/2022 10:59 am

Tags do Tópico

Transpose vba critério

Osvaldomp

(@osvaldomp)

Posts: 888

Prominent Member

Olá, @rafa2812.

Experimente:

Sub RearranjaDados()
Dim c As Range, k As Long, v As Long
For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
If Left(c.Value, 3) = "Acc" Then
Cells(k + 2, v + 3) = c.Value: k = k + 1
ElseIf Left(c.Value, 5) <> "Saldo" Then
Cells(k + 2, v + 3 - (IsNumeric(c.Value) + 0)) = c.Value: k = k - (Not IsNumeric(c.Value) + 0)
Else: Cells(k + 2, v + 3) = c.Value: v = v + 3: k = 0
End If
Next c
End Sub

Osvaldo

Postado : 23/09/2022 4:54 pm