Usuário com melhor resposta
Alterar vários HyperLink

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
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
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator terça-feira, 31 de dezembro de 2013 22:13
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
- Marcado como Resposta Felipe Costa GualbertoMVP, Moderator terça-feira, 31 de dezembro de 2013 22:13
-
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.
- Editado Kleber Willians quarta-feira, 5 de fevereiro de 2014 14:23