Estou procurando alguma ajuda com uma solução VBA para preservar os hiperlinks ao usar o VLOOKUP no Excel (2010).
Eu tenho uma carga de dados na Folha 1 somente para uso interno e uma versão reduzida disso na Folha 2. Em vez de recriar a Folha 2 toda vez, estou procurando uma versão funcional que seja atualizada toda vez que a Folha1 for atualizada . Assim, usei o VLOOKUP na Folha 2 para que apenas as informações desejadas sejam retornadas na planilha 2.
No entanto, o problema era que a folha 1 continha em muitas células Hiperlinks para sites externos, e isso não seria transferido para a Planilha2 usando o VLOOKUP. Com alguma ajuda, no entanto, usando a seguinte solução do VBA, os hiperlinks agora passam:
Function GetHyperLink(r As Range) As String
If r.Hyperlinks.Count Then
GetHyperLink = r.Hyperlinks(1).Address
End If
End Function
E estou usando a seguinte fórmula na (s) célula (s) relevante (s) na Planilha2:
=HYPERLINK(GetHyperLink(INDEX('Sheet 1'!$B$1:$B$10001,MATCH(A4,'Sheet 1'!$A$1:$A$10001,0))),(VLOOKUP(A4,'Sheet 1'!$A$1:$B$10001,2,FALSE)))
No entanto, o problema é com formatação: todas as células na Planilha2 são formatadas em azul e sublinhadas, mesmo que algumas delas não contenham um hiperlink!
Alguém pode ajudar com uma solução / fórmula VBA para corrigir essa última peça do quebra-cabeça?
Muito obrigado, antecipadamente.
O Excel parece aplicar aleatoriamente a formatação de hiperlink quando você tiver poucos em uma página. Você pode alterar esse comportamento, para que ele nunca faça isso automaticamente (para que você sempre tenha que usar o HYPERLINK), altere essa configuração em Proofing- > AutoCorreção- > AutoFormatação ao digitar.
Quanto a corrigir a planilha atual, você pode ter Clear- > Clear Formats e reformatar a página.
