VBA Excel - Array de objetos

[fjchavez]

Hola a tod@s,

Tengo un formulario en donde tengo varios textboxs, comboboxs y optionbuttons, tengo varias restricciones por ejemplo tengo un optionbutton que segun la opcion activa un combobox y segun eso se llena la información. Tengo un boton guardar y quiero que guarde solo los controles que estan llenos. Como haria para que me identifique los controles llenos y luego recorrer ese array de controles y guardarlos en una hoja excel ???.

[abrahamvj]

En este ejemplo se recorren los controles diferentes de un userform y dependiendo del tipo se pintan de un determinado color

Dim objeto As Object

For Each objeto In Me.Controls

Select Case TypeName(objeto)
Case "Label"
objeto.BackColor = vbBlue
Case "TextBox"
objeto.BackColor = vbGreen
Case "CheckBox"
objeto.BackColor = vbYellow
Case "CommandButton"
objeto.BackColor = vbBlack
End Select

Next objeto


Abraham

[fjchavez]

Hola Abrahamvj gracias por la ayuda. He modificado el codigo que enviaste y quisiera que el nombre me lo almacene en un array, como haria eso???
Gracias de antemano por tu ayuda.

Código vb:

Dim objeto As Object
 
For Each objeto In Me.Controls
Select Case TypeName(objeto)
Case "TextBox"
objeto.BackColor = vbGreen
if objeto.Value <> "" then
 ALMACENAR EL NOMBRE DEL CONTROL EN UN ARRAY
end if
Case "ComboBox"
objeto.BackColor = vbYellow
if objeto.Value <> "" then
 ALMACENAR EL NOMBRE DEL CONTROL EN UN ARRAY
end if
Case "OptionButton"
objeto.BackColor = vbBlack
if objeto.Value <> "" then
 ALMACENAR EL NOMBRE DEL CONTROL EN UN ARRAY
end if
End Select
 
Next objeto
 

[abrahamvj]

Pues usando la propiedad Name del "Objeto" consigues los nombres

Abraham

[fjchavez]

claro objeto.name pero como se haria para almacenarlo a un array??

[abrahamvj]

Pues declara tu variable del Array, y a traves de ReDim vas redeimendioando tu array y le vas agregando valores

Abraham