GUARDAR FECHA DE APERTURA

[andor]

hola..

tengo el siguiente codigo:


Sub InsertarFecha()


Selection.Offset(1, 0).Value = Date
Selection.End(xlDown).Select
Select Case ActiveCell.Value
Case Is = Range("c2").Value...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Hola, si a la subrutina la llamas desde el evento open del objeto workbook sería así:
(OJO CON LA HOJA QUE SE TRABAJA)
'esto va en un módulo
Sub GuardarFechas()
If Hoja1.Range("A1").Value =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[andor]

gracias adrian funciona perfecto y voy a seguir tu recomendacion y lo hare en evento workbook open