Domanda.

nome=Daniele
cognome=Campagnolo
versione=2000
conosco2=medio
vba=SI
macro=SI
email=daniele.campagnolo@tiscali.it
chri=2
problema=Ciao Ennius, i complimenti per il tuo lavoro penso ormai si sprechino, anche se sono tutti giustificati, comunque mi aggiungo anch'io al coro.
Ti espongo il mio problema: voglio creare un collegamento ipertestuale sul foglio X che punta ad Y tramite macro. La
creazione deve avvenire quando viene creato il foglio Y, perchè in origine questo non esiste: il foglio viene creato da una macro che ne copia uno esistente e lo rinomina. Il problema è che non riesco ad asseganrel'indirizzo del collegamento tramite variabile. Magari è solo questione di sintassi , ma ....
Il codice che ho scritto è:
Dim data As String
Sheets(1).Select
Sheets(1).Copy Before:=Sheets(1)
data = Day(Date) 'nome del foglio = data odierna
ActiveSheet.Name = data 'rinomino il foglio
Dim CL As Object
For Each CL In Worksheets("Totali").Range("B4:B34")
If CL.Value = data Then 'Cerco cella dove posizionare il link
Worksheets("Totali").Hyperlinks.Add Anchor:=CL, Address:="", SubAddress:="data!A1"
End If
Next

Risposta.

ciao Daniele, visto che il nome del foglio è sempre visto come una stringa, anche se il nome è un numero,
per la variabile usata per richiamare il nome, si deve usare la sintassi specifica per stringhe, così:
......
If CL.Value = data Then   'Cerco cella dove posizionare il link
CL.Hyperlinks.Add Anchor:=CL, Address:="", SubAddress:="" & data & "!A1"
......
poi CL è sufficiente per l'hyperlinks, non occorre ripetere il Worksheets("Totali").

saluti, ennius