Buscar y sumar en un label con 2 criterios
Tengo un detalle haber si me pudieran ayudar
En userform2 tengo 1 combobox y 2 labels
Lo que quiero hacer en el combobox1 es seleccionar la hoja en donde buscar
En label1 tengo el producto, que seria en la hoja la columna A y en columna G tengo la cantidad del producto y en label2 quiero el resultado
En la hoja hay muchos registros del mismo producto lo que quiero hacer es sumar todas las concidencias en el label2
Respuesta de Programar Excel
1
1 respuesta más de otro experto
Respuesta de Dante Amor
2
Te anexo el código, ponlo en el código de tu userform
Cambia "datos" por el nombre de tu hoja
Private Sub ComboBox1_Change()
'Por Dante Amor
Label2.Caption = ""
If ComboBox1 = "" Then Exit Sub
Set h = Sheets("datos")
Set r = h.Range("A:A")
Set b = r.Find(ComboBox1.Value, lookat:=xlWhole)
If Not b Is Nothing Then
celda = b.Address
Do
valor = h.Cells(b.Row, "G")
If IsNumeric(valor) Then
Label2.Caption = Val(Label2.Caption) + valor
End If
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> celda
End If
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Feliz Año 2018
.
Muchas Gracias
Set h = Sheets("datos")
Y como le para que ("datos") sea variable que sea lo que tengo en combobox2?
set h = sheets(combobox2.value)
En combobox2 deberás tener un nombre de hoja válida