formulairo excel

hoa, !

... un formulario... Como podria hacer que... al ir a cerrarse
valide que todos los campos obligatorios (celdas o rango de celdas)
no se dejen vacios, de forma que no se puede cerrar hasta que se cumplimente
indicando la celda(s) (o rango(s)) que falta por cumplimentar??

si podemos asumir que los rangos/celdas a cumplimentar (en la hoja activa) son:
A1, B3:B6, D7:E7, D10:E14

prueba este codigo en el evento de cierre en el modulo del formulario...
(OJO: asegurate de proveer otro medio de salida y/o de rellenar lo que haga falta)
(asi como ajustar a tus rangos reales)

saludos,
hector.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
With Range("a1,b3:b6,d7:e7,d10:e14")
If Evaluate("counta(" & .Address & ")") <> .Cells.Count Then
Cancel = True
MsgBox "No se han cumplimentado las celdas:" & vbCr & _
.SpecialCells(xlCellTypeBlanks).Address(0, 0)
End If
End With
End Sub

Hola Hector!!

Intentando entender/aprender sobre la solucion que me propones tengo interés
en conocer lo que hace el codigo
If Evaluate("counta(" & .Address & ")") <> .Cells.Count Then
Evaluate lo he encontrado en la ayuda del excel pero no he encontrado
"counta", ni lo que realza la expresión . address

Respecto a
OJO: asegurate de proveer otro medio de salida y/o de rellenar lo que haga
falta)
que quieres decir con otro medio de saldia y/o rellenar ...

Otra cosa ¿hay algún manual que me permita aprender todo esto??

como siempre muchas gracias
Saludos

"Héctor Miguel" escribió:

hoa, !

> ... un formulario... Como podria hacer que... al ir a cerrarse
> valide que todos los campos obligatorios (celdas o rango de celdas)
> no se dejen vacios, de forma que no se puede cerrar hasta que se cumplimente
> indicando la celda(s) (o rango(s)) que falta por cumplimentar??

si podemos asumir que los rangos/celdas a cumplimentar (en la hoja activa) son:
A1, B3:B6, D7:E7, D10:E14

prueba este codigo en el evento de cierre en el modulo del formulario...
(OJO: asegurate de proveer otro medio de salida y/o de rellenar lo que haga falta)
(asi como ajustar a tus rangos reales)

saludos,
hector.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
With Range("a1,b3:b6,d7:e7,d10:e14")
If Evaluate("counta(" & .Address & ")") <> .Cells.Count Then
Cancel = True
MsgBox "No se han cumplimentado las celdas:" & vbCr & _
.SpecialCells(xlCellTypeBlanks).Address(0, 0)
End If
End With
End Sub


.

Hola Hector!!

He incluido el codigo (tal cual) en el modulo de un libro, pero no me ha
funcionado

Gracias y saludos

"Héctor Miguel" escribió:

hoa, !

> ... un formulario... Como podria hacer que... al ir a cerrarse
> valide que todos los campos obligatorios (celdas o rango de celdas)
> no se dejen vacios, de forma que no se puede cerrar hasta que se cumplimente
> indicando la celda(s) (o rango(s)) que falta por cumplimentar??

si podemos asumir que los rangos/celdas a cumplimentar (en la hoja activa) son:
A1, B3:B6, D7:E7, D10:E14

prueba este codigo en el evento de cierre en el modulo del formulario...
(OJO: asegurate de proveer otro medio de salida y/o de rellenar lo que haga falta)
(asi como ajustar a tus rangos reales)

saludos,
hector.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
With Range("a1,b3:b6,d7:e7,d10:e14")
If Evaluate("counta(" & .Address & ")") <> .Cells.Count Then
Cancel = True
MsgBox "No se han cumplimentado las celdas:" & vbCr & _
.SpecialCells(xlCellTypeBlanks).Address(0, 0)
End If
End With
End Sub


.

hola, !

He incluido el codigo (tal cual) en el modulo de un libro, pero no me ha funcionado ...

prueba este codigo... en el modulo del formulario...

saludos,
hector.