Problema checkbox

Puedes exponer mas del codigo, ya que parece que el problema radica en como
haces la referencia a los checkbox

¿Porque no puebas a utilizar las constantes de que dispone VB? (vbChecked y
vbUnchecked) Utilizandolas a mi nunca me ha dado ningún problema...

···
If checkBox (i) = vbChecked Then
···

Un saludo!

escribió en el mensaje
news:

Buenas:
Estoy creando una hoja en excel que contiene una lista con una serie de
musculos(en la primera columna) y otra columna con unos checkbox.Cuando
cliquemos sobre esos checkbox, queremos que ese musculo se represente
en un programa especifico. El problema es que dentro del if no coge
bien cuando el checkbox esta a true. Ahora tengo esto:

For i = 1 To 6
If checkBox & i = True Then
El valor de i lo coge bien pero de los checkbox no

Si alguien podria ayudarme,... muchas gracias

"Luis Alberto Manero" escribió en el mensaje
news:

¿Porque no puebas a utilizar las constantes de que dispone VB? (vbChecked
y vbUnchecked) Utilizandolas a mi nunca me ha dado ningún problema...

···
If checkBox (i) = vbChecked Then
···

Hola Luis, para aclarar...

No puede hacer lo que sugieres, ni tampoco lo que comenta 'KL'.
Dijo claramente que tenía varios 'CheckBox' en una hoja de Excel, no en
un UserForm, luego no puede usar la colección 'Controls'.
Y no puede usar 'vbChecked' (a no ser que la declare explícitamente con
los valores adecuados), porque esta constante no existe en Excel. Si tiene
'Option Explicit' activado le avisará, sino, 'vbChecked' tendrá valor
"Empty".


Saludos
( ! ) Respuestas precedentes en Google:
http://tinyurl.com/43b3q
( i ) Temperancia en el foro:
http://www.uyssoft.com/MSNews.aspx?sm

"Vinchenzo vinç" wrote

No puede hacer lo que sugieres, ni tampoco lo que comenta 'KL'.
Dijo claramente que tenía varios 'CheckBox' en una hoja de Excel, no en
un UserForm, luego no puede usar la colección 'Controls'.

Opps! Cierto, no me habia fijado bien :-)

Por cierto, para ahorrar espacio podemos prescindir del uso expreso tanto de la propiedad Value como del valor True (y segun la situacion tambien de la referencia de hoja):

For i = 1 To 6
If Sheets(1).OLEObjects("CheckBox" & i).Object Then
'Tu codigo aqui
End If
Next

Saludos,
KL

Muchas gracias por todo. Con esta opcion ya hemos resuelto el problema
y funciona perfectamente.
Gracias de nuevo.

For i = 1 To 6
If Sheets(1).OLEObjects("CheckBox" & i).Object Then
'Tu codigo aqui
End If
Next

Saludos,

Eva y Helen