Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Empilhar múltiplas ...
 
Notifications
Clear all

Empilhar múltiplas colunas numa só em outra aba

 
2024 - VBA & Macros
Post Recente por Mauricio31 7 anos atrás
3 Posts
2 Usuários
0 Reactions
717 Visualizações
RSS
 Mauricio31
(@mauricio31)
Posts: 0
New Member
Topic starter
 

Bom dia amigos.

Sendo objetivo:

Tenho uma planilha com 52 colunas numa aba chamada de ("Plan1")
eu preciso que sejam empilhadas numa única coluna, em outra ("Plan2")
no anexo que estou compartilhando eu fiz o código, mas não consigo que as colunas sejam empilhadas
em outra aba, e também quando alterado algum dado na aba (Plan1) seja apenas atualizado na (Plan2), claro acionando a macro
alguém pode me ajudar por favor!

A planilha em anexo é apenas um exemplo, e já tem o código funcionado mas ele puxa na mesma aba, o objetivo é empilhar e atualizar na (Plan2)
obrigado pessoal.

 
Postado : 18/12/2017 11:32 am
 klarc28
(@klarc28)
Posts: 0
New Member
 

Se foi resolvido o problema, favor marcar o tópico como resolvido.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call Coluna
End Sub

Sub Coluna()
 
 lin = 4
 col = 1
 Linha = 3
 
 Do Until Plan1.Cells(lin, col) = ""
    Do Until Plan1.Cells(lin, col) = ""
        Plan2.Cells(Linha, 8) = Plan1.Cells(lin, col)
        Linha = Linha + 1
        lin = lin + 1
        
    Loop
    lin = 4
    col = col + 1
 
 Loop
 
 End Sub
 
Postado : 18/12/2017 12:05 pm
 Mauricio31
(@mauricio31)
Posts: 0
New Member
Topic starter
 

Klark28, Você é Fera, muitíssimo obrigado amigo.

 
Postado : 18/12/2017 12:29 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico