Scripting.Dictionary de Koşula Göre Toplama

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

KarincaZZ

Kullanıcı
Katılım
5 Eyl 2019
Mesajlar
45
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(27 satır)

Yukarıdaki Kodlar ile ekteki dosyada Sayfa1 de iki sütunlu bir veride tek sütunu benzersiz halde diğer sütunu toplata biliyorum.
Sayfa2 deki gibi bir durum olursa Tarihe göre nasıl toplaya bilirim.

İki Tarih Arasında hangi ürünler varsa bu ürünlerin tutar Toplamlarını bulmak istiyorum.
 
ComboBox verileri Textbox birleştirme
Satıra Göre Toplama ve Çarpma

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Aşağıda kodu deneyin hatalar olabilir telefondan yazdım.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(22 satır)
 
Oyla 0 Olumsuz oyla
Sayın Feyzullah teşekkür ederim.

Anlamak açısından teyidiniz alayım dedim, Kodların çalışma mantığı;

arr() bizim Scripting.Dictionary yi kullanarak verileri tutacağımız dizi
Liste de verilerimizin tamamını tanımladığımız dizi, Üç sütunda veri olduğu için (1 to son, 1 to 3) diye tanımladık.
Döngü oluşturarak Tarih ve Ay sütunlarını birleştirdik ve gun diye bir veri elde ettik
gun lerde benzersiz olanlarını Scripting.Dictionary ye yükledik
Yüklerken arr dizisinin elemanları olarak liste dizisindeki verileri atadık, gun verisi daha önce eklenmiş ise liste dizisinin 3. verilerini toplattık
İşlem bitince de arr dizisini yazdırdık.

Koşula göre toplatma işlemini nasıl yapabiliriz. Eklediğim dosyada ikinci sayfada ilk tarih ve son tarih kısımları var. Bu iki tarih arasında olanları toplatmak isteseydik If döngüsünü kodların hangi kısmında oluşturmamız gerekir. Sizin kodlarınızdan yola çıkarsak liste dizisini oluştururken tarih bu iki tarih arasında ise diziye ekle deyip, sonraki işlemleri aynen mi tekrarlayacaktık.

Birde olmayan bir veri ekleye bilir miyiz
Örneğin Tarih | Firma | Tutar başlıkları olsun.
Ben Firmaların Tutar toplamlarını alacam ve yanına kaç tane olduğunu yazdıracam. Yani belirtilen aralıkta A firmasından 5 tane var ve Tutarlarının toplamı 6000 ise sonuçta A firması | 5 | 6000 şeklinde bir veri oluşmasını istiyorum. bu durumu nasıl yaparız.

Anladığım kadarıyla Scripting.Dictionary de Key ve Item diye iki veri var, Item1, Item2 gibi bir tanımlama yapamıyoruz direk olarak.
 
Oyla 0 Olumsuz oyla
Rica ederim.

arr() bizim Scripting.Dictionary yi kullanarak verileri tutacağımız dizi
Liste de verilerimizin tamamını tanımladığımız dizi, Üç sütunda veri olduğu için (1 to son, 1 to 3) diye tanımladık.
Döngü oluşturarak Tarih ve Ay sütunlarını birleştirdik ve gun diye bir veri elde ettik
gun lerde benzersiz olanlarını Scripting.Dictionary ye yükledik
Yüklerken arr dizisinin elemanları olarak liste dizisindeki verileri atadık, gun verisi daha önce eklenmiş ise liste dizisinin 3. verilerini toplattık
İşlem bitince de arr dizisini yazdırdık.
Genişletmek için tıklayın ...

Üste alıntıda yazdıklarınız doğrudur.


Koşula göre toplatma işlemini nasıl yapabiliriz. Eklediğim dosyada ikinci sayfada ilk tarih ve son tarih kısımları var. Bu iki tarih arasında olanları toplatmak isteseydik If döngüsünü kodların hangi kısmında oluşturmamız gerekir. Sizin kodlarınızdan yola çıkarsak liste dizisini oluştururken tarih bu iki tarih arasında ise diziye ekle deyip, sonraki işlemleri aynen mi tekrarlayacaktık.
Genişletmek için tıklayın ...

Koşullu toplama olayını tamamen atlamışım.
if koşulunu for satırının altından, end if kodunu next kodundan önce yazardım. Aşağıdaki kodu belirtiğim yere ekleyip sonraki işlemler dediğiniz gibi aynen olacaktı.

