Copiar hoja con VBA

hola, (...) ?

Quiero una hoja de un libro a otro libro ya existente pero una vez hecha la copia
quiero cambiarle el nombre y q este nombre se componga por la fecha y hora actual
es decir 02/08/2007 18:14:25
La hoja se llamaria 70802181425 [...]

[p.e.] asumiendo que *el otro libro* esta abierto y se llama "libro2" -?-

With Workbooks("libro2")
ActiveSheet.Copy .Worksheets(.Worksheets.Count)
End With
ActiveSheet.Name = Mid(Format(Now, "ddmmyyhhmmss"), 2)

si quieres que se copie como ultima hoja de libro2, cambia la segunda linea a:...

ActiveSheet.Copy After:=.Worksheets(.Worksheets.Count)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

On 2 ago, 20:32, "Héctor Miguel"
wrote:

hola, (...) ?

> Quiero una hoja de un libro a otro libro ya existente pero una vez hecha la copia
> quiero cambiarle el nombre y q este nombre se componga por la fecha y hora actual
> es decir 02/08/2007 18:14:25
> La hoja se llamaria 70802181425 [...]

[p.e.] asumiendo que *el otro libro* esta abierto y se llama "libro2" -?-

With Workbooks("libro2")
ActiveSheet.Copy .Worksheets(.Worksheets.Count)
End With
ActiveSheet.Name = Mid(Format(Now, "ddmmyyhhmmss"), 2)

si quieres que se copie como ultima hoja de libro2, cambia la segunda linea a:...

ActiveSheet.Copy After:=.Worksheets(.Worksheets.Count)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Hector, algo mejor no podia haber!!!

Muchas gracias, he conseguido lo que queria.

Quedo muy agradecido por tu ayuda!!