Notifications
Clear all
2024 - VBA & Macros
2
Posts
2
Usuários
0
Reactions
1,108
Visualizações
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!
Este tópico foi modificado 3 anos atrás by rafa2812
Postado : 23/09/2022 10:59 am
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