BUCLE CON SUMAR.SI
Publicado por Winer (2 intervenciones) el 25/01/2022 06:36:11
HOLA TENGO UN PROBLEMA Y ESPERO ALGUIEN ME PUEDA AYUDAR
Necesito crear un bucle que utilice la función SUMAR.SI Donde
comparen un producto determinado de una tabla con n productos,
sume los que son iguales, escriba ese valor y salte al siguiente
producto para comparar. Comparto mi codigo, si alguien puede
ayudarme estaria muy agradecido.
Private Sub CommandButton1_Click()
Dim suma As Double
Hoja3.Select
With Application.WorksheetFunction
suma = .SumIf(Hoja4.Range("B:C"), Hoja3.Range("B2"), Hoja4.Range("C:C"))
Hoja3.Range("C2") = suma
'El codigo de arriba es el que necesito que se haga en bucle aumentando
'una linea para comparar y escribir como se muestra a continuación:
'suma = .SumIf(Hoja4.Range("B:C"), Hoja3.Range("B3"), Hoja4.Range("C:C"))
'Hoja3.Range("C3") = suma
End With
End Sub
Necesito crear un bucle que utilice la función SUMAR.SI Donde
comparen un producto determinado de una tabla con n productos,
sume los que son iguales, escriba ese valor y salte al siguiente
producto para comparar. Comparto mi codigo, si alguien puede
ayudarme estaria muy agradecido.
Private Sub CommandButton1_Click()
Dim suma As Double
Hoja3.Select
With Application.WorksheetFunction
suma = .SumIf(Hoja4.Range("B:C"), Hoja3.Range("B2"), Hoja4.Range("C:C"))
Hoja3.Range("C2") = suma
'El codigo de arriba es el que necesito que se haga en bucle aumentando
'una linea para comparar y escribir como se muestra a continuación:
'suma = .SumIf(Hoja4.Range("B:C"), Hoja3.Range("B3"), Hoja4.Range("C:C"))
'Hoja3.Range("C3") = suma
End With
End Sub
Valora esta pregunta
0
