Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro Formatação de...
 
Notifications
Clear all

Macro Formatação de informações nas colunas corretas

 
2024 - VBA & Macros
Post Recente por cmbruno 9 anos atrás
4 Posts
3 Usuários
0 Reactions
1,223 Visualizações
RSS
 cmbruno
(@cmbruno)
Posts: 73
Estimable Member
Topic starter
 

Boa tarde,

Pessoal venha se podem me dar uma ajuda,

Em anexo esta indo uma planilha em excel com duas abas onde a primeira é o exemplo
de como recebo o formulario.

Nessa existem informações na coluna L onde estão fora de Ordem. Se olharem verão que
na celula L9 era pra ser vazia e a informação dela era pra estar na celula N9 e assim as informações
subsequentes.

Na aba 2 no anexo existem o mesmo relatório e com a informação de como preciso que fique.

Obs. as que estão em amarelo são somente um exemplo, preciso fazer isso para toda a planilha e outras com muito mais linhas.

Será que existe uma macro para executar esse processo?

Relatório.xlsx
 
Postado : 16/11/2015 2:00 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

cmbruno,

Boa Tarde!

Veja se é assim.

Relatório.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 16/11/2015 2:45 pm
 EDIVAN
(@edivan)
Posts: 119
Estimable Member
 

Olha não sei se isso vai te ajudar mas tenta aí:

execute essa macro na sua planilha só vai funcionar se os dados estiverem como estão na plan1 e não serão copiados para plan2 eles serão corrigidos na própria plan1...

Sub CORRIGIR_RELATORIO()

Dim LIN As Integer
LIN = 8

Do Until Plan1.Range("L" & LIN).Value = ""
If Plan1.Range("K" & LIN).Value = "" Then
Plan1.Range("R" & LIN).Value = Plan1.Range("P" & LIN).Value
Plan1.Range("Q" & LIN).Value = Plan1.Range("O" & LIN).Value
Plan1.Range("P" & LIN).Value = Plan1.Range("N" & LIN).Value
Plan1.Range("O" & LIN).Value = Plan1.Range("M" & LIN).Value
Plan1.Range("N" & LIN).Value = Plan1.Range("L" & LIN).Value

Plan1.Range("L" & LIN).Value = ""
Plan1.Range("M" & LIN).Value = ""
End If
LIN = LIN + 1
Loop

End Sub

Se tiver um tempinho visite meu blog:

programacaopassoapasso.wordpress.com

 
Postado : 16/11/2015 3:01 pm
 cmbruno
(@cmbruno)
Posts: 73
Estimable Member
Topic starter
 

Boa tarde,

Pessoal gostaria de agradecer ao colegas Wagner Morel e Edivan que apresentaram 2 soluções para o problema e ambos atentem perfeitamente ao meu pedido de ajuda.

Meu grande obrigado aos colegas sempre prestativos.

 
Postado : 16/11/2015 3:12 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico