Trabajo en Excel con hoja auxiliar
Dante
Quisiera pasarte por correo privado una duda que se me presenta.
Necesito contar piezas y separarlas según 3 criterios y colocarlas en 3 celdas distintas. La presentación será un informe con varias presentaciones al mismo tiempo.
¿Podrías darme una mano?
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro para realizar las sumas
Private Sub CommandButton1_Click()
'Por.Dante Amor
'Llenar la hoja "Informes"
Set h1 = Sheets("PROGRAMADOS")
Set h2 = Sheets("INFORMES")
u = h1.Range("A" & Rows.Count).End(xlUp).Row
'
s1 = Evaluate("=SUMPRODUCT((" & h1.Name & "!N2:N" & u & " = " & cbxartic & ") * " & _
"(right(" & h1.Name & "!G2:G" & u & ", 2) = ""00"") * " & _
h1.Name & "!Q2:Q" & u & ")")
s2 = Evaluate("=SUMPRODUCT((" & h1.Name & "!N2:N" & u & " = " & cbxartic & ") * " & _
"(right(" & h1.Name & "!G2:G" & u & ", 2) = ""01"") * " & _
h1.Name & "!Q2:Q" & u & ")")
s3 = Evaluate("=SUMPRODUCT((" & h1.Name & "!N2:N" & u & " = " & cbxartic & ") * " & _
"(right(" & h1.Name & "!G2:G" & u & ", 2) = ""02"") * " & _
h1.Name & "!Q2:Q" & u & ")")
'
h2.[D7] = s1
h2.[D8] = s2
h2.[D9] = s3
End SubCada suma está resuelta con una fórmula matricial, suma la columna Q, si la columna N tiene el combo, la G si la terminación es "00", "01" o "02" y los valores .
Sal u dos
