Visual Basic - control de varios checkbox

Hola |||

Tengo un formulario que ejecuto en Excel con bastantes checkbox. Estoy intentando hacer por medio de un for una rutina para comprobar el estado de cada checkbox y hacer que en funcion de si esta marcado o no cargue unas etiquetas dentro de un array. Pero no puedo hacer referencia a los checkbox...o no sé como hacerlo. ¿Me podeis indicar alguna solución?.

Pilar Loiti

Adjunto código(que no funciona) para tener una idea

Seis CheckBox en el formulario

For z = 1 To 6

x = 0

If CheckBox1&z.Value = True Then


dato = Label & z.Caption
grupo(x) = dato

' Cargamos la descripcion en el segundo array
z1 = z + 1
datodes = Label & z1.Caption
descripcion(x) = datodes

x = x + 1

End If
Next z

No puedes buscar los nombres de los checkBox concatenando a la parte del nombre el valor de la variable z
Utiliza la funcion For Each (VairableObjeto) In Objeto
En tu caso podria ser algo asi


Dim Z as Integer
Dim X as Integer
Dim VarObjeto as Object
Dim VarEtiqueta as Object

Nota: Con las instrucciones anteriores se declaran las variables Z y X como numericas y la Variable VarObjeto y la Variable VarEtiqueta como Objeto

Nota: Con el siguiente grupo de instrucciones lo que se pretende es recorrer con el For Each ...... In ............ Next todos lo controles que contiene el objeto formulario y determinar cuales de ellos con controles CheckBox y cuales de ellos se encuentran seleccionados determinando el valor de la propiedad Value si es igual a True estara activado y si es False estara desactivado.

For Each VarObjeto In NombreFormulario.Controls
If TypeOf VarObjeto Is CheckBox Then
If VarObjeto.Value=True then

Nota: Si llega aqui es que se ha lozalizado un control CheckBox
seleccionado y su nombre se obtiene con la siguiente instruccion
VarObjeto.Name
Por lo que veo a los CheckBox los llamas a todos igual
añadiendoles un numero y a sus etiquetas Label con el mismo
numero que su CheckBos correspondiente, por lo tanto lo que
debemos determinar es el numero que cada CheckBox tiene y con
ello encontrar las corresponientes etiquetas. Aqui entra en juego la
segunda variable Objeto declarada VarEtiqueta

For Each VarEtiqueta In NombreFormulario.Controls
If TypeOf VarEtiqueta Is Label Then
If VarEtiqueta.Nama="Label" & Mid(VarObjeto,8) t hen

Nota: Si llega aqui es que hemos localizado la etiqueta el
Label que lleva el mismo numero que el CheckBox es
decir Label&numero?, CheckBox&numero?. Es aqui en
este punto donde deberias trabajar con las etiquetas
cargandolas en los Arrays

End If
End If
Next

End If
End If
Next

Espero que te ayude

Donde pone:
If VarEtiqueta.Nama="Label" & Mid(VarObjeto,8) t hen debe poner:
If VarEtiqueta.Nama="Label" & Mid(VarObjeto.Name,9) t hen

Te recomiendo algo en vez de tener x cantidad de checkbox con nombres diferentes , coloca un checkbox e indexalo la cantidad de veces que lo necesites...