Fecha

hola, Ramón !

Es posible que al abrir una hoja, se inserte de forma automatica la fecha actual en una celda
pero solo si no esta ya, o sea si esta vacia ?

si suponemos que "una hoja" se llama "hoja1"
y que "una celda" es la celda [A1]
(aunque una celda no vacia tampoco significa que contenga un dato de fecha) -???-

prueba copiando/pegando (o escribiendo) el siguiente procedimiento en el modulo de codigo del ThisWorkbook:

Private Sub Workbook_Open()
With Worksheets("hoja1")
If IsEmpty(.Range("a1")) Then .Range("a1") = Date
End With
End Sub

saludos,
hector.

Hola
Gracias por la respuesta , funciona correctamente :

Private Sub Worksheet_Activate()
With Worksheets("hoja1")
If IsEmpty(.Range("H10")) Then .Range("H10") = Date
End With
'End Sub

Asi intentaba hacerlo funcionar y no habia forma :

Private Sub Worksheet_Activate()
Dim myRange As Range
Set myRange = Worksheets("hoja1").Range("H10")
If IsNull(myRange.Value) Then
myRange.Formula = "=HOY()"
End If
End Sub

Saludos
Ramón



"Héctor Miguel" escribió en el mensaje
news:%

hola, Ramón !

Es posible que al abrir una hoja, se inserte de forma automatica la fecha
actual en una celda
pero solo si no esta ya, o sea si esta vacia ?

si suponemos que "una hoja" se llama "hoja1"
y que "una celda" es la celda [A1]
(aunque una celda no vacia tampoco significa que contenga un dato de
fecha) -???-

prueba copiando/pegando (o escribiendo) el siguiente procedimiento en el
modulo de codigo del ThisWorkbook:

Private Sub Workbook_Open()
With Worksheets("hoja1")
If IsEmpty(.Range("a1")) Then .Range("a1") = Date
End With
End Sub

saludos,
hector.

Lazar escribió:

Hola
Es posible que al abrir una hoja , se inserte de forma automática la fecha
actual en una celda, pero solo si no esta ya , o sea si esta vacía ?

Gracias
Ramón

Hola Ramon.

Puedes crear una macro que se ejecute al abrir el archivo, que escriba
la formula "dia" en una celda determinada "=DIA" está formula muestra la
fecha actual.