If CDate(liste(i, 1)) >= CDate(Range("G1")) And CDate(liste(i, 1)) < CDate(Range("G2")) Then

Birde olmayan bir veri ekleye bilir miyiz
Örneğin Tarih | Firma | Tutar başlıkları olsun.
Ben Firmaların Tutar toplamlarını alacam ve yanına kaç tane olduğunu yazdıracam. Yani belirtilen aralıkta A firmasından 5 tane var ve Tutarlarının toplamı 6000 ise sonuçta A firması | 5 | 6000 şeklinde bir veri oluşmasını istiyorum. bu durumu nasıl yaparız.
Genişletmek için tıklayın ...

Dizi oluşturduğumuz için evet ekleyebilirsin.
Bu iş için aşağıdaki kodu kullanabilirsin.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(27 satır)
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Merhaba Sayın Feyzullah
Ekteki dosyada yardımını isteye bilir miyim.
Cari Say Topla Makrosu doğru sonucu vermiyor. Diğer makrolar sayenizde istediğim gibi çalışıyor. Sayma ve toplama işlemini tam anlayamamışım.
İnceleyip nerede hata yaptığımı söyleye bilir misiniz?

Teşekkürler
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Kodunun doğru halini aşağıya ekledim. Müsait zamanım olmadığı için detaylı açıklama yazamayacağım ama kod açıklamalarına bir kaç açıklama ekledim.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(24 satır)
 
Oyla 0 Olumsuz oyla
Feyzullah bey merhaba.

gun = liste(i, 1) & liste(i, 2) satır içindeki koşulları birleştirirken ayraç kullanmanız doğru sonuç alırsınız.

Bu şekilde kullanırsanız daha doğru sonuç olur. gun = liste(i, 1) & "|" & liste(i, 2)
 
Oyla 0 Olumsuz oyla
Sayın Feyzullah ve Sayın Ziynettin
Yardımlarınız ve bilgilendirmeleriniz için teşekkürler.

Merak ettiğim daha doğrusu onca okuduğum makalede rastlamadığım için aklımda soru işareti. Scripting.Dictionary de Key ve Item diye iki veri var, iki sütun gibi. Bu nesnede Key, Item1, Item2, Item3 gibi birşey yok mu. Yukarıdaki gibi ekstra bir dizi oluşturarak mı yapmamız gerek. Yada bu nesne gibi çalışan başka bir nesne var mı?

Esenlikler dilerim. İyi çalışmalar.
 
Oyla 0 Olumsuz oyla
Ziynettin' Alıntı:
Feyzullah bey merhaba.

gun = liste(i, 1) & liste(i, 2) satır içindeki koşulları birleştirirken ayraç kullanmanız doğru sonuç alırsınız.

Bu şekilde kullanırsanız daha doğru sonuç olur. gun = liste(i, 1) & "|" & liste(i, 2)
Genişletmek için tıklayın ...

@Ziynettin hocam, açıklama ve bilgilendirmeniz için teşekkür ederim. Normalde Scripting.Dictionary kodundan anlamam, Bu forumda sizin yazdığınız kodlardan feyz alarak cevapladım. Teşekkürler tekrardan hocam.
 
Oyla 0 Olumsuz oyla
KarıncaZ' Alıntı:
Sayın Feyzullah ve Sayın Ziynettin
Yardımlarınız ve bilgilendirmeleriniz için teşekkürler.

Merak ettiğim daha doğrusu onca okuduğum makalede rastlamadığım için aklımda soru işareti. Scripting.Dictionary de Key ve Item diye iki veri var, iki sütun gibi. Bu nesnede Key, Item1, Item2, Item3 gibi birşey yok mu. Yukarıdaki gibi ekstra bir dizi oluşturarak mı yapmamız gerek. Yada bu nesne gibi çalışan başka bir nesne var mı?

Esenlikler dilerim. İyi çalışmalar.
Genişletmek için tıklayın ...

Ben bilerek yok, bende dizi ile oluşturulduğuna denk geldim hep. Bu konu da (Scripting.Dictionary) Sayın @Ziynettin hocamın bilgisine başvurmak daha dogru olacaktır, eğer var ise bende öğrenmiş olurum.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt