none
Alterar vários HyperLink RRS feed

  • Pergunta

  • Olá Amigos

    Meu problema é o seguinte, tenho uma planilha com varias linhas, cada link tem um hyperlink porem foi remanejamento de pastas e preciso alterar todos de uma só vez.

    Segue exemplo:

    hyperlink que não abre:

    c:\users\pasta1\arquivo.xlsx

    preciso alterar para:

    f:\pasta1\arquivo.xlsx 

    Lembrando que a opção localizar e substituir não funciona pois so pesquisa em valores

    sexta-feira, 29 de novembro de 2013 16:29

Respostas

  • Sub fnc()
      Dim rng As Excel.Range
      Dim str As String
      
      On Error Resume Next
      For Each rng In Excel.Selection
        str = VBA.Replace(rng.Hyperlinks(1).Address, "c:\users", "f:")
        rng.Hyperlinks(1).Address = str
      Next rng
      On Error GoTo 0
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    domingo, 1 de dezembro de 2013 20:20
    Moderador

Todas as Respostas

  • Sub fnc()
      Dim rng As Excel.Range
      Dim str As String
      
      On Error Resume Next
      For Each rng In Excel.Selection
        str = VBA.Replace(rng.Hyperlinks(1).Address, "c:\users", "f:")
        rng.Hyperlinks(1).Address = str
      Next rng
      On Error GoTo 0
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    domingo, 1 de dezembro de 2013 20:20
    Moderador
  • Sub fnc()
      Dim rng As Excel.Range
      Dim str As String
      
      On Error Resume Next
      For Each rng In Excel.Selection
        str = VBA.Replace(rng.Hyperlinks(1).Address, "c:\users", "f:")
        rng.Hyperlinks(1).Address = str
      Next rng
      On Error GoTo 0
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    Perfeito. Funcionou para o meu problema também:

    Foi só copiar o código acima e incluir dentro de uma nova macro, substituir o exemplo dado e mandar executar a macro, depois de ter selecionado todas as celulas da planilha com Ctrl + T.

    Ótimo. Muito obrigado.

    quarta-feira, 5 de fevereiro de 2014 14:19