Otomatik Alt Toplamlar.

[tohan_alevra]

Arkadaşlar Merhaba,

Yeni excel kullanmaya başlayan biriyim. Bir çok işimi yapabilmeme rağmen bir listede alt toplamlar alma konusunda takıldım.
Þöyleki tablomda a sutununda müşteri koduve isimleri hemen altında aldıkları ürün kodları b sutununda ise a sütunundaki müşteri kodunun bulunduğu satır boş olmak üzere bir alt satırdan itibaren mal adları sonra bir diğer müşteriye geçiyor. Böylece 2000 yakın müşteri ve binlerce satır var. Benim istediğim müşterinin altındaki ürünleri veya b sutunundaki ürünleri bir sonraki müşteriye kadar sayması. Burada zaten bir müşteri altında aynı üründen yok. belki sadece altındaki dolu satırları sayıp listelese bile olur. belki burada anlatım biraz yavan oldu ama ekteki dosyada ufak bir örnek var. kırmızı ile belirtilen müşteri altındakiler ise ürünlerdir. bu konuda yardımcı olursanız beni büyük bir yğkten kurtarırsınız. Yardımlarınız için şimdiden teşekkürler....

 

[Necdet]

Sayın tohan_alevra,

Ekteki dosyada olduğu gibi mi?

 

[Levent Menteşoğlu]

Aşağıda belirtilen hücrelere karşılarındaki formülü kopyalayın. Bu formül dolu hücreleri sayacaktır. Aynı mantığı formülleri inceleyerek diğer müşterilerede uygulayabilirsiniz.

B6 hücresine =BAÐ_DEÐ_DOLU_SAY(B3:B5)

B16 hücresine =BAÐ_DEÐ_DOLU_SAY(B8:B15)

B44 hücresine =BAÐ_DEÐ_DOLU_SAY(B18:B43)

Not:Necdet beyin çözümü çok mükemmel bence o çözüm üzerinde durun.

 

[LEVTEPE]

Kişilerin Satışlarının Sayısı

Sayın tohan_alevra

Veri Girişinizi Sayın Necdet Yesertener'in gibi yaparsanız.

Sorununuzu Veri - Alttoplamlar'la çözebilirsiniz.

Veri - Alttoplamlar

Aşağıdakinin her değişiminde - S. Kod

Kullanılacak İşlev - Sayı

Alttoplam Ekleme Yeri - Cinsi'ni seçip Tamam'a basınız.

 

[tohan_alevra]

Arkadaşlar Verdiğiniz çözümler gerçekten güzel , teşekkürler..
F a k a t ;
Bende bu veriler bir paket programdan geliyor yani manuel elle girmiyorum ve gerçekten binlerce satır var (36000 satır gibi) ben bunları nejdet beyin formatına çevirmem zor olur veya çevirmenin bir yolu varmıdır.

 

[F1]

Eğer formatınız yukardaki örnek dosya gibiyse

Sub duzenle()
Dim ilk As Range
Dim son As Range

Set ilk = Range("A2")

Do
    Set son = ilk.End(xlDown)
       If son.Row = 65536 Then Exit Do
        With son(2, 1)
          .Value = ilk.Value
          .Font.Bold = True
          .Font.ColorIndex = 3
        End With
        ilk.ClearContents
        Range(ilk(2, 1), son).EntireRow.Group
        son(2, 2).Value = son.Row - ilk.Row
    Set ilk = son(3, 1)
Loop
    
ActiveSheet.Outline.ShowLevels RowLevels:=1

End Sub

 

[tohan_alevra]

Olmuyor

Necdet Bey,

Dosyayı çözümünüze uygun hale getirdim. Fakat alt toplamarı hala anlatılan yöntemle alamıyorum. Ben yaprığım zaman her müşterinin yanında 1 sayısı çıkıyor. Dosya gene ekte bir bilgi verebilirmisiniz.

 

[Necdet]

Sayın tohan_alevra,

Dosyanızı 2 yöntemle düzenledim. Birincisi uzun yöntem, İkincisi ise bu işe çok uygun Pivot Table (Ã?zet Tablo). Ã?zet tabloyu kullanmanızı önerim.

Saygılar

 

[F1]

Pardon sorunun yeni başlayanlar kısmında soruldunu görmeden karmaşık makro kodları önermişim.

 

[tohan_alevra]

Sayın Necdet Yesertener

Belki bana kızacaksınız ama ben çözümü bir türlü anlayamadım.
Þimdi aslında ilk önce göndermiş olduğunuz çözüm tam bana göreydi. Çün ben daha sonra bunları müşteri adı ve çeşit sayısını tek satıra indirdikten sonra başka bir veriden index match yardımı ile çözümleyin başka verilerle bağlantı kuracaktım. Ama sizin göndermiş olduğunuz ikinci tabloda özet tabloyu hazırlamak için kullanığınız ana verilerde her satırda müşteri isimleri altalta tamamlanmış. Bende verilerin toplam uzunluğu 26000 satırı geçiyor. Ben bunları altalta nasıl tamamlayacağım. Ben bendeki mevcut tabloyu kullanarak özet tablo yapığım zaman gene istedeğimiz mevcut bilgilee ulaşamıyorum.
Eğer zahmet olmazsa bana ilk tabloda yaptığınız ve formülde gördüğüm bag_dolu_deger_say ile ilgili çözümü biraz daha benim anlayacağım şekilde anlatabilirseniz gerçekten sevinirim.
Size bayağı bir zahmet verdiğimin farkındayım ama bu tablo gerçekten önemli benim için.
Çözümleriniz için şimdiden teşekkürler....
Saygılarımla...

 

[Necdet]

Sayın tohan_alevra, İlk önerdiğim tabloda ben grup yapmıştım.
Data --> Group And Outline -->>Group
Bunun Türkçesi nasıldır bilmiyorum, şimdi sallıyorum mecburen
Veri --> Grup --> Grup

 

[F1]

Sn Tohan ben sizin derdinizi çok net anladım hatta verdiğim makro sizin 26000 satırlık verinizi sn necdet verdiği ilk örnekteki hale otomatik şekilde getiriyor, çözüm burnunuzun dibindeyken, zahmet edip bir kelime bile yazmıyorsunuz. Uygulayabilirseniz çözüm yukarda.

 

[LEVTEPE]

Müşteri cari kodlarını altalta kopyalamak

Sayın tohan_alevra

Müşteri cari kodlarını altalta kopyalamak için.

A sütünunu seçin Ekle -Sütün ile yeni sütun ekleyin. B Ve C sütunlarını seçin.
Veri - Süz - Otomatik Süz Uygulayın
C sütununda Stok Adının yanındaki açılır listeye basarak en altın bir üstündeki "Boş olanları" seçini tıklayın. B Sütunundaki isimleri seçip sağ enalttaki + (Hücre tutamacı) ile A sütununa kopyalayın

Veri - Süz - Tümünü Göster ile Bütün verileri görünür hale getirin.
A sütünunun üstündeki Ad kutusuna A3:A36003 ( 36000 Stok için) yazın.
Düzen - Git - Ã?zel ile Boş olanları seçin. Hiçbir yere dokunmadan =a2 yazıp CTRL + ENTER'a basın.
A sütununu seçin. Kopyalayın. Sonra Düzen - Ã?zel Yapıştır 'da Değerleri işaretleyip Tamam'a basın.
Stok adının yanındaki açılır listeden boş olanları seçin. A ve B sütunundaki hücreleri temizleyin (DELETE). Veri Süz Tümünü Göster ile Tüm verileri gösterin. A1'e Cari Kodu yazınız.
İsterseniz C sütununda Stok adında açılır listeden boş olanları seçip Düzen - Satır sil ile boş satırları silebilirsiniz.
En sonunda Veri Süz Tümünü Göster.
Veri - Alttoplamlar ile (Bırkaç yanıt yukarda anlatmıştım.) istediğiniz sonucu elde edersiniz.
A sütununada otomatik süz eklemek isterseniz Ã?nce Veri - Süz -Otomatik Süz İle Açılır listeleri kaldırın. sonra A , B ve C sütunlarını seçip Veri - Süz -Otomatik Süz'ü yeniden uygulayın.

 

[tohan_alevra]

Sayın F1
Sayın Necdet yesertener
Sayın Levtepe

Ã?nerileriniz için teşekkürler. 3 ayrı yöntemlede sorunu çözebiliyorum artık. Çözümleriniz için çok çok teşekkürler arkadaşlar.

 

[ilkaykteke]

ya excelin yardım menüsüne de baktım group and outlines (group ve seviyelendirme) ilgili hiç birşey yok. bununla ilgili bir yardım dökümanı olan var mı acaba?