Foro Excel

Hola,

He creado esta macro para crear una hoja y bueno hacer otras cosas que yo necesito en mi fichero.

El problema se presenta cuando la ejecuto 38 veces, es decir 38 hojas creadas consecutivamente. entonces me anuncia un error y debo salvar el fichero y volverlo a abrir para poder seguir creando mas hojas.

asi mismo despues sigo, se presenta el error en la numero 58 76 y 89....

hay alguna posibilidad de corregir este bug de excel????

Gracias,

Gabriel.




Option Compare Text
Sub Create_Rename_Counter_Sheets()
NBRSHEET = Sheets.Count - 7
S = NBRSHEET + 7
Dim Part As String
Part = InputBox("Part Name", "Part")

If Len(Part) = 0 Then Exit Sub

For i = 1 To Sheets.Count

If Sheets(i).Name = Part Then
MsgBox "Pií¨ce déjí  crée-Part already created", vbInformation + vbOKOnly, "Attention"

Exit Sub

End If

Next

Sheets("Template").Select
Sheets("Template").Copy Before:=Sheets(S)
Worksheets(S).Range("D5").Value = Part
Worksheets(S).Select
ActiveSheet.Unprotect ("qualite")
Columns("B:B").ColumnWidth = 20#
Worksheets(S).Select
ActiveSheet.Protect Password:="qualite", DrawingObjects:=True, Contents:=True, Scenarios:=True
Worksheets(S).Name = Part
Worksheets(S).Select
End Sub

Gabriel:

Supongo que el error se debe al nombre que introduces en el InputBox. este mensaje contiene un ejemplo de cómo superar este problema:

http://www.exceluciones.com/portal/view ... 7310#17310

Espero que te sirva. Saludos