Sumar con macros, solo los datos activos de una filtración?
Será que existe algún código para sumar solamente los datos que después de un filtro, ¿queden visibles?, es decir; solo quiero que sumen los valores activos (algo así como subtotales).
1 Respuesta
Respuesta de Juan Cosceri
1
Te envío la Macro para sumar Subtotales.
Sub SumVisibleCells()
'
Dim SumVal As Long
Set SelSH = Sheets("Hoja1")
SumCol = 6
HeadeRow = 3 'Columna del encabezado de la tabla
SelSHLR = SelSH.Cells(SelSH.Rows.Count, SumCol).End(xlUp).Row 'LastRow
If HeadeRow = SelSHLR Then
SumVal = 0
Else
SumVal = Application.Sum(SelSH.Range(Cells(HeadeRow + 1, SumCol), Cells(SelSHLR, SumCol)).SpecialCells(xlCellTypeVisible))
End If
End SubPor Favor Recuerda valorar la respuesta!
Slds
Juan
