[Çözüldü] Koda göre dizme ve alttoplam alma

[yesilyurtlu]

Üstadlarımın
Ekli dosyada yardımlarını bekliyorum 

[Bülent Öztürk]

Makro Kaydederek elde ettiğim şu kodları kullanabilirsiniz;

Kod: [Seç]

Sub Excelce_Sirala_ve_Alttoplam_Al()
'
' Excelce_Sirala_ve_Alttoplam_Al Makro
' Makro Bülent tarafından 28.04.2010 tarihinde kaydedildi.

    Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(4), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
 
End Sub

[yesilyurtlu]

Bülent Abi ;

Kodu Modül içine kopyaladım olmadı
birde sayfanın vba kısmına koplayadım beceremedim Dosya ekleyebilir misin

[qbilay06]

Bülent Abi ;

Kodu Modül içine kopyaladım olmadı
birde sayfanın vba kısmına koplayadım beceremedim Dosya ekleyebilir misin

Merhaba ,
Bülent bey in kodlarını kopyalayarak oluşturduğum dosya ektedir. Umarım isteğiniz karşılar.
Saygılar...

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[yesilyurtlu]

Elinize sağlık mükemmel olmuş.

birde nasıl alt toplamı geri kaldıracağımı öğretirseniz bitmiştir olay

[qbilay06]

Ben 2007 sürümünü kullandığım için, araç çubuğundan
VERİ --> Alt Toplam   
bölümüne girip tümünü kaldır seçeneğini işaretlerseniz eski haline gelecektir.

Saygılar...

[yesilyurtlu]

sıkıntımı gideren tüm excelce.net üstadlarıma teşekkür ederim.

İşlem Tamamdır "ÇÖZÜLDÜ"