Inserire valori etichetta foglio in una cella

[abernaa]

Ciao,

nuovo problemino: devo recuperare il nome di un foglio (caratteri alfanumerici) e copiarli in una cella di un altro foglio. Il tutto con una macro. Sapete darmi una mano?

grazie mille

Alberto

[Avatar3]

Quanti fogli contiene quella cartella?

Altrimenti nel foglio del quale vuoi sapere il nome inserisci in una cella questa formula (caso con A1)

Codice: Seleziona tutto

=CELLA("Filename";A1)

In B1 questa formula

Codice: Seleziona tutto

=STRINGA.ESTRAI(A1;TROVA("]";A1;1)+1;LUNGHEZZA(A1)-TROVA("]";A1;1))

Poi con una formula nel foglio2 metterai in una cella

Codice: Seleziona tutto

=Foglio1!B1

Per al macro dovresti dire il numero di fogli oppure se il foglio del quale vuoi riportare il nome è precedente a quello nel quale vuoi scrivere il nome
insomma qualche informazione in più

ciao

[abernaa]

Ecco le maggiori info:

ho un caso con un solo foglio la cui etichetta cambia di volta in volta nome e voglio portarla in una cella del foglio

ho un altro caso in cui il numero di fogli cambia ogni crescendo di uno, è un file che archivia progressivamente fogli, ma in cui il foglio nuovo è sempre inserito prima di un foglio a nome constante.

Spero basti

Grazie mille

Alberto

[Avatar3]

Hai provato quanto consigliato nel post precedente?

Dovrebbe andare bene.

Ciao

[Anthony47]

ho un caso con un solo foglio la cui etichetta cambia di volta in volta nome e voglio portarla in una cella del foglio

Per questo caso le formule di Avatar3 sono assolutamente la soluzione migliore.

Per il resto, forse tu stai cercando una macro che, in un foglio a parte, ti crea l' inventario dei fogli presenti nel file. Per questo:
-tasto dx sul tab col nome del foglio dove vuoi creare l' elenco; scegli Visualizza codice.
-inserisci questa macro nel frame di dx:

Codice: Seleziona tutto

Private Sub Worksheet_Activate()
Range("G2:G2000").ClearContents
For I = 1 To ThisWorkbook.Worksheets.Count
    If Sheets(I).Name <> ActiveSheet.Name Then _
     Cells(Rows.Count, "G").End(xlUp).Offset(1, 0).Value = Sheets(I).Name
Next I
End Sub

Disattiva e riattiva il foglio e l' elenco sara' costruito da G2 in avanti; se lo vuoi in un'altra colonna cambia nella macro i riferimenti a "G" con la colonna che preferisci; se hai piu' di 2000 fogli modifica l' istruzione di ClearContents.

Ciao.