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

728 Visualizações

RSS

Mauricio31

(@mauricio31)

Posts: 2

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: 971

Prominent 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