Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Inserire valori etichetta foglio in una cella

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Inserire valori etichetta foglio in una cella

Postdi abernaa » 05/04/11 11:15

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
abernaa
Utente Junior
 
Post: 16
Iscritto il: 28/01/11 12:49

Sponsor
 

Re: Inserire valori etichetta foglio in una cella

Postdi Avatar3 » 05/04/11 12:44

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
Per il funzionamento delle macro si deve impostare la protezione a Bassa o Media.
Menu Strumenti -> Macro -> Protezione...
Avatar utente
Avatar3
Utente Senior
 
Post: 569
Iscritto il: 04/04/11 09:04

Re: Inserire valori etichetta foglio in una cella

Postdi abernaa » 08/04/11 08:59

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
abernaa
Utente Junior
 
Post: 16
Iscritto il: 28/01/11 12:49

Re: Inserire valori etichetta foglio in una cella

Postdi Avatar3 » 08/04/11 12:14

Hai provato quanto consigliato nel post precedente?

Dovrebbe andare bene.

Ciao
Per il funzionamento delle macro si deve impostare la protezione a Bassa o Media.
Menu Strumenti -> Macro -> Protezione...
Avatar utente
Avatar3
Utente Senior
 
Post: 569
Iscritto il: 04/04/11 09:04

Re: Inserire valori etichetta foglio in una cella

Postdi Anthony47 » 08/04/11 13:59

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Inserire valori etichetta foglio in una cella":


Chi c’è in linea

Visitano il forum: Nessuno e 15 ospiti