estrarre nomi fogli in un unico foglio

[capa]

Salve a tutti,
Sono nuovo e desidero porvi un quesito.
Ho un file Excel dove all'interno sono presenti circa 300 fogli, ognuno con nome diverso ma la struttura è uguale per tutti.
Come posso estrarre i nomi di tutti questi fogli in modo tale che mi compaiano in un unica colonna in elenco?
Mi potreste aiutare?

Grazie mille

[gianc]

ciao capa
non sono un maestro di excel, soprattutto non conosco VB quindi macro 0 e nonso rispondere alla tua domanda.
però per esperienza penso che sia piuttosto controproducent utilizzare più fogli contenenti la stessa struttura....soprattutto se diventano così tanti.
in genere i fogli dovrebbero contenere informazioni diverse l'uno dall'altro altrimenti limiti buona parte delle potenzialità di excel.
è molto importante, quando si imposta un file excel di qualunque genere, strutturare in modo corretto l'aggregazione dei dati e la via da utilizzare per estrarre i dati.

comunque non conosco nel dettaglio iltuo caso quindi non ti so aiutare ulteriormente e prendi lamia osservazione solo come consiglio

saluti

[Anthony47]

Ciao capa, benvenuto nel forum.
Questa macro ti creera' l' elenco dei fogli disponibili, mettendoli su colonna A del foglio chiamato Indice (che deve gia' esistere), da riga 1 in giu'

Codice: Seleziona tutto

Sub ListF()
Sheets("Indice").Range("A1").Value = "Nome Foglio"
For I = 1 To ThisWorkbook.Worksheets.Count
    Sheets("Indice").Cells(I + 1, 1).Value = Sheets(I).Name
Next I
End Sub


Fai sapere, ciao.

[capa]

Grazie mille, funziona benissimo.
Avrei un'altra domanda, nella colonna dei nomi che ho estratto, vorrei inserire un valore che è all'interno di ogni foglio.
esempio:
foglio1 cella n4
foglio2 cella n4
foglio3 cella n4

ma il valore della cella n4 cambia in base al foglio.

Grazie in anticipo
Capa

[Flash30005]

Benvenuto Capa, anche da parte mia

Modificando la macro di Anthony dovresti ottenere ciò che hai richiesto

Codice: Seleziona tutto

Sub ListF()
Sheets("Indice").Range("A1").Value = "Nome Foglio"
For I = 1 To ThisWorkbook.Worksheets.Count
If Sheets(I).Name <> "Indice" Then
    Sheets("Indice").Cells(I, 1).Value = Sheets(I).Name & " cella " & Sheets(I).Range("N4").Value
    End If
Next I
End Sub

Mi sembra di aver capito che vuoi l'intera stringa (NomeFoglio cella e valore su N4) nella stessa colonna del nome foglio

Se invece vuoi il nome foglio nella colonna A e il valore N4 nella colonna B devi solo fare questa semplice modifica

Codice: Seleziona tutto

Sub ListFB()
Sheets("Indice").Range("A1").Value = "Nome Foglio"
For I = 1 To ThisWorkbook.Worksheets.Count
If Sheets(I).Name <> "Indice" Then
    Sheets("Indice").Cells(I, 1).Value = Sheets(I).Name
   Sheets("Indice").Cells(I, 2).Value = Sheets(I).Range("N4").Value
    End If
Next I
End Sub

Ciao

[aleqwert]

Ciao,

mi lego alla vs discussione in quanto ho un problema simile.
Per estrarre i nomi dei fogli su un unico foglio ho utilizzato questa macro

Sub EstraiNomiFogli()
Dim i As Integer
Dim fg As String
For i = 2 To ThisWorkbook.Sheets.Count
fg = ThisWorkbook.Sheets(i).Name
Cells(i - 1, 1).Value = fg
Next i
End Sub

mi funziona, ed è già qualcosa visto le ridottisime mie capacità su questo argomento.
Ora, come serviva a capa, vorrei inserire nelle colonne a fianco dei "nomi fogli" altri dati relativi ai fogli. Non si tratta però di celle contenute nel foglio di riferimento bensì di alcune sue "proprietà": la data di creazione del foglio e la sua ultima data di modifica

Vorrei ottenere una tabella del genere

Nome foglio1; Data creazione foglio1; Data ultima modifica foglio1;
Nome foglio2; Data creazione foglio2; Data ultima modifica foglio2;
Nome foglio3; Data creazione foglio3; Data ultima modifica foglio3;
.................

Riuscireste ad aiutarmi?

Vi ringrazio

Ciao

[Zer0Kelvin]

Ciao.

mi lego alla vs discussione in quanto ho un problema simile.

Questo non si fa (per diversi motivi), devi aprire un nuovo post ed eventualmente (ma in questo caso non serve) si indica la discussione da cui si è preso spunto.
Poi, in realtà, il quesito è completamente diverso.
Nel titolo potresti indicare qualcosa tipo "Data Ultima modifica di un foglio".

[aleqwert]

Ciao,

ti ringrazio delle indicazioni. E' inutile dire che sono nuovo del luogo....