Notifications
Clear all

Macro que consolida as informações

4 Posts
3 Usuários
0 Reactions
1,055 Visualizações
(@anacletotranstusa)
Posts: 64
Estimable Member
Topic starter
 

Olá,

Sei que vai parecer uma tarefa redundante, mas é uma necessidade, pois preciso que o lançamento seja realizado separado e também preciso que todos os lançamentos estejam consolidados em uma unica planilha. Sendo assim preciso criar uma macro que ao abrir a planilha execute a macro onde copia as informações das abas "Tupy,Centro,Vila_Nova e norte" e cola na Aba BaseDados.
Desde já agradeço a atenção.
Abraço!

 
Postado : 23/09/2016 10:47 am
(@wzxnet7)
Posts: 0
New Member
 

Boa tarde
Sugiro postar um modelo de sua planilha.

 
Postado : 23/09/2016 11:33 am
(@anacletotranstusa)
Posts: 64
Estimable Member
Topic starter
 

Desculpas! Esqueci de anexar o modelo!

 
Postado : 23/09/2016 11:58 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Sub UsePesquisaDoForum()
Dim ws As Worksheet

    For Each ws In Sheets(Array("Tupy", "Centro", "Vila_Nova", "Norte"))
        ws.Range("A2", ws.Range("H" & Rows.Count).End(xlUp)).Copy Worksheets("BaseDados").Range("A65536").End(xlUp)(2)
    Next ws
End Sub

Att

 
Postado : 23/09/2016 2:04 pm