Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
VBA Transpor dados ...
 
Notifications
Clear all

VBA Transpor dados com critério

 
2024 - VBA & Macros
Post Recente por Osvaldomp 2 anos atrás
2 Posts
2 Usuários
0 Reactions
1,057 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!

 

Este tópico foi modificado 2 anos atrás by rafa2812
 
Postado : 23/09/2022 10:59 am
Tags do Tópico
Transpose vba critério
 Osvaldomp
(@osvaldomp)
Posts: 857
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
Forum Jump:
  Tópico Anterior
Próximo Tópico  
Tópicos Relacionados
Tags do Tópico:  Transpose (2) , vba (65) , critério (4) ,