Macro buscador por columna

Estimados Todos
Necesitaría por favor me orienten con la confección de un Código que ejecute la siguiente acción:
Debe buscar a lo largo de la Columna QUE de la hoja "Histórico M", el valor "296060" (por ejemplo) y tomar por cada aparición, su correspondiente en la columna DE, de manera de cargar un Combobox4 solo con 2 valores a saber:
1- El PROMEDIO de todos los valores correspondientes en la columna D
2- El MAYOR de todos ellos (también de la columna D)
Les estoy agradecido de antemano por su tiempo y dedicación
Un abrazo a todos
Daniel.
{"Lat":-34.6084175,"Lng":-58.3731613}

1 Respuesta

Respuesta
1
Por ejemplo, para que el cuadro combinado se llene al inicializar el formulario el código podría ser:
Private Sub UserForm_Initialize()
    Dim lÚltimaFila As Long, dbPromedio As Double, dbMáximo As Double
    lÚltimaFila = Worksheets("Histórico M").[D1].End(xlDown).Row
    Me.ComboBox4.AddItem Evaluate("=AVERAGE(IF('Histórico M'!K1:K" & lÚltimaFila & "=296060,'Histórico M'!D1:D" & lÚltimaFila & "))")
    Me.ComboBox4.AddItem Evaluate("=MAX(IF('Histórico M'!K1:K" & lÚltimaFila & "=296060,'Histórico M'!D1:D" & lÚltimaFila & "))")
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas