Originariamente inviato da kilpin83

ora io vorrei semplicemente far si che cliccando sul nome si venga reindirizzati automaticamente alla cartella corrispondente..
semplicemente... eh... una parola...
vediamo di scrivere qualcosa...

Originariamente inviato da kilpin83

fatto questo....vorrei che queste cartelle avessero tutte lo stesso aspetto interno, non semplicemente dei fogli bianchi.
allora, devi creare un foglio Master, che deve duplicare per ogni nome nella colonna: io ho chiamto questo foglio "BASE", poi eventualmente modifica la variabile a tuo piacimento...
questo č il codice, che deve sostituire quello di prima

codice:
Private Sub CommandButton1_Click()
    
    rigainiz = 3
    RigaFine = ActiveSheet.Cells(rigainiz, 1).End(xlDown).Row
    foglioiniz = ActiveSheet.Name
    
    FoglioMaster = "BASE"
    
    For t = rigainiz To RigaFine
        Nomefoglio = ActiveSheet.Cells(t, 1)
        Sheets("BASE").Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = Nomefoglio
        Sheets(foglioiniz).Activate
    Next t

End Sub