SUBTOTAL da extra satır girmesi

[selo1234]

Merhabalar,
Subtotal ın macro içinde küçük bir denemesini yapmaya çalışıyorum. kodu ekledim. macroyu her çalıştırdığımda grand totla dan önce extra boş satırlar sokuyor. tüm argumanlarla roynadım fakat düzeltemedim. Geçmiş yazılarda benzer problem hakkında bir şey göremedim.
Yardımlarınız için şimdiden teşekkürler.
selo1234

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub ALTTOPLAM_AL()
    Application.ScreenUpdating = False
    Cells.RemoveSubtotal
    Range("A2:B65536").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    Range("A1").Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2), _
    Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    Application.ScreenUpdating = True
End Sub

 

[selo1234]

Çok teşekkürler Korhan Ayhan,
Yazdığınız kod işimi gördü. Son bir soru daha sormak istiyorum; sayfanın en solundaki satırları açıp, kapatan "+" ve "-" ile gösterilen kolonları gizlemek mümkünmüdür acaba?
İyi geceler
selo1234

 

[Korhan Ayhan]

Selamlar,

"Araçlar" menüsünden "Görünüm" sekmesini seçin. Bu ekranda "Seviyelendirme simgeleri" seçeneğini pasif yapın ve tamam deyin.

 

[selo1234]

Çok teşekkürler.
İyi günler dilerim.
selo1234