makro ile alttoplam

[gedavet]

bir sayfada cinsine göre aşağı doğru yazdığım şeylerin alttoplamını makro ile nasıl yapa biliriz bununla ilgili bir makro görmüştüm daha önce bulamadım yani her hangi bir sütuna ne kadar yazar sam cinsini orada bir alttoplam ve tekrar alttoplamı iptal edip yazmaya devam edeceğim ve cinsine göre sıralayıp alttoplam almak istiyorum ve en alta genel toplam

 

[BG]

Sayın mustafakoza

bir sayfada cinsine göre aşağı doğru yazdığım şeylerin alttoplamını makro ile nasıl yapa biliriz bununla ilgili bir makro görmüştüm daha önce bulamadım yani her hangi bir sütuna ne kadar yazar sam cinsini orada bir alttoplam ve tekrar alttoplamı iptal edip yazmaya devam edeceğim ve cinsine göre sıralayıp alttoplam almak istiyorum ve en alta genel toplam

Örnek dosyanız ektedir.

 

[1Al2Ver]

Örnek dosyanız ektedir.

Sayın Gökhan Polat merhaba,

Ben de faydalandım, teşekkür ederim, işlem acaba 2 buton yerine tooglebutton ile yapılabilir mi ?

 

[BG]

Sayın Gökhan Polat merhaba,

Ben de faydalandım, teşekkür ederim, işlem acaba 2 buton yerine tooglebutton ile yapılabilir mi ?

tabiki, örnek dosya ektedir

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
   Range("B3").Select
    Range("A:G").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(5), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
        End If
If ToggleButton1 = False Then
 Range("A1").Select
    Selection.RemoveSubtotal
    End If

End Sub

 

[1Al2Ver]

tabiki, örnek dosya ektedir

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
   Range("B3").Select
    Range("A:G").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(5), _
        Replace:=True, PageBreaks:=False, SummaryBelowData:=True
        End If
If ToggleButton1 = False Then
 Range("A1").Select
    Selection.RemoveSubtotal
    End If

End Sub

Sayın Gökhan Polat tekrar merhaba,

Çözüm ve nezaketiniz için teşekkür ederim,

Saygılarımla.

 

[BG]

Sayın 1Al2Ver

Sayın Gökhan Polat tekrar merhaba,

Çözüm ve nezaketiniz için teşekkür ederim,

Saygılarımla.

rica ederim, iyi çalışmalar dilerim.

 

[gedavet]

gökhan bey teşekkür ederim ancak ben başka bir çalışmaya makroyu uygulama yaptım başlık yani baştaki satırı siliyor birde alttoplam olan satırı siyahla karartsa bazısını yapıyor bazısını yapmıyor birde rakamların alttoplamını alıyoruz başka bir sütununda alttoplamını almak istersek neyaparız

 

[BG]

gökhan bey teşekkür ederim ancak ben başka bir çalışmaya makroyu uygulama yaptım başlık yani baştaki satırı siliyor birde alttoplam olan satırı siyahla karartsa bazısını yapıyor bazısını yapmıyor birde rakamların alttoplamını alıyoruz başka bir sütununda alttoplamını almak istersek neyaparız

mümkünse örnek dosyanızı gönderin, dosya üzerinden işlem yapmak daha kolay olacaktır.

 

[gedavet]

C

ekdeki dostyada yardım

 

[gedavet]

gökan bey uğraştırıyorun kusura bakmayın ürüne göre alttoplam alıyoruz başka bir şeyin daha alttoplamını almak istesek yani mesela tarihin gibi istediğim zaman istediğiminin alttoplamını alsam nasıl bir şey olması lazım

 

[Kemal Demir]

Mustafa Bey,

Sorunuzu yanlıs anlamadıysam eğer,çözüm olarak PivotTable("Ozet Tablo") seçeneğini incelemenizi öneriyorum.

İyi çalışmalar.

 

[gedavet]

kemal bey dediğinizi anlamadım örnekle ekleyerek anlatabilirmisiniz

 

[S.Yiğit]

kemal bey dediğinizi anlamadım örnekle ekleyerek anlatabilirmisiniz

Merhaba,

Özet tabloyla birkaç örnek yapmaya çalıştım inceler misiniz?

not: veri girdikçe özet tabloyu incelemek için özet tablo üzerinde sağ tıklayıp yeni deyiniz..

 

[gedavet]

Benim yapmak istediğim bu ekdeki dosyada istediğim zeman tarih istediğim zamna ürün gibi alttoplam almak istiyorum

 

[BG]

Sayın mustafakoza

Benim yapmak istediğim bu ekdeki dosyada istediğim zeman tarih istediğim zamna ürün gibi alttoplam almak istiyorum

örnek dosyada "ALT TOPLAMLAR" butonuna tıkladığınızda "USERFORM" açılacaktır, formda "Alt toplamı alınacak sütun numarası" alanına gireceğiniz veriler rakamlardan oluşmaktadır, bu rakamlar 1,2,3 ve 4 dür. 1 in anlamı A sütununa göre 2 nin anlamı B sütununa göre vb.... bu değerlerden herhangi birini girdiğinizde alt toplamlar bulunacaktır, umarım istediğiniz gibidir, dosya ektedir.İyi çalışmalar dilerim.

 

[gedavet]

güzel elinize sağlık birde alttoplamın tamamı siyak koyu olasa mümkünmü birde tarihi gibi noktalı olurmu 2.2.2009

 

[gedavet]

En son yazdığım sorunu çözü verenolursa çok iyi olacak

 

[gedavet]

böyle bir örnek buldum bunun gibi makro ile alttoplam alsa istediğim sütunun ve istediğim zaman kaldırsam yani kenarlardan yapıyor önceki örnekde öylemi sağlıklı olır yeni gönderdiğim örnek gibimi

 

[gedavet]

yardım eden yokmu

 

[gedavet]

Yardım eden olursa çok iyi olacak hocalarım