VBA

hola, violeta !

puedes usar codigo en el evento'_selectionchange' en el modulo de *esa* hoja +/- como sigue:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty(Range("c12")) Then MsgBox "C12 no puede estar vacia !!!": Range("c12).Select
End Sub

pero supongo que los datos que expones son mas bien *ilustrativos* -?-
y es mas seguro que probable que la situacion *real* sea un tanto cuanto diferente -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ la consulta original __

QUISIERA CONDICIONAR UNA CELDA PARA QUE NO PERMITIERA SEGUIR CAPTURANDO SI NO ES LLENADA, EJEMPLO:
EN LA CELDA C12 SE CAPTURA EL NUMERO DE EMPLEADO, ESTE TIENE QUE SER OBLIGATORIO
Y QUIERO QUE SE BLOQUE LA SIGUIENTE CELDA SI NO SE CAPTURO EL NUMERO
ESPERO ME ENTIENDAN Y ME PUEDAN AYUDAR.

hola

oye segui las instrucciones como le las diste pero me genera un error que
dice se esperaba separador de listas o )

espero me puedas ayudar

saludos

"Héctor Miguel" escribió:

hola, violeta !

puedes usar codigo en el evento'_selectionchange' en el modulo de *esa* hoja +/- como sigue:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty(Range("c12")) Then MsgBox "C12 no puede estar vacia !!!": Range("c12).Select
End Sub

pero supongo que los datos que expones son mas bien *ilustrativos* -?-
y es mas seguro que probable que la situacion *real* sea un tanto cuanto diferente -?-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ la consulta original __
> QUISIERA CONDICIONAR UNA CELDA PARA QUE NO PERMITIERA SEGUIR CAPTURANDO SI NO ES LLENADA, EJEMPLO:
> EN LA CELDA C12 SE CAPTURA EL NUMERO DE EMPLEADO, ESTE TIENE QUE SER OBLIGATORIO
> Y QUIERO QUE SE BLOQUE LA SIGUIENTE CELDA SI NO SE CAPTURO EL NUMERO
> ESPERO ME ENTIENDAN Y ME PUEDAN AYUDAR.

hola, violeta !

oye segui las instrucciones como le las diste pero me genera un error que dice se esperaba separador de listas o )...

perdon... *me comi* unas comillas dobles :-((

modifica a:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty(Range("c12")) Then MsgBox "C12 no puede quedar vacia !!!": Range("c12").Select
End Sub

saludos,
hector.

Hola

hize lo que me mandaste, pero no hace nada, en que estoy mal?, que puedo
hacer?

espero me puedas ayudar

saludos

"Héctor Miguel" escribió:

hola, violeta !

> oye segui las instrucciones como le las diste pero me genera un error que dice se esperaba separador de listas o )...

perdon... *me comi* unas comillas dobles :-((

modifica a:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty(Range("c12")) Then MsgBox "C12 no puede quedar vacia !!!": Range("c12").Select
End Sub

saludos,
hector.

hola, violeta !

hize lo que me mandaste, pero no hace nada, en que estoy mal?, que puedo hacer?

[probablemente] estas copiando el codigo en un modulo 'normal' o NO en el moduo de *esa* hoja -?-

1) haz un clic-secundario sobre la etiqueta con el nombre de la hoja que vas a *controlar*
2) selecciona del menu contextual la opcion de *ver codigo*
3) copia/pega en *ese* modulo las siguientes lineas:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsEmpty(Range("c12")) Then MsgBox "C12 no puede quedar vacia !!!": Range("c12").Select
End Sub

[por si las dudas] asegurate que NO haya eventos duplicados en el mismo modulo -?-

corre algunas pruebas y, si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.