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