Consolidação de aba...
 
Notifications
Clear all

Consolidação de abas - Diversas Planilhas

3 Posts
2 Usuários
0 Reactions
748 Visualizações
(@daniel123)
Posts: 0
New Member
Topic starter
 

Consegui fazer uma Macro que consolida Abas especificas de Diversas Planilhas.
Exemplo:
Quero que abra a (Worksheet1), Procure a Plan(Plan1) e cole os dados aqui Next
Quero que abra a (Worksheet2), Procure a Plan(Plan1) e cole os dados Embaixo de onde colou os dados da Worksheet1 Next
Quero que abra a (Worksheet3), Procure a Plan(Plan1) e cole os dados Embaixo de onde colou os dados da Worksheet2
E assim vai até completar o Loop

Minha duvida é, há Workbooks que não possuo essa Plan1 nomeada e eu gostaria de alguma forma que caso ela não exista, pule para o próximo passo da Macro.

Abaixo exemplo do codigo

Gostaria de que ele verificasse se a Worksheet Workbook(stefFile).Sheets("pt_Capex Compartilhado") existe antes de seguir com a copia dessa Planilha.
Tentei com If, mas não funcionou

Set ShOrigemPL = Workbooks(strFile).Sheets("Quote_P&L")

Sheets("Quote_P&L").Select

'Achar a região a ser copiada
dtOrigem = Cells(3, 5)
Ucol = Cells(4, 4) + 4

'Achar o destino da copia

UlineDBPL = ShDBPL.Cells(Rows.Count, 3).End(xlUp).Row + 1
dtDestino = WorksheetFunction.HLookup(dtOrigem, rgdataPL, 2, 0)

'Copiar
Range(Cells(14, 2), Cells(29, 2)).Copy ShDBPL.Cells(UlineDBPL, 3)
Range(Cells(14, 5), Cells(29, Ucol)).Copy ShDBPL.Cells(UlineDBPL, dtDestino)

'Achar novo destino
UlineDBPL = ShDBPL.Cells(Rows.Count, 3).End(xlUp).Row
UlineDBTVT = ShDBPL.Cells(Rows.Count, 2).End(xlUp).Row + 1

'Copiar TVT
Range(ShDBPL.Cells(UlineDBTVT, 2), ShDBPL.Cells(UlineDBPL, 2)) = TVT

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Set ShOrigemCapexCom = Workbooks(strFile).Sheets("pt_Capex Compartilhado")

Sheets("pt_Capex Compartilhado").Select

Selection.AutoFilter
Cells.Select
Selection.EntireColumn.Hidden = False

 
Postado : 29/03/2018 10:23 am
(@xlarruda)
Posts: 0
New Member
 

Que laço você está fazendo?

Poderia postar?

 
Postado : 29/03/2018 10:34 am
(@daniel123)
Posts: 0
New Member
Topic starter
 

Segue anexo minha planilha que consolida.
Ela busca varios arquivos que possuem um Modelo Padrão. O que eu quero é

Ele busca informação de 4 abas
ARI
P&L
Capex Dedicado
Capex Compartilhado

As abas Capex Dedicado e Capex COmpartilhado não existem em todas as planilhas de minha busca, então queria que ele fizesse uma verificação se aquela aba existe antes de executar a macro, se não gera e erro e interrompe a Macro no meio.

 
Postado : 29/03/2018 11:04 am