Como resumir en un listbox una selección de varios combobox

Tengo un form con 42 combobox, quisiera que en el listbox indique un resumen de las horas que se han reportado, de acuerdo a la imagen debería decir" Fecha (Label2) y ComboBox5. Cliente (Label3) y ComboBox2. Planner (Label3) y ComboBox1. Campaña (Label5) y ComboBox3. Estas deben aparecer en todas las consultas, y la parte de abajo solo donde se registre algún tiempo, si se elige más de 1 tiempo debería mostrar la suma.

Los label van desde label 30 hasta 48; los combobox (de Hora de combobox6 hasta combobox24) (de Minutos combobox 25 hasta combobox43)

Anexo los codigos que tengo en el form

Private Sub UserForm_Initialize()

' alimenta el combobox FECHA

Hoja2.Select
Range("A1").Select
Do While ActiveCell <> Empty
ComboBox1.AddItem ActiveCell.Value
ActiveCell.Offset(0, 1).Select
Loop

Application.ScreenUpdating = True
' alimenta el combobox FECHA
ComboBox5.Clear
Sheets("BBDD").Select
Range("A2").Select
While ActiveCell <> Empty
ComboBox5.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend
' alimenta el combobox de hora

ComboBox6.Clear
Sheets("BBDD").Select
Range("B2").Select
While ActiveCell <> Empty
ComboBox6.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox25.Clear
Sheets("BBDD").Select
Range("C2").Select
While ActiveCell <> Empty
ComboBox25.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox7.Clear
Sheets("BBDD").Select
Range("B2").Select
While ActiveCell <> Empty
ComboBox7.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox26.Clear
Sheets("BBDD").Select
Range("C2").Select
While ActiveCell <> Empty
ComboBox26.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox8.Clear
Sheets("BBDD").Select
Range("B2").Select
While ActiveCell <> Empty
ComboBox8.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox27.Clear
Sheets("BBDD").Select
Range("C2").Select
While ActiveCell <> Empty
ComboBox27.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox9.Clear
Sheets("BBDD").Select
Range("B2").Select
While ActiveCell <> Empty
ComboBox9.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox28.Clear
Sheets("BBDD").Select
Range("C2").Select
While ActiveCell <> Empty
ComboBox28.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend
ComboBox10.Clear
Sheets("BBDD").Select
Range("B2").Select
While ActiveCell <> Empty
ComboBox10.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox29.Clear
Sheets("BBDD").Select
Range("C2").Select
While ActiveCell <> Empty
ComboBox29.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend
ComboBox11.Clear
Sheets("BBDD").Select
Range("B2").Select
While ActiveCell <> Empty
ComboBox11.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox30.Clear
Sheets("BBDD").Select
Range("C2").Select
While ActiveCell <> Empty
ComboBox30.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox12.Clear
Sheets("BBDD").Select
Range("B2").Select
While ActiveCell <> Empty
ComboBox12.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox31.Clear
Sheets("BBDD").Select
Range("C2").Select
While ActiveCell <> Empty
ComboBox31.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox13.Clear
Sheets("BBDD").Select
Range("B2").Select
While ActiveCell <> Empty
ComboBox13.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox32.Clear
Sheets("BBDD").Select
Range("C2").Select
While ActiveCell <> Empty
ComboBox32.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox14.Clear
Sheets("BBDD").Select
Range("B2").Select
While ActiveCell <> Empty
ComboBox14.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox33.Clear
Sheets("BBDD").Select
Range("C2").Select
While ActiveCell <> Empty
ComboBox33.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox15.Clear
Sheets("BBDD").Select
Range("B2").Select
While ActiveCell <> Empty
ComboBox15.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox34.Clear
Sheets("BBDD").Select
Range("C2").Select
While ActiveCell <> Empty
ComboBox34.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox16.Clear
Sheets("BBDD").Select
Range("B2").Select
While ActiveCell <> Empty
ComboBox16.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox35.Clear
Sheets("BBDD").Select
Range("C2").Select
While ActiveCell <> Empty
ComboBox35.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox17.Clear
Sheets("BBDD").Select
Range("B2").Select
While ActiveCell <> Empty
ComboBox17.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox36.Clear
Sheets("BBDD").Select
Range("C2").Select
While ActiveCell <> Empty
ComboBox36.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox18.Clear
Sheets("BBDD").Select
Range("B2").Select
While ActiveCell <> Empty
ComboBox18.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox37.Clear
Sheets("BBDD").Select
Range("C2").Select
While ActiveCell <> Empty
ComboBox37.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

ComboBox19.Clear
Sheets("BBDD").Select
Range("B2").Select
While ActiveCell <> Empty
ComboBox19.AddItem ActiveCell
ActiveCell.Offset(1, 0).Select
Wend

End Sub

Respuesta
1

H o l a:

Recibí tu archivo, lo reviso y te comento.

Sal u dos

H o l a:

Te anexo el código simplificado para cargar los combos:

Private Sub UserForm_Initialize()
'Por.Dante Amor
    For i = 1 To Hoja2.Cells(1, Columns.Count).End(xlToLeft).Column
        ComboBox1.AddItem Hoja2.Cells(1, i)                             'Carga Combo PLANNER
    Next
    For i = 2 To Hoja5.Range("A" & Rows.Count).End(xlUp).Row
        ComboBox5.AddItem Hoja5.Cells(i, "A")                           'Carga Combo FECHA
    Next
    For i = 6 To 24
        Me.Controls("ComboBox" & i).RowSource = Hoja5.Name & "!B2:B25"  'Carga Combo HORAS
    Next
    For i = 25 To 43
        Me.Controls("ComboBox" & i).RowSource = Hoja5.Name & "!C2:C12"  'Carga Combo MIN
    Next
    f = 2
    For i = 30 To 48
        Me.Controls("Label" & i) = Hoja5.Cells(f, "D")                  'Carga ETIQUETAS
        f = f + 1
    Next
End Sub
'
Private Sub ComboBox1_Change()
'Por.Dante Amor
    '***Carga CLIENTES
    ComboBox2.Clear
    If ComboBox1 = "" Or ComboBox1.ListIndex = -1 Then Exit Sub
    columna = ComboBox1.ListIndex + 1
    For i = 2 To Hoja2.Cells(Rows.Count, columna).End(xlUp).Row
        ComboBox2.AddItem Hoja2.Cells(i, columna)
    Next
End Sub
'
Private Sub ComboBox2_Change()
'Por.Dante Amor
    '***Carga CAMPAÑA
    ComboBox3.Clear
    If ComboBox2 = "" Or ComboBox2.ListIndex = -1 Then Exit Sub
    columna = ComboBox2.ListIndex + 1
    For i = 2 To Hoja3.Cells(Rows.Count, columna).End(xlUp).Row
        ComboBox3.AddItem Hoja3.Cells(i, columna)
    Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Sumar dos filas distintas mayor a 0

Quiero sumar dos filas separadas por ejemplo fila 5 de A4 a J4 y fila 10 de A4 a J4, cada fila tiene resultados positivos o negativos, quiero que me sume en la celda B3 por ejemplo los datos positivos y en la celda C3 los datos negativos. Solo se...
2 respuestas

Filtrar ultima fecha según el criterio de una celda

Tengo una tabla de excel con la siguiente información Columna A el código del equipo. (Código único para cada equipo) Columna B la fecha en que se realizo la ultima revisión. Columna C el nombre del equipo. Columna D El tipo de revisión (preventivo,...
2 respuestas

Ocultar entorno access navegar por formularios e informes

Quiero ocultar el entorno de access pero que todo funcione tanto formulario como informes y que el icono salga en la barra de tareas
1 respuesta

Cómo hacer un filtro múltiple en formulario Excel?

Tengo un formulario en Excel con 5 combos combinado(Tipo, Año, Mes, servicio y Especialidad) y un cuadro de lista. La idea es que al seleccionar un valor en el cuadro combinado Tipo, en el cuadro de lista se me filtren los registros con ese valor,...
2 respuestas

Como poder bloquear tablas de access

Tengo un sistema dividido tablas y los formulario y quiero evitar que puedan entrar a las tablas así evito que modificquen algo
2 respuestas

Suma en un formulario de Excel

Estoy realizando un formulario, el cual al salir del ultimo texbox me sume los anteriores, he usado el siguiente código Private Sub base0_Change() On Error Resume Next Me.totalfactura = Round((Me.base0 + Me.base10 + Me.base21 + Me.base4 + Me.base5) +...
2 respuestas

Me pide contraseña al cerrar la base de datos

Hoy me ha ocurrido una cosa que no me ha pasado nunca, al cerrar la BD me pide contraseña. He mirado todo lo que se me ha ocurrido y no doy con lo que puede ser. Solo me ocurre con una BD en concreto, y que no he hecho nada en particular en la misma....
2 respuestas

Copiar dato de una celda para filtrar una tabla en otra hoja

En la primera hoja tengo una tabla con datos que alimenta otra tabla que se encuentra en una segunda hoja. Quisiera una macro que copie el contenido de la celda que tenga seleccionada, después ir la segunda hoja y filtrar ese dato en la tabla que ahí...
2 respuestas

Pasar de hoja resumen a plantilla de factura

Tengo un Excel, con un hoja resumen de datos, y lo que quisiera hacer, es que me pasara los datos que tengo en cada línea de la hoja resumen de forma de forma automática, a diferentes hojas de excel del mismo libro, en unas celdas concretas,...
3 respuestas

Access 2013 - Formulario para logear usuarios con contraseña

Estoy planeando agregarle a mi base de datos, un formulario para que logueen distintos usuarios. He estado viendo videos y me doy una idea. Pero mi base de datos está dividida en front y back end, he leído por ahí que eso puede ser un problema al...
3 respuestas