Condividi:        

[Excel]Rinominare un foglio

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

[Excel]Rinominare un foglio

Postdi descartes » 30/01/12 20:47

Buonasera, sono nuovo del forum.
Vi scrivo per chiedervi un consiglio circa una macro da applicare su un file excel.
Nel mio file excel una volta copiato un foglio denominato FATTURA ottengo un nuovo foglio denominato FATTURA (2) che vorrei rinominare con il testo contenuto nella cella a1 del nuovo foglio creato. Insomma se nella mia cella a1 del foglio FATTURA (2) c'e' scritto pippo il foglio FATTURA (2) dovrebbe essere rinominato pippo, se c'e' 1 dovrebbe essere rinominato 1, etc. Vi allego il codice della macro da neofita che ho creato, vorrei conoscere il codice da unire a quello che ho creato io. Non voglio una macro indipendente dalla mia ma un codice da integrare alla mia macro.
Codice: Seleziona tutto
Sub DUPLICA()
'
' DUPLICA Macro
'
' Scelta rapida da tastiera: CTRL+MAIUSC+D
'
    Sheets("FATTURA").Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select
    Sheets("FATTURA").Copy After:=Sheets(7)
End Sub
Grazie a chiunque potrà aiutarmi
descartes
Newbie
 
Post: 1
Iscritto il: 30/01/12 20:36

Sponsor
 

Re: [Excel]Rinominare un foglio

Postdi wallysimpsons » 07/04/12 16:24

Ciao

Aggiungi queste due righe in fondo al tuo codice

Codice: Seleziona tutto
Sheets("FATTURA (2)").Select
Sheets("FATTURA (2)").Name = Range("A1").Text


Dovrebbe funzionare.
Wally (Excel 2007)
Avatar utente
wallysimpsons
Utente Junior
 
Post: 11
Iscritto il: 25/11/09 14:09

Re: [Excel]Rinominare un foglio

Postdi ricky53 » 07/04/12 22:10

Ciao Descartes,
una domanda: perchè hai scritto così tante volte la seguente istruzione
Codice: Seleziona tutto
ActiveSheet.CheckBoxes.Add(544.5, 375.75, 24, 17.25).Select

Con tutte queste istruzioni vengono aggiunte "N" caselle di controllo aventi tutte la stessa dimensione e posizionate una sopra l'altra.

Mi sfugge l'utilità di ciò che hai fatto !!!


Wally
un commento: per rinominare un foglio non è necessario selezionarlo.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "[Excel]Rinominare un foglio":


Chi c’è in linea

Visitano il forum: Nessuno e 32 ospiti

cron