Notifications
Clear all

Minimizar uma variável

4 Posts
3 Usuários
0 Reactions
1,084 Visualizações
(@phiolie15)
Posts: 0
New Member
Topic starter
 

Bom dia a todos,

Sou novo no fórum e peço desculpas caso tenha pedido uma ajuda fora dos padrões.

Estou com uma dúvida:

Como faço para minimizar uma variável ? Tenho uma planilha no excel (.xlsm) que muda de nome todos os dias de acordo com a data. (Ex. Planilha Jan 01, Planilha Jan 02, Planilha Jan 03, etc). Como o nome dessa planilha é alterada diariamente, delimitei até onde eu quero que ela copie e também delimitei a extensão que nunca muda, não sei se delimitei da maneira certa.

Essa planilha, é alimentada por outra que apesar de ser alterada todo o dia, o nome nunca muda.

Criei uma variável que reconhece o caminho da Planilha que é alimentada porém na hora de minimizar para pegar os dados da planilha base o comando nao minimiza. Podem me ajudar nesse caso por favor ? Caso eu tenha delimitado errado também gostaria que ajudasse se possível. Desde já obrigado.

Segue código abaixo (Nesse caso, a planilha base já estaria aberta e meu trabalho será só criar o código que copia a planilha base e cola na "Planilha Jan 01":

Dim strDir As String
    Dim strDiretório As String


    strDiretório = "C:Program Files"
    strDir = "*Planilha **.xlsm*"

    Workbooks.Open strDiretório & strDir
    
    Windows("*Planilha **.xlsm*").Activate

OBS: Na verdade a dúvida seria para alternar as planilhas, como se eu colocasse o comando Alt + tab

 
Postado : 31/05/2017 8:16 am
(@basole)
Posts: 487
Reputable Member
 

O alt+tab vai alternar todas as telas abertas no seu pc, tente control+tab para alternar diferentes pastas de trabalho abertas:
Exemplo:

Sub Control_Tab()
Dim i As Long

For i = 1 To 5
ActiveWindow.ActivateNext
Next

End Sub
 
Postado : 01/06/2017 6:48 am
(@phiolie15)
Posts: 0
New Member
Topic starter
 

Muito obrigado, testei aqui e funcionou.

 
Postado : 06/06/2017 8:20 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde PhiOlie15

Como você é novato(a), para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

Acessando os links, você irá aprender que deve marcar com Resolvido, a resposta que resolveu a dúvida e não a tua postagem.
Vai aprender também como agradecer ao colaborador clicando na ferramenta própria para isso, que pontua para o colaborador.

[]s

Patropi _ Moderador

 
Postado : 06/06/2017 9:49 am