You are here:---Rispondi a: [RISOLTO] Collegamento ipertestuale
Rispondi a: [RISOLTO] Collegamento ipertestuale2017-12-09T15:30:56+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] Collegamento ipertestuale Rispondi a: [RISOLTO] Collegamento ipertestuale

sidsid
Moderatore
    Post totali: 718

    Prova così: 

    Sub Crea_link() 
    Dim rng As Range, cl As Range 
    Dim nRiga As Long 
    Dim vCartelle As Variant, vCartella As Variant 
    Dim sDir As String, sFullDir As String 
    sDir = "C:\" 'directory dove risiedono le cartelle 
    vCartelle = Array("SEZIONE-A-\", "SEZIONE-B-\", "SEZIONE-C-\") 'array con le tue cartelle 
    With Sheets("Foglio1") 'nome tuo foglio 
        nRiga = .Range("A" & Rows.Count).End(xlUp).Row 
        Set rng = .Range("A1:A" & nRiga) 
        rng.Hyperlinks.Delete 
        For Each cl In rng 
            If cl.Value <> "" Then 
                For Each vCartella In vCartelle 
                    sFullDir = sDir & vCartella & cl.Value 'directory del file 
                    If Dir(sFullDir, vbDirectory) <> "" Then 
                        .Hyperlinks.Add _ 
                        Anchor:=cl, _ 
                        Address:=sFullDir, _ 
                        TextToDisplay:=cl.Value 
                        Exit For 
                    End If 
                Next vCartella 
            End If 
        Next cl 
    End With 
    Set rng = Nothing 
    End Sub

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi