Notifications
Clear all

Abrir determinada planilha com critérios

6 Posts
1 Usuários
0 Reactions
1,100 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal, boa noite!

Quero fazer uma macro que abra uma determinada planilha com critério (no caso ano e mês).

Por ex: Se a celula A1 = 2014 e A2 = maio abrir a planilha

"G:Tecnologia da Producao2014maioArea57.xlsm"

Se na célula A1 = 2013 e A2 = dezembro, logo:

"G:Tecnologia da Producao2013dezembroArea57.xlsm"

Tentei algumas coisas aqui mas não deu certo, conto com a ajuda de vocês!

Att,

Ricardo

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/06/2014 4:20 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Estou quase certo que ainda faltam mais alguns detalhes, mas se a intenção é somente estes dois arquivos, você pode estar utilizando a rotina abaixo :

Sub AbrirComCondicao()

    Dim sPath As String
    Dim sAno
    Dim sMes
    Dim sArquivo
    
    sArquivo = "Area57.xlsm"
    
    sPath = "G:Tecnologia da Producao"
    
    sAno = [A1]
    sMes = [A2]

    Select Case sAno & sMes
    
        Case 2013 & "dezembro"
            Workbooks.Open Filename:=sPath & sAno & "" & sArquivo
        
        Case 2014 & "maio"
            Workbooks.Open Filename:=sPath & sAno & "" & sArquivo
            
        Case Else    ' Outros valores.
            MsgBox "Arquivo :- " & sAno & "" & sArquivo, , "Arquivo Inexistente !!!"
            
    End Select

End Sub

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/06/2014 6:48 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Mauro, primeiro obrigado pela ajuda. Realmente não expliquei muito bem, na verdade o mês poderá variar de janeiro a dezembro
e o ano também poderá variar (ex: pode ser 2011, 2012, 2013).

A questão é que para cada mês no ano existe um planilha:

Ex: no mes de janeiro de 2014 a planilha esta no caminho: G:Tecnologia da Producao2014janeiroArea57.xlsm

no mes de outubro de 2014 a planilha esta no caminho: G:Tecnologia da Producao2014outubroArea57.xlsm

no mes de junho de 2013 a planilha esta no caminho: G:Tecnologia da Producao2013junhoArea57.xlsm

(note que o nome da planilha nem o caminho principal G:Tecnologia da Producao não irão mudar, porém para cada mês e ano existe uma que esta em pastas diferentes)

Eu já vi algo (vba) para salvar planilha que chamava o valor de uma determinada celula para o código, tipo:

G:Tecnologia da Producao& i & & j &Area57.xlsm

Mas tentei aqui sem sucesso.

Att,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 30/06/2014 5:30 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Ricardo, na rotina que passei, o Ano, Mes, Nome do Arquivo e Diretorio, tambem estão setadas nas Variáveis.

Quando postei eu até imaginei que seria isto o que pretende, que teriamos todos os meses e alguns anos, só que fiz meio correndo que estava de saida, por isso foi somente com aquelas condições.
Der uma olhada no anexo, eu refiz toda a rotina, veja que em A1 e A2 temos a Validação, assim é só selecionar o Ano e Mes, quanto ao Caminho e Nome do Arquivo, como estes são fixos estão direto na rotina, só utilizamos Variáveis para o Subdiretorio.
Outra implementação na rotina é que verificamos se o Caminho e o Arquivo existem, dai abre-se conforme setado nas Variáveis.

Faça os testes e veja se é isto.

Abrir Arquivo com condição

Qualquer duvida retorne.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 30/06/2014 6:47 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Mauro Coutinho,

Agora, estudando melhor sua rotina anterior consegui entender.

Ainda não abri o arquivo que você mandou por ultimo, pois estou no trabalho e aqui não abre .rar apenas .zip!
Então quando chegar em casa irei testar sua planilha, mas pela sua descrição da macro parece ser exatamente o que eu queria.

Darei o retorno mais tarde, porém desde já agradeço muito pela ajuda!

Att,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 30/06/2014 8:49 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Obrigado Mauro Coutinho, isso mesmo que queria!

Att,

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 30/06/2014 7:35 pm