Salve a tutti per prima cosa e grazie per i vostri innumerevoli articoli utilissimi
Arrivo subito al dunque, ho creato in un foglio excel una gestione appuntamenti e fra i vari campi ho messo anche il campo note.
Adesso desidero creare una macro che magari parte con una userform, che mi crei in automatico in un altro foglio un collegamento ipertestuale ad una specificata cella in cui vado a scrivere poi la nota.
Così se sto sul foglio uno e clicco su una cella della liste delle note, mi si apre in automatico il foglio2 in cui compare solo la nota richiesta.
il foglio1 è così impostato :

ANNO 2013
DATA GIORNO ORA INTERESSATO NOTE
01-gen Martedi 10,00 Docente x Si
02-gen Mercoledi 11,00 Direttore
03-gen Giovedi 13,00 Direttore y Si

Dove la parola : " Si " sia in effetti il collegamento al foglio due della cella (x, y) dove è scritta la nota inerente.
Sotto ho scritto i codici vba ma sicuramente nella seconda macro c'è un errore di sintassi, mi aiutate per cortesia.
Grazie Domenico.

Sono partito da questo codice specifico per una cella :


codice:
Sub COLL_CELLE() 
Range("J20").Select 
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ 
"Foglio1!A1", TextToDisplay:="Si" 
End Sub
e ho cercato di generalizzarla così :

codice:
Sub COLL_CELLE1() 
Cells(Selection.Row, 5).Select 
x = Cells(Selection.Row, 5).Row 
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "Foglio2!.Cells(x,1)", TextToDisplay:="Si" 
End Sub