Buenas, tengo unas plantillas para imprimir etiquetas. Quiero incluir la numeración de la etiqueta, ejemplo:
etiqueta 5 de 367
He hecho un script que crea hojas nuevas con la numeración correspondiente pero apartir de la hoja 50 + o - aparece el error: 1004 en tiempo de ejecución:
Error en el método Copy de la clase Worksheet
Celda B2 = Número inicial
Celda C2 = Número final
Celda K2 = Número actual
Código vb:
Ver originalSub Botón1_AlHacerClic()
Dim comptador As Integer 'Comptador de fulls, posició anterior
Dim nomFull As String
comptador = 1
' Copia el full ppal per a que no es modifique
Sheets("Etiqueta").Select
Sheets("Etiqueta").Copy After:=Sheets(Sheets.Count)
nomFull = "base." & comptador
Sheets(Sheets.Count).Name = nomFull
' Crea les fulles augmentant el comptador
For Cont = Range("B2").Value To Range("C2").Value - 1
nomFull = "base." & comptador
Sheets(nomFull).Select
Sheets(nomFull).Copy After:=Sheets(Sheets.Count)
comptador = comptador + 1
nomFull = "base." & comptador
Sheets(Sheets.Count).Name = nomFull
Sheets(nomFull).Select
Range("K2").Value = Range("K2").Value + 1
Next
' Imprimeix els fulls (salta el primer full)
ActiveWorkbook.PrintOut From:=2
'Elimina les fulles creades excepte la principal
Application.DisplayAlerts = False 'Suprimir advertències
For Cont = Range("B2").Value To Range("C2").Value
nomFull = "base." & comptador
Sheets(nomFull).Delete
comptador = comptador - 1
Next
Application.DisplayAlerts = True ' Habilitar advertències
End Sub