Copiar hoja con VBA

03/08/2007 - 03:12 por crx73 | Informe spam
Buenas noches a todos desde Mexico.

Pido una ayudadita, me encuentro con un duda...

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

Cómo puedo hacer esto?

Agradezco toda la ayuda proporcionada.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
03/08/2007 - 03:32 | Informe spam
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.
Respuesta Responder a este mensaje
#2 crx73
03/08/2007 - 18:28 | Informe spam
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!!
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida