Este fórum está sendo desativado

[BrunoG10]

Boa Tarde Pessoal,

Estou desenvolvendo uma planilha para uma empresa,
Dentro dessa planilha, vai ter lugar para que a pessoa que há esteja utilizando anexe documentos,
Esses documentos irão ser buscados em uma pasta comum que temos na empresa "F:\"
A ideia é desenvolver um botão que ao clicar ele abra essa pasta, ao abrir essa pasta a pessoa busca o pdf que quer, e ao clicar nele para abrir, ele salve o endereço do pdf,
A ideia é clicar no botão, ele abrir a pasta e nessa pasta eu conseguir salvar um pdf no excel (salvar no sentido de inserir um link - é basicamente inserir o link do pdf, porém com uma macro)
O botão teria que ter o nome "Anexo" e o link deveria ser salvo na célula do lado deste botão
Alguém poderia me ajudar a desenvolver uma Macro para isso?

[AfonsoMira]

Boa tarde.
Penso que seja isto que esteja à procura.

Basta criar um botão e inserir o seguinte código, caso necessário adapta-lo para o seu ficheiro também.

Código: Selecionar todos

Dim caminho As String

'Abre a pasta para escolher o ficheiro
With Application.FileDialog(msoFileDialogOpen)

.Show

'Se algum ficheiro for selecionado ira guardar o caminho na variável caminho
If .SelectedItems.Count > 0 Then
caminho = .SelectedItems(1)
End If

End With

'Insere o caminho na célula "D4"
Range("D4").Value = caminho

Ficheiro já com o botão e código em anexo.

[Piacentini19]

Boa tarde.
Obrigado AfonsoMira, utilizei a planilha que mandou e fiz algumas alterações.
BrunoG10 em qualquer que seja a célula que estiver selecionada, a macro vai importar o link de onde esta o arquivo e já fazer um hiperlink deste mesmo, assim podendo fazer uma grande lista caso deseje. A celula D8 sempre será apagada, apenas vincule nas abaixo, não sei se irá lhe atender.

Grato.