Poder ingresar un valor si celda vacía
Ola que tal:
Estoy creando un formato en una hoja de excel donde tengo esta situación:
A B
1 FECHA FOLIO
2 24/08/2012 111111
3 SIN FOLIO
La columna A esta validada con un periodo para que pueda aceptar la fecha (del 24/08/2012 al 31/08/2012). Hasta aquí no tengo problema
El detalla está que quiero validar la columna B para que se puedan introducir datos unicamente si en la columna A ya existe una fecha aceptada. No necesariamente que me salga la leyenda "SIN FOLIO".
De antemano les agradezco!
Saludos
1 respuesta
Te mando mi solución. Mediante el evento worksheet_change de la hoja en cuestión se puede conseguir:
Esta macro la tienes que copiar dentro del objeto hoja que estás tratando.
El evento se disparará automáticamente siempre que introduzcas datos en la columna B de dicha hoja y si detecta que no hay datos en la celda de la izquierda no permitirá poner el folio.
Private Sub Worksheet_Change(ByVal Target As Range) 'por luismondelo If Target.Column = 2 Then If Target.Offset(0, -1).Value = "" Then Application.EnableEvents = False Target.Select MsgBox "no hay fecha aceptada. Se borrará" Target.ClearContents Target.Offset(0, -1).Select Application.EnableEvents = True Exit Sub End If End If End Sub
recuerda finalizar la consulta
