Paulo Reis,

Bom Dia!

Poste o código. Assim ficará mais fácil todos poderem ajudar.

Paulo, no tópico em que iniciou a questão "Gravar na celula ativa o caminho completo do arquivo" - viewtopic.php?f=10&t=15805, passei alguns links que fazem exatamente o que pretende agora, e a do colega Benzadeus que tambem havia lhe passado funciona perfeitamente, é questão de se fazer alguns ajustes :

Formulário para incluir anexo e gerar hyperlink [Resolvido]
viewtopic.php?f=10&t=4726

Eu faria os seguintes ajustes para utilizarmos somente o controle RefEdit1
Conforme está no tópico "adicione um controle chamado RefEdit (se chamará RefEdit1)"
Ao abrir o Formulário clique no sinal de menos do controle, selecione a celula em que pretende inserir o hiperlink e depois na proxima caixa de dialogo, selecione o diretorio, arquivo e pronto.

Private Sub CommandButton1_Click()

        Dim sArquivo
        Dim sEspecificação As String
        Dim sTítulo As String
       
       'Controle para selecionar uma celula antes de continuar
        If RefEdit1.Value = "" Then
            MsgBox "selecione uma Celula primeiro"
            Exit Sub
        End If
        
        sEspecificação = "Arquivos de Excel (*.pdf*),*.pdf*"
        sTítulo = "Selecione um arquivo do Excel:"
       
        sArquivo = CStr(Application.GetOpenFilename(sEspecificação, , sTítulo, , False))
       
        If sArquivo <> CStr(False) Then
            ActiveSheet.Hyperlinks.Add Range(RefEdit1.Value), sArquivo, TextToDisplay:="Teste Link Arquivo"
        Else
            'Nenhum arquivo foi selecionado
        End If
    End Sub

[]s

Ok,
Estou enviando o modelo para melhor compreensão. Eu consegui chegar até essa versão com a ajuda dos colegas. Observem que as planilhas tem seus próprios formulários de cadastro. Por exemplo no formulário de cadastro de Manutenção Preventiva "CAD_MP" tem uma caixa de texto para cadastrar o link do documento. Poderia ser um button também desde que carregue o link do documento para a planilha através do formulário.

Paulo, fiz um exemplo bem simples do que você pretende, é só analisar as rotinas e verá que não será difícil de ajustar e adaptar ao seu modelo.

Hiperlink Caminho e Arquivo através de Textbox

[]s

Olá Mauro,

Deu o seguinte erro:

"Erro em tempo de execução '9':
Subscrito fora do intervalo"

Ao depurar o código ele trava na linha "Sheets("Plan17").Activate", com a seguinte informação: "<A variável do objeto ou a variável do bloco 'With' não foi definida>"

Como faço usar o mesmo procedimento para as planilhas 18, 21 e 24.

Olá Mauro,
Deu o seguinte erro:
"Erro em tempo de execução '9':
Subscrito fora do intervalo"

Ao depurar o código ele trava na linha "Sheets("Plan17").Activate", com a seguinte informação: "<A variável do objeto ou a variável do bloco 'With' não foi definida>"

Como faço usar o mesmo procedimento para as planilhas 18, 21 e 24.

Este erro está indicando que a aba "Plan17" não existe, veja que em seu modelo esta aba você deu o nome de "CAD_CAL" então você tem de referenciar pelo nome que a mesma tem Sheets("CAD_CAL").Activate", para as outras abas tem de seguir o mesmo criterio.

[]s

Ok Mauro,

Eu fiz os testes corrigindo as referencias, mas mesmo assim o erro acontece. Talvez o erro esteja ocorrendo porque estou fazendo a chamada do userform1 para abrir o arquivo de dentro de uma caixa de texto do formulário "CAD_CAL", plan17, usando o evento

Private Sub txtDocumento_Enter()
Call UserForm1.Show
End Sub

Mauro,
Consegui inserir o link, mas ele não entra na linha correspondente ao código (ID), link fica gravado sempre uma linha abaixo e não segue a autonumeração da primeira coluna.

Estou batendo cabeça para inserir o link através de ListView. Ainda não consegui.