Notifications
Clear all

Formulário para selecionar pasta

3 Posts
2 Usuários
0 Reactions
1,088 Visualizações
(@felipesalomao)
Posts: 103
Estimable Member
Topic starter
 

Oi pessoal, Gostaria de saber como posso adicionar um formulário para escolher uma pasta e gravar na célula esse valor.

Tenho uma aba em minha planilha onde digito onde o relatório, arquivos pdfs gerados automaticamente no excel além de outros arquivos puxam dado.

O formato é: C:/Documents...

Gostaria de saber se é possível adicionar um formulário tipo clicando em uma pastinha conforme tem em vários sites para selecionar a pasta ?

Vlw

 
Postado : 15/08/2012 6:57 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite,

Veja se este exemplo te ajuda:

Sub SelecionarPasta()
    Dim Pasta As String
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        Pasta = .SelectedItems(1)
    End With
    
    [A1].Value = Pasta
End Sub

Abraço

 
Postado : 15/08/2012 10:01 pm
(@felipesalomao)
Posts: 103
Estimable Member
Topic starter
 

Funcionou perfeitamente, muito obrigado !!

 
Postado : 16/08/2012 9:33 am