Modulo 5 errore debug ActiveSheet.Hyperlinks.Add Anchor:=Cel

[giostacchio]

buongiorno, non riesco a creare un hiperlink a più di 100 righe potete aiutarmi ? mi riporta questo tipo di errore
nel Modulo 5 errore in :

debug ActiveSheet.Hyperlinks.Add Anchor:=Cells(riga, 7), _
Address:="\\XenFs01\cad\04 - DOC. RILASCIATI\04 Disegni costruttivi\" & Cells(riga, 7) & ".pdf"

riuscite ad aiutarmi ? al seguente link il file Excel

https://we.tl/maYTT9bL4I

vi ringrazio

[Anthony47]

L'elenco che usi per impostare gli hyperlink contiene delle celle in errore, che non dovrebbero essere usate.
Ovviamente dovresti evitare di avere celle in errore; almeno le devi saltare quando le usi per assegnare i link:

Codice: Seleziona tutto

If Not IsError(Cells(riga, 7)) Then
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(riga, 7), _
        Address:="\\XenFs01\cad\04 - DOC. RILASCIATI\04 Disegni costruttivi\" & Cells(riga, 7) & ".pdf"
End If


Ciao

[giostacchio]

grande Anthony, grande !
grazie ancora

[giostacchio]

L'elenco che usi per impostare gli hyperlink contiene delle celle in errore, che non dovrebbero essere usate.
Ovviamente dovresti evitare di avere celle in errore; almeno le devi saltare quando le usi per assegnare i link:

Codice: Seleziona tutto

If Not IsError(Cells(riga, 7)) Then
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(riga, 7), _
        Address:="\\XenFs01\cad\04 - DOC. RILASCIATI\04 Disegni costruttivi\" & Cells(riga, 7) & ".pdf"
End If


Ciao

ciao Modulo 5 applicato in un file ma ho qualche problema..
dovrei evitare che quando creato il link questo mi aprisse in automatico il pdf
avendo creato la "tabella" la macro continua all'infinito a creare link anche in celle che non hanno valori
si può fare qualcosa ?
allego link al file
https://we.tl/xJR0Sxx1HA

grazie in anticipo

[giostacchio]

e far si che se devo creare nuovi link non riparta dalla prima riga