Macro sumar.si varias condiciones
Necesito generar una macro que sume valores en base a 2 condicionates. Tengo 2 hojas: "Datos" y "Resumen". La idea es que en la hoja resumen, para cada persona, se presenten las estimaciones de cada proyecto sumadas.
1 Respuesta
Respuesta de James Bond
1
Prueba con esta macro, este es el resultado
Sub sumar_condicionado()
Set hd = Worksheets("datos")
Set hr = Worksheets("resumen")
Set origen = hd.Range("a1").CurrentRegion
Set destino = hr.Range("a1").CurrentRegion
With origen
Set origen = .Rows(2).Resize(.Rows.Count - 1, .Columns.Count)
sumar = "datos!" & .Columns(4).Address
condicion1 = "datos!" & .Columns(1).Address
condicion2 = "datos!" & .Columns(3).Address
End With
With destino
Set destino = .Cells(2, 2).Resize(.Rows.Count - 1, .Columns.Count - 1)
For i = 1 To .Rows.Count
proyecto = .Cells(i, 0)
For j = 1 To .Columns.Count
persona = .Cells(0, j)
.Cells(i, j) = "=sumifs(" & sumar & "," & condicion1 & "," & .Cells(i, 0).Address & _
"," & condicion2 & "," & .Cells(0, j).Address & ")"
Next j
Next i
End With
End Sub
