SUMAR COLUMNAS condicionads con macro
Quisiera crear una macro para sumar las columas F, H, J, L, N, P, R, T condicionadas si en la columna A sale un texto "MADERA" y que lo sumara en la primera celda vacia de la parte inferior de (F, H, J, L, N, P, R, T)
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro
Sub SumarColumnas()
'Por.Dante Amor
cols = Array("F", "H", "J", "L", "N", "P", "R", "T")
For i = LBound(cols) To UBound(cols)
u = Range(cols(i) & Rows.Count).End(xlUp).Row
Cells(u + 1, cols(i)) = Application.SumIf(Range("A1:A" & u), _
"MADERA", Range(Cells(1, cols(i)), Cells(u, cols(i))))
Next
End Sub
