salve
ti posto solo un esempio di come potrebbe essere sviluppato un codice.
La macro che segue, richiede di digitare il criterio del filtro (nell'esempio si prende in considerazione la colonna 2), dopo di che filtra il foglio esegue i subtotali,
e copia la riga di essi sul foglio 2 a partire dalla cella A1.
Questi parametri dovranno essere adattati al tuo lavoro.
Il filtro viene applicato ca colonna A a colonna R
Sub Filtro()
ur = Range("b" & Rows.Count).End(xlUp).Row
X = InputBox("Criterio Ricerca", "Criterio")
Range("A1:R" & ur).AutoFilter Field:=2, Criteria1:=X
For n = 3 To 18
Cells(ur + 2, n).Value = WorksheetFunction.Subtotal(9, Range(Cells(2, n), Cells(ur, n)))
Next n
Range(Cells(ur + 2, 3), Cells(ur + 2, 18)).SpecialCells(xlCellTypeVisible).Copy _ Destination:=Sheets("Foglio2").Range("A1")
Rows(ur + 2).ClearContents
End Sub
In caso di problemi, chiedi
saluti
Giap