Alterar vários HyperLink

Question

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

Answer 1

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

Answer 2

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.