Sto cercando aiuto con una soluzione VBA per preservare i collegamenti ipertestuali quando si utilizza VLOOKUP su Excel (2010).
Ho un carico di dati sul Foglio 1 solo per uso interno e una versione ridotta di questo sul Foglio 2. Invece di ricreare il Foglio 2 ogni volta, sto cercando di avere una versione funzionante che aggiorna ogni volta che Foglio1 viene aggiornato. Quindi, ho usato VLOOKUP sul Foglio 2 in modo che solo le informazioni desiderate vengano restituite sul foglio 2.
Tuttavia, il problema era quel foglio 1 conteneva in molte celle collegamenti ipertestuali a siti Web esterni e questo non passerebbe a Sheet2 utilizzando VLOOKUP. Con un po 'di aiuto, tuttavia, utilizzando la seguente soluzione VBA i collegamenti ipertestuali ora passano attraverso:
Function GetHyperLink(r As Range) As String
If r.Hyperlinks.Count Then
GetHyperLink = r.Hyperlinks(1).Address
End If
End Function
E sto usando la seguente formula nelle celle pertinenti in Sheet2:
=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)))
comunque, il problema è con la formattazione: ogni cella su Foglio2 è formattata in blu e sottolineata, anche se alcuni di essi non contengono un collegamento ipertestuale!
Qualcuno è in grado di aiutare con una soluzione / formula VBA per risolvere questo ultimo pezzo del puzzle?
Molte grazie, in anticipo.
