Condividi:        

rinomina fogli con textbox

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

rinomina fogli con textbox

Postdi miko » 28/02/10 20:23

ciao
ho trovato una macro, che genera e rinomina i fogli, creata da flash nel topic "Generare più fogli contemporaneamente con una macro";
sto provando a modificarla in modo che si possa generare ed inserire, in un textbox, il nome da attribuire ai fogli; i fogli creati vengono inseriti dopo il foglio Modello già presente nella cartella.
in un modulo ho inserito questo codice:
Codice: Seleziona tutto
Sub Crea_Rinomina_Fogli()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic 'xlManual
Dim i As Integer
Dim X As String
UserForm1.Show
UserForm1.TextBox1.SetFocus
'usiamo una textox per inserire il nome che vogliamo dare ai fogli
X = UserForm1.TextBox1.Text
'se non scriviamo niente nella textbox usciamo dalla routine
If X = "" Then Exit Sub '<<<<<<
If X <> "" Then  '<<<<<<
For i = 2 To 5 'max numero di fogli che vogliamo ottenere
 Sheets("Modello").Copy After:=Worksheets(Worksheets.Count)
'I fogli avranno un nome formato da X e dalla cifra i-1
 Application.Sheets(i).Name = "X" & " " & i - 1
   End If  '<<<<<<
  Next i
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

poi ho creato una form con un textbox ed un commandbutton, e nell'evento click del pulsante ho inserito
Codice: Seleziona tutto
Sub CommandButton1_Click()
Unload Me
End Sub

se elimino le linee evidenziate la macro funziona ma i nomi dei fogli sono x 1,x 2,x 3..
qualunque cosa si digiti nel textbox.
vorrei fare in modo che se non si inserisce nulla nel textbox premendo il pulsante non si genera niente, altrimenti i fogli avranno il nome del testo inserito.
come modifico il codice?
ciao grazie
windows 10 - office 2013
miko
Utente Senior
 
Post: 520
Iscritto il: 29/12/09 10:44

Sponsor
 

Re: rinomina fogli con textbox

Postdi Flash30005 » 28/02/10 22:14

Fai così
togli il bottone perché non serve
la macro la modifichi così

Codice: Seleziona tutto
Sub Inizio()
UserForm1.Show
UserForm1.TextBox1.SetFocus
End Sub

Sub Crea_Rinomina_Fogli()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic 'xlManual
Dim i As Integer
Dim X As String

'usiamo una textox per inserire il nome che vogliamo dare ai fogli
X = UserForm1.TextBox1.Text
'se non scriviamo niente nella textbox usciamo dalla routine
If X = "" Then goto salta '<<<<<<
'If X <> "" Then  '<<<<<<
    For i = 2 To UserForm1.TextBox1.Value + 1 'max numero di fogli che vogliamo ottenere
            Sheets("Modello").Copy After:=Worksheets(Worksheets.Count)
            'I fogli avranno un nome formato da X e dalla cifra i-1
            Application.Sheets(i).Name = "X" & " " & i - 1
'End If  '<<<<<<
Next i
salta:
UserForm1.Hide
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub


poi nel codice dell'userform e precisamente nel codice della casella testo inserirai questo
Codice: Seleziona tutto
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call Crea_Rinomina_Fogli
End Sub

in pratica appena premi invio dopo aver scritto il numero di fogli
la macro si attiverà
ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: rinomina fogli con textbox

Postdi miko » 07/03/10 10:59

salve,
ti ringrazio per la tua disponibilità e per i tuoi suggerimenti.
saluti
windows 10 - office 2013
miko
Utente Senior
 
Post: 520
Iscritto il: 29/12/09 10:44


Torna a Applicazioni Office Windows


Topic correlati a "rinomina fogli con textbox":


Chi c’è in linea

Visitano il forum: Ricky0185 e 47 ospiti