Excel - Ayuda Combobox dentro de un For Excel VBA

Pos: 275

Val: 10

Ayuda Combobox dentro de un For Excel VBA

Publicado por David (6 intervenciones) el 16/08/2018 16:35:52

Buen día necesito alguien que me ayude relacionado con un código de vba excel, la cuestión es que tengo al rededor de 33 combobox cada uno puede arrojar una respuesta. Lo que necesito es poner conseguir la información de los 33 resultados de los combobox pero quiero saber como meterlo dentro de un ciclor For, tengo esta idea pero no compila entonces quisiera saber si alguien me puede ayudar o definitivamente esto no es posible.

For ii = 1 To 33

If ComboBoxii.Value = "En cumplimiento" Then

desempeñoii = 1

ElseIf ComboBoxii.Value = "Cumplimiento parcial" Then

desempeñoii = 2

ElseIf ComboBoxii.Value = "No está en cumplimiento" Then

desempeñoii = 9

End If

Cells(1, ii) = desempeñoii

Next

promedio = Application.WorksheetFunction.Average(Range(Cells(1, 1), Cells(1, ii - 1)))

MsgBox promedio

El problema es que no me permite poner "Comboboxii.value"

Gracias

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 3

Val: 3.136

Ayuda Combobox dentro de un For Excel VBA

Publicado por Andres Leonardo (1583 intervenciones) el 16/08/2018 17:17:23

te recomiendo en ves de hacer comboboxii

crees una matriz de controles (copia el primer combo y pega los N combos que necesites) cuando preguntes is deseas hacer matriz de controles le pones si

cambiara a algo asi

combobox(INDEX),value = a lo que se

Donde Index es el indice del control de la matriz que creaste

si necesitas algo mas con gudsto

Saludos

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 275

Val: 10

Ayuda Combobox dentro de un For Excel VBA

Publicado por David (6 intervenciones) el 16/08/2018 17:25:08

No entendí muy bien tu respuesta pero creo que no hace referencia a lo que busco porque en principio me refiero a una Macro de VBA con excel para la cuestión de leer los combobox.
Lo que necesito es por así decirlo saber el valor de cada combobox, así como para saber el nombre de cada hoja y usan un codigo parecido a esto.

'Dim libro As Workbook

'For Each libro In Workbooks

'    If libro.Name = "Indicadores Reportes Mtto 2018.xls" Then

'       libro_abierto

'       GoTo 5:

'    End If

'Next libro

Gracias

Valora esta respuesta

Comentar

Pos: 3

Val: 3.136

Ayuda Combobox dentro de un For Excel VBA

Publicado por Andres Leonardo (1583 intervenciones) el 16/08/2018 18:33:31

entonces seria algo asi ... si esta en un formularoio

confirma si esta dentro de la hhoja... habria que hacer un cambiao

Si esta en un formulario de usuario.

Dim contr As control

For Each contr In UserForm1.Controls

    If TypeName(contr) = "ComboBox" Then

             msgbox "El valor del " & contr.name &" Es:  " &  contr.Value

    End If

Next

si esta en la hoja

Dim cCont As Control

For Each cCont In Me.Controls

    If TypeName(cCont) = "ComboBox" Then

         msgbox "El valor del " & cCont.name &" Es:  " &  contr.Value

    End If

Next cCont

Valora esta respuesta

Comentar

Pos: 275

Val: 10

Ayuda Combobox dentro de un For Excel VBA

Publicado por David (6 intervenciones) el 16/08/2018 19:23:54

Ándale buscaba algo parecido a eso.

Muchas gracias

Valora esta respuesta

Comentar

Dato Estadistico

Tabla dinámica, solo aplicar filtro sin agrupar filas