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