¿Cómo evitar las celdas vacías?

hola, Marcelo !

... evitar que ... pueda (erroneamente) dejar ... una celda ... vacia?.
... es del tipo FECHA-HORA ... importante para el posterior calculo en otra celda [...]
Trate de hacer eso de FORMATO CONDICIONAL ... pero nada...
Algun truco que salga un cuadro de advertencia [...]

considerando que un dato 'fecha-hora' es [tambien] un dato 'numerico' [NO 'texto']...
te expongo en seguida 3 [posibles] 'aternativas' [suponiendo en todos los casos la celda 'A1']
quizas un poquito 'exageradas'
[si te decides por utilizarlas todas, pero... podras encontrarles el 'justo medio'] ;)

saludos,
hector.

1.- por formatos condicionales... 'mantener una alerta visual' cuando el valor de la celda sea 'incorrecto'
condicion -> formula
formula -> =o(esblanco(a1),estexto(a1))
formatos -> [p.e.] fuente negrita/rojo + los 4 bordes + trama color amarillo
2.- 'evitar' que el usuario 'pueda' seleccionar ninguna celda mientras el valor de la celda sea 'incorrecto'
en el modulo de codigo de 'la hoja' ==Private Sub Worksheet_SelectionChange(ByVal Target As Range): Exit Sub
If Not Intersect(Target, [a1]) Is Nothing Then Exit Sub
If IsEmpty([a1]) Or Application.IsText([a1]) Then
MsgBox "La entrada en la celda A1 es incorecta !!!"
[a1].Select
End If
End Sub
3.- 'evitar' que el usuario pueda 'cambiarse de hoja' mientras el valor de la celda sea 'incorrecto'
en el modulo de codigo de 'la hoja' ==Private Sub Worksheet_Deactivate(): Exit Sub
If IsEmpty([a1]) Or Application.IsText([a1]) Then
MsgBox "La entrada en la celda A1 es incorecta !!!"
Me.Activate
[a1].Select
End If
End Sub

hola, Marcelo !

=> QUITA en la primer linea de los codigos 'la salida' del evento desde los dos puntos... ->: Exit Sub<-
[perdon... 'se me chispotio' durante las pruebas] :((

saludos,
hector.

Hector miguel
como puedo hacer la validacion (contra que)
o si requiero un dato por ejemplo 1, o 2
me sirve el codigo????
perdon por utilizar el ejemplo, pero me es de mucha utilidad
gracias

"Héctor Miguel" escribió:

hola, Marcelo !

=> QUITA en la primer linea de los codigos 'la salida' del evento desde los dos puntos... ->: Exit Sub<-
[perdon... 'se me chispotio' durante las pruebas] :((

saludos,
hector.

hola, BLACIO !

... hacer la validacion (contra que) o si requiero un dato por ejemplo 1, o 2 me sirve el codigo?

si te refieres al codigo para 'evitar' que el usuario 'navegue por la hoja mientras no...
[una posibilidad seria +/- como la siguiente]
en el modulo de codigo de 'la hoja' ==Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Exit Sub
If Application.IsText([a1]) Then
MsgBox "La entrada en la celda A1 debe ser 1 o 2 !!!"
[a1].Select
ElseIf [a1] < 1 Or [a1] > 2 Then
MsgBox "La entrada en la celda A1 debe ser 1 o 2 !!!"
[a1].Select
End If
End Sub

saludos,
hector.