Copie um hiperlink de uma planilha para várias outras planilhas

Question

Eu tenho uma pasta de trabalho com 12 folhas, uma para cada mês chamada JAN, FEB, etc.

Eu tenho um hyperlink na célula B2 de JAN que pula para a célula B200 de JAN. Eu gostaria de copiar esse hiperlink para todas as outras folhas, mas quando eu faço o escopo do hiperlink não muda para a nova folha, ele ainda faz referência a JAN

Então, como posso copiar um hiperlink de uma planilha para outra e para o link referenciar um local na nova planilha, não a planilha onde o link foi criado

Obrigado

    

Answer 1

Sub LocalizeAllHyperlinks()
Dim sh As Worksheet
Dim lnk As Hyperlink
For Each sh In Sheets
    For Each lnk In sh.Hyperlinks
        lnk.SubAddress = "'" & sh.Name & "'!" & Split(lnk.SubAddress, "!")(1)
        ' lnk.TextToDisplay = lnk.SubAddress
    Next
Next
End Sub

Esta sub localiza todos os hiperlinks em uma pasta de trabalho para as planilhas que são inseridas sem nenhuma verificação. Todos os hiperlinks, além daqueles para uma única célula na pasta de trabalho atual, serão danificados!