Moderatori: Anthony47, Flash30005
Sub CreaFogli()
Application.ScreenUpdating = False
Application.Calculation = xlManual
For I = 1 To 100 '<<<< 100 = max numero di fogli che vuoi ottenere
NomeF = Format(I, "000")
Sheets("Modello").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = NomeF
Next I
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Torna a Applicazioni Office Windows
Chrome: due profili uguali aperti contemporaneamente Autore: franco11 |
Forum: Software Windows Risposte: 1 |
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 14 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Visitano il forum: Nessuno e 71 ospiti