Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: yesilyurtlu - 27 Nisan 2010, 19:05:45

Başlık: [Çözüldü] Koda göre dizme ve alttoplam alma
Gönderen: yesilyurtlu - 27 Nisan 2010, 19:05:45

Üstadlarımın
Ekli dosyada yardımlarını bekliyorum  :-[

Başlık: Ynt: koda göre dizme ve alttoplam alma
Gönderen: Bülent Öztürk - 28 Nisan 2010, 08:28:50

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

Başlık: Ynt: koda göre dizme ve alttoplam alma
Gönderen: yesilyurtlu - 28 Nisan 2010, 13:20:09

Bülent Abi ;

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

Başlık: Ynt: koda göre dizme ve alttoplam alma
Gönderen: qbilay06 - 28 Nisan 2010, 13:27:05

Alıntı yapılan: yesilyurtlu - 28 Nisan 2010, 13:20:09

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.]

Başlık: Ynt: koda göre dizme ve alttoplam alma
Gönderen: yesilyurtlu - 28 Nisan 2010, 13:34:04

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

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

Başlık: Ynt: koda göre dizme ve alttoplam alma
Gönderen: qbilay06 - 28 Nisan 2010, 13:36:34

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...

Başlık: Ynt: koda göre dizme ve alttoplam alma
Gönderen: yesilyurtlu - 28 Nisan 2010, 18:30:38

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

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