Witam,
nagrałem w excel makro, która ma za zadanie m.in sumowanie pewien zakres komórek. Niestety przy zmianie ilości wierszy nie dochodzi do sumowania wartości. Poniżej kod makra. Będę wdzięczny za pomoc, gdzie dokonać zmian.
Sub fv_073()
Range("A:A,G:G,H:H,O:O,P:P").Select
Range("P1").Activate
ActiveWindow.SmallScroll ToRight:=8
Range("A:A,G:G,H:H,O:O,P:P,W:W,X:X,Y:Y,Z:Z").Select
Range("Z1").Activate
ActiveWindow.ScrollColumn = 11
Range("A:A,G:G,H:H,O:O,P:P,W:W,X:X,Y:Y,Z:Z,AA:AA,AB:AB,AC:AC").Select
Range("AC1").Activate
Selection.Delete Shift:=xlToLeft
ActiveWindow.ScrollColumn = 1
Rows("1:1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$AC$61").AutoFilter Field:=13
ActiveSheet.Range("$A$1:$AC$61").AutoFilter Field:=13, Criteria1:="TAK"
ActiveSheet.Range("$A$1:$AC$61").AutoFilter Field:=17, Criteria1:="=Braki" _
, Operator:=xlOr, Criteria2:="=Do uruchomienia"
Range("E9:E62").Select
Range("E62").Activate
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-53]C:R[-1]C)"
Range("D62").Select
ActiveCell.FormulaR1C1 = "SUMA"
Range("D63").Select
End sub