paulod3

Cara, acho que vai dar boa, assim que tiver o resultado te falo..

Workbooks.Open Filename:= _ "C:\DOCUMENTOS\2015\07 - Julho\FILIAL01.xlsx" Sheets("Indicador Mensal").Select Range("F24:Q24").Select Selection.Copy Windows("Consolidação.xlsm").Activate Range("D4:O4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("FILIAL01.xlsx").Activate ActiveWindow.Close FalseSim, foi feita por gravação, acima código, ele se repete 40 vezes mudando para filial02, filial03..etc. Muda também, "Range("D4:O4").Select" que é o destino onde colo na consolidada. Preciso que haja uma célula na planilha onde eu mude o texto de Junho para Julho e todas as linhas atualizem.. Workbooks.Open Filename:= _ "C:\DOCUMENTOS\2015\07 - Julho\FILIAL01.xlsx" desde já obrigado.

Nelson, Sim, a pasta é (C:\Documentos\2015) com 40 planilhas.xlsx (ex.: filial01.xlsx, filial02.xlsx..etc.) Tenho que pegar as informações individualmente e trazer para outra planilha (ex.: consolidado.xlms) onde a macro é executada

Pessoal, sou iniciante em VBA.. Seguinte.. tenho uma pasta chamada 2015, dentro dela 12 pastas com os respectivos meses (janeiro, fevereiro..etc....) Dentro da pasta de cada mês tenho 40 planilhas, cada uma representa uma filial por exemplo. Quando fecha o mês rodo uma macro que vai na pasta, entra filial por filial e capta todas as informações para uma base só. Problema: todo mês tenho que entrar lá na macro dar um "substituir todos" os textos de "Junho" para "Julho".. para a macro pegar as 40 planilha da pasta certa (mês). Existe alguma maneira de nesta planilha que consolida as informações tem uma célula de referência onde o escreva o mês e a macro já busque as informações da pasta certa? Obrigado!!!