Alt toplam haricindeki verilerin silinmesi

[xrolexx]

Merhaba arkadaslar,

Makroyla "Veriler" bölümündeki ALT TOPLAMLAR özelligini kullanarak bir datanin ALT TOPLAMLAR'ini hesaplatiyorum. Ancak birseyi halledemedim. Istiyorum ki ALT TOPLAMLAR hesaplandiktan sonra o datada genel toplamla birlikte diger bütün verilerin silinmesi. Yani geriye sadece datada ALT TOPLAM'larin kalmasi.

NOT: Ingilizcede alt toplam "xxxx Total" türkcede ise "Toplam xxxx" seklinde belirleniyor..Genel toplamsa ingilizcede "Grand Total" türkcede ise "Genel Toplam" seklindedir..

Bunu sunun icin söylüyorum calisma dosyami yurtdisi ofisler icin hazirliyorum ve onlarin hangi dilde excel kullandigini bilemiyorum. Bulgaristan, Romanya, Litvanya, Hong Kong...

Hangi dilde olursa olsun ALT TOPLAM'i belirleyecek bir standart kod var midir?

Simdiden tesekkürler..

 

[Korhan Ayhan]

Selamlar,

Örnek dosya eklermisiniz.

 

[xrolexx]

Örnek bir dosya ekledim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub ALT_TOPLAM_DÜZENLE()
    Cells.Copy
    Cells.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Cells.RemoveSubtotal
    Cells.EntireColumn.AutoFit
    [A65536].End(3).EntireRow.Delete
    For X = [A65536].End(3).Row To 2 Step -1
    If Cells(X, 1).Font.Bold = False Then Rows(X).Delete
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[xrolexx]

Cok tesekkürler..