Un piccolo aiuto per Excel

[kilpin83]

Praticamente.....ho un elenco di nomi in colonna su excel.

Volevo abbinare ad ogni nome una scheda, in modo che cliccando sul nome si passi a visualizzare la scheda.

Siccome i nomi son tanti, come si può fare per avere sta cosa automaticamente, in modo da avere le linguette con già i nomi dell'elenco?

oppure, se non si può, come si possono creare tante cartelle contemporaneamente nella stessa cartella senza doverne creare una per una?

spero di essermi spiegato.

Grazie.

[luck]

boh, capito poco

cosa hai bisogno?
di un insieme di linguette a partire da un elenco?

in questo caso: dov'è l'elenco?

[kilpin83]

ho un elenco di nomi


A
B
C
D
E
F
..
.
.


Voglio creare tante linguette, quanti sono gli elementi dell'elenco, senza ovviamente doverle creare manualmente, cosicchè cliccando poi su A excel passi automaticamente alla linguetta A....ok?

[luck]

intanto creiamo un pulsante che crei i singoli fogli:

associaci questa macro

Private Sub CommandButton1_Click()
    
    rigainiz = 3
    RigaFine = ActiveSheet.Cells(rigainiz, 1).End(xlDown).Row
    foglioiniz = ActiveSheet.Name
    
    For t = rigainiz To RigaFine
        Nomefoglio = ActiveSheet.Cells(t, 1)
        Sheets.Add 'After:=Worksheets.Count
        ActiveSheet.Name = Nomefoglio
        ActiveSheet.Move After:=Sheets(Sheets.Count)
        Sheets(foglioiniz).Activate
    Next t

End Sub

SIstema la prima variabile con la prima riga utile dell'elenco
intanto prova, poi andiamo avanti insieme...
ok?
facci sapè

[kilpin83]

Ho creato la macro e la ho eseguita in Visual basic (ho messo il valore 4, visto che era la riga dove cominciava l'elenco) e mi ha creato una linguetta per ogni nome..

ora io vorrei semplicemente far si che cliccando sul nome si venga reindirizzati automaticamente alla cartella corrispondente..

fatto questo....vorrei che queste cartelle avessero tutte lo stesso aspetto interno, non semplicemente dei fogli bianchi.

è possibile?

[luck]

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

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

[luck]

ah, prima di usare questa seconda macro, ricorda di cancellare i fogli creati precedentemente con l'altra.

ciao ciao

[luck]

tiè, con questa dovresti essere apposto, ti aggiunge anche i link ai fogli: sostituiscila alle altre:

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
        ActiveSheet.Cells(t, 1).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
        SubAddress:=nomefoglio & "!A1", TextToDisplay:=nomefoglio
    Next t

End Sub

facci sapere
ciao