URGENTE - Problemas con checkbox

19/03/2007 - 17:06 por Luis | Informe spam
Necesito de ayuda URGENTE por favor!!

He intentado hacer lo siguiente: cada vez que doy click en un check,
si este toma el valor de verdadero que se escriba 1 en cierta celda,
si toma el valor de falso que se escriba 0 en la misma. He tratado con
los siguientes procedimientos pero me sale error. Qué estoy haciendo
mal?? Cómo hago que la variable de ingreso a la función ActivaPersonas
sea un checkbox como tal y no el Valor del mismo????? Es posible
utilizar objetos (checkbox, textbox,etc) como parámetros de
procedimientos??

En el Formulario:

Private Sub chk4_Click()
ActivaPersonas frmEdades.chk4
End Sub

Y en Módulo1:

Sub ActivaPersonas(Chk As CheckBox)

Select Case Chk
Case frmEdades.chk4
If frmEdades.chk4.Value = True Then
Worksheets("Hoja4").Cells(5, 1) = 1
Else
Worksheets("Hoja4").Cells(5, 1) = 0
End If
Case frmEdades.chk9
If frmEdades.chk9.Value = True Then
Worksheets("Hoja4").Cells(6, 1) = 1
Else
Worksheets("Hoja4").Cells(6, 1) = 0
End If
End Select

End Sub

Ahhhh cabe indicar que en realidad son 14 cheks por lo cual se
imaginarán lo extenso del código, he puesto únicamente dos GRACIAS
nuevamente!!
 

Leer las respuestas

#1 Abraham
19/03/2007 - 17:20 | Informe spam
Juraria que ya te respondimos, veo que no te satisfiso ninguna de
nuestras respuestas... :(

http://foros.emagister.com/tema-urg...397785.htm

Abraham

Preguntas similares