Macro com referência

[paulod3]

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!!!

[Nelson S]

Existir existe, mas seria preciso dar mais detalhes sobre o problema. Por exemplo, o termo "pasta" a que você está utilizando se refere a uma pasta no computador (C:\Documentos\2015)? O termo planilha se refere a um arquivo xls/xlsx ou a uma "aba" de um arquivo xls/xlsx? Você não explicita em que arquivo (xls/xlsx) a macro é executada. E seria necessário ter acesso ao código da macro para saber onde ela deveria ser feita a alteração. Se você puder explicar melhor o problema e disponibilizar arquivos com a estrutura das planilhas e o código da macro vai facilitar bastante a resolver o teu problema...

[paulod3]

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

[Nelson S]

A substituição do texto que você faz é só trocar o mês? ex: "Junho" por "Julho"?

São muitas linhas onde a substituição é feita?

A macro foi criada através do gravador de macros?

Teria como você disponibilizar o ´código da macro?

[paulod3]

    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 False

Sim, 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.

 

Editado Agosto 12, 2015 por paulod3
incluído o agradecimento xD

[Nelson S]

Não tem como você postar o código completo?

Pelo que eu entendi, a macro copia o intervalo F24:Q24 das 40 filiais. E cola esse intervalo, como valor, em 40 linhas, a partir do intervalo D4:O4,

Seria isso?

[Nelson S]

Você pode criar uma variável para armazenar o número e o nome do mês:

    Dim strMes as String

Atribuir à variável o valor de uma célula:
 
    strMes = Application.Workbooks("Consolidação.xlsm").Worksheets([nome da         planilha]).Range([referência da célula que contém o mês])

E substituir a instrução:

    Workbooks.Open Filename:= "C:\DOCUMENTOS\2015\07 - Julho\FILIAL01.xlsx"

Por:

    Workbooks.Open Filename:= "C:\DOCUMENTOS\2015\" & strMes  & "\FILIAL01.xlsx"

Para evitar ter que digitar o texto no formato "01 - Janeiro", eu sugeriria criar uma lista de validação com a sequência de todos os meses. Assim, não haveria erro de digitação, o que poderia "travar" a macro.

 

[paulod3]

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