Ajutor realizare automata sheeturi

[EUSIEU]

Buna seara
am nevoie de ajutor
doresc sa realizez un buton cu comanda de a realiza mai multe sheeturi dupa o lista

[IPP]

Buna ziua

Codul propus mai jos exclude crearea de foi daca exista niste erori: In exemplul dvs. o eroare poate fi din cauza existentei de nume duplicate dar cel putin teoretic mai pot sa mai apara si altele, de ex. existenta de caractere nepermise in nume de foi.

Am folosit codul:

Cod: Selectaţi tot

Sub AddSheets()

'IPP - 09.04.2023

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

On Error Resume Next
 For Each c In Selection
  Sheets.Add(After:=Sheets(Sheets.Count)).Name = c.Value
 Next c
On Error GoTo 0

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

Pentru testare: deschideti fisierul atasat, activati macro/continutul, selectati celulele pentru care doriti generarea de foi cu numele respective si rulati macro

IP

[EUSIEU]

multumesc pentru ajutor