Problema crear nueva hoja y copiar datos a ella

[Invitado Jorgecar]

Hola,

Tengo el siguiente problema que no podido resolver. El inconveniente es cuando se crea una nueva hoja como copia de otra existente y al tratar de acceder a la nueva y copiar datos, esto no es posible. Los datos que intento escribir los escribe a la anterior hoja nunca en la nueva.

La siguiente es una muestra del programa.

Alguien me puede ayudar, muchas gracias de antemano.

Sub prueba()

Dim nhoja, pos As String

Dim hojanueva As Worksheet

Dim nfila As Integer

nhoja = "prueba"

Worksheets("FORMATO").Activate

Worksheets("FORMATO").Copy After:=Worksheets(Sheets.Count)

' Worksheets("FORMATO").Copy After:=Worksheets(nhoja) NO funciona

Set hojanueva = Sheets(Worksheets.Count)

hojanueva.Name = nhoja

Worksheets(Sheets.Count).Activate

' Worksheets(nhoja).Activate

' Range("a1").Select Esta línea genera error 1004 ?????

Range("a7").Value = "Juan"

Range("a8").Value = "Administrador"

End Sub

Al archivo Excel tiene 3 hojas "Inicio" , "FORMATO" y la hoja "prueba", los datos los escribe sobre la hoja "Inicio" y no se porque. he intentado con las líneas de están con comentarios pero genera el error 1004.

Gracias.

[Cesar Durand]

Hola,

Prueba con este código:

    Worksheets.Add(after:=Worksheets(Worksheets.Count)).Name = "Prueba"


    Worksheets(2).[a1].Copy Destination:=Worksheets(Worksheets.Count).[a1][/CODE]

Slds.-

[Invitado Jorgecar]

Hola Cesar, muchas gracias por la respuesta.

Ahora mi problema es que quiero copiar datos a la hoja "prueba" que acabo de crear, pero los datos los deja en la hoja "inicio".