ListBox'da Benzersiz Veri Getirme

[shhnyldrr]

merhaba,

Dosyayı ekte linke bırakıyorum. Anlaşılabilirliği açısından.

Müşteri Kayıt Butonu ile randevu oluşumu için kayıt oluşturuyorum. İstiyorum ki Hareketler butonuna basıldığında açılan userformda sağdaki müşteri listesindeki müşteriler benzersiz bir şekilde görünsün. Ki seçilen müşteri ve girilen verilerden sonra hareketler sayfasına sadece o kişi ile gitsin.


destekleriniz için teşekkür ederim. Dosya Linki

 

[ÖmerFaruk]

İlgili kodunuzu aşağıdakiyle değiştirebilirsiniz.

Sub MusterileriListele()
   Dim i As Long, Dict As Object, ArrMusteri
   Set Dict = CreateObject("Scripting.Dictionary")
   ArrMusteri = Worksheets("MUSTERI").Range("A1").CurrentRegion.Value
   lstMusteriler.Clear
   lstMusteriler.ColumnCount = 3
   For i = LBound(ArrMusteri) To UBound(ArrMusteri)
      If Not Dict.Exists(ArrMusteri(i, 2)) Then
         Dict.Add ArrMusteri(i, 2), 1
         lstMusteriler.AddItem
         lstMusteriler.List(lstMusteriler.ListCount - 1, 0) = lstMusteriler.ListCount
         lstMusteriler.List(lstMusteriler.ListCount - 1, 1) = ArrMusteri(i, 2)
         lstMusteriler.List(lstMusteriler.ListCount - 1, 2) = ArrMusteri(i, 3)
      End If
   Next i
   Set Dict = Nothing: i = Empty
End Sub

 

[shhnyldrr]

İlgili kodunuzu aşağıdakiyle değiştirebilirsiniz.

Sub MusterileriListele()
   Dim i As Long, Dict As Object, ArrMusteri
   Set Dict = CreateObject("Scripting.Dictionary")
   ArrMusteri = Worksheets("MUSTERI").Range("A1").CurrentRegion.Value
   lstMusteriler.Clear
   lstMusteriler.ColumnCount = 3
   For i = LBound(ArrMusteri) To UBound(ArrMusteri)
      If Not Dict.Exists(ArrMusteri(i, 2)) Then
         Dict.Add ArrMusteri(i, 2), 1
         lstMusteriler.AddItem
         lstMusteriler.List(lstMusteriler.ListCount - 1, 0) = lstMusteriler.ListCount
         lstMusteriler.List(lstMusteriler.ListCount - 1, 1) = ArrMusteri(i, 2)
         lstMusteriler.List(lstMusteriler.ListCount - 1, 2) = ArrMusteri(i, 3)
      End If
   Next i
   Set Dict = Nothing: i = Empty
End Sub

çok teşekkür ederim emeklerinize sağlık. Bir sorum daha olacaktı. Hareketler sayfasında ki gelir gider toplamlarını hem müşteri bazlı hem toplam bazlı Finans butonuna tıklandığında gösteren kodlar konusunda desteklerinizi rica ederim.

 

[ÖmerFaruk]

1. Forumdan faydalanacaklar için daha düzenli kaynak oluşturması sağlanması
2. Aynı başlıktaki farklı sorularınıza aynı kişi doğru cevap veremesi ihtimali

Bu gerekçelerden ötürü, farklı sorularınız için farklı başlık açmanız herkes için daha faydalı olacaktır.

 

[shhnyldrr]

1. Forumdan faydalanacaklar için daha düzenli kaynak oluşturması sağlanması
2. Aynı başlıktaki farklı sorularınıza aynı kişi doğru cevap veremesi ihtimali

Bu gerekçelerden ötürü, farklı sorularınız için farklı başlık açmanız herkes için daha faydalı olacaktır.

Teşekkürler yeni başlık altına aldım

 

[Greenblacksea53]

Dosyanızda virüs mu var ?

 

[shhnyldrr]

Merhaba Güncel Dosyam bu. Dosyalarım virüssüz ve problemsiz bir şekilde çalışmaktadır. Hareketler sayfasında ki gelir gider toplamlarını hem müşteri bazlı hem toplam bazlı Finans butonuna tıklandığında gösteren kodlar konusunda desteklerinizi rica ederim. ayrıca yeni başlık altında da belirtmiştim konuyu

 

[Greenblacksea53]

txtOdenen.Value = lstDetay.List(lstDetay.ListIndex, 5)
txtFiyat.Value = lstDetay.List(lstDetay.ListIndex, 6)

İstDetay Clıck olayına yapıştır. tıkladığında Ödenen ve Fiyat textboxlara bilgileri gelecek doğru anladımsa...Finans tıkladığınız neyin toplamını istiyorsunuz çok karışık anlatım olmuş ya da ben dinlenmem lazım )

 

[shhnyldrr]

Hareketler sayfasında, sonuç olarak bir para akışı mevcut. Bunu hem müşteri bazlı toplam görmek istiyorum hem de toplam şeklinde müşteri sayısı da epeyce fazla .

 

[shhnyldrr]

çok teşekkür ederim. Kısmen çözüme kavuştu.

iyi çalışmalar