
Error 1004 error al copiar la pagina
Publicado por Ppdeluxe (3 intervenciones) el 01/12/2011 15:47:32
Por que cuando copio muchas veces una hoja, me da error , ya estoy loco he intentado de todo, y no hay solucion para excel 2003 ??? por favor ayuda.
Sub Macro1()
Dim x As Integer
Dim hoja As Worksheet
Dim VARIABLE2 As String
Application.EnableCancelKey = xlDisabled
Set hoja = Sheets("carne")
For x = 1 To 100
hoja.Select
Worksheets("Carne").Select
Worksheets("CARNE").Copy After:=Worksheets("CARNE")
ActiveSheet.Paste
Worksheets("CARNE (2)").Name = "CARNE" & x
Next
End Sub
Sub Macro1()
Dim x As Integer
Dim hoja As Worksheet
Dim VARIABLE2 As String
Application.EnableCancelKey = xlDisabled
Set hoja = Sheets("carne")
For x = 1 To 100
hoja.Select
Worksheets("Carne").Select
Worksheets("CARNE").Copy After:=Worksheets("CARNE")
ActiveSheet.Paste
Worksheets("CARNE (2)").Name = "CARNE" & x
Next
End Sub
Valora esta pregunta


0