Ho necessità di far diventare hyperlink tutte le celle che hanno un valore significativo della colonna G dei fogli presenti nel range "OPERATORI". Nella cella c'è il percorso effettivo del file da aprire. Ho provato a semplificare l'istruzione forzando solo la cella G2 ma lanciando la macro da un foglio che non è nel range operatori mi porta nel primo foglio del range operatori la cella G2 del foglio in linea al momento.
Chiedo pertanto un aiuto per:
lanciare la macro da un foglio qualsiasi della cartella di lavoro che aggiorna tutte le celle diverse da blank della colonna G facendole diventare hyperlink di ogni foglio presenti nel range OPERATORI.
Allego un esempio di quello che ho fatto per la sola cella G2.
Grazie in anticipo.
Ciao
- Codice: Seleziona tutto
For Each Operat In Range("OPERATORI")
If ShExists(Operat.Value) Then
With ActiveWorkbook.Worksheets(Operat.Value)
.Hyperlinks.Add Anchor:=Worksheets(Operat.Value).Range("G2"), _
Address:=Worksheets(Operat.Value).Range("G2").Value, _
ScreenTip:=Range("G2").Value, _
TextToDisplay:=Range("G2").Value
End With
End If
Next Operat
''''''''''''''''
Function ShExists(ByVal mySh As String) As Boolean
On Error Resume Next
ShExists = Len(Sheets(mySh).Name) > 0
End Function