[Yardım]  List boxlar arası veri doğrulama

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

List boxlar arası veri doğrulama

İleti#1)  malatyali » 19 May 2019 10:14

Es Selamün Aleyküm
Değerli Kardeşlerim
"A", "B", "C" ve "D" sütunlarım var

Kod: Tümünü seç
Private Sub ComboBox1_Change()
    ListBox1.Clear
    For i = 2 To son_satir
        If Sayfa1.Cells(i, 1).Value = ComboBox1.Text Then
             ListBox1.AddItem Sayfa1.Cells(i, 3).Value
            If i > 2 Then
                For h = 0 To ListBox1.ListCount - 1
                    If ListBox1.List(h) = ListBox1.List(ListBox1.ListCount - 1) Then
                         ListBox1.RemoveItem ListBox1.ListCount - 1
                        Exit For
                    End If
                Next h
            End If
        End If
    Next i
End Sub


Yukarıda ki kod ile "A" sütununda var olan isimleri benzersiz olarak alıyorum.
Sizlerden İstirhamım birbirlerine bağlı olarak;
A Sütununa bağlı olarak Listbox1 de "C" sütunu
"C" sütununa bağlı olarak ListBox2' ye "D" sütunu
"D" sütununa bağlı olarak da ListBox3'e "B" sütunu
bilgilerini almak istiyorum. Sitede aradım. Ancak kendime uygun bir form bulamadım.
Rica etsem yardımcı olabilir misiniz?
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 10:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 44
İleti: 112
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: List boxlar arası veri doğrulama

İleti#2)  askmadige34 » 19 May 2019 16:37

Örnek dosyanız olursa daha çabuk yardım alırsınız.
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 39
İleti: 1729
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: List boxlar arası veri doğrulama

İleti#3)  malatyali » 19 May 2019 17:22

Es Selamün Aleyküm
Eklemiş olduğum dosyada Okul sayfasında
4 tane sütun var.
B sütunu Listbox1' e benzersiz alınacak.
D Sütunu Listbox2' ye
E Sütunu Listbox3' e
C sütunu Listbox4' e veri doğrulama ile gelecek.

Örneğin
Listbox1 de F ilkokulu seçildiğinde Listbox2' ye Firma1 benzersiz gelecek.
Listbox2' de Firma1 seçilince de listbox3' e taşımacı kaç kişi ise hepsi gelecek.

Teşekkür ederim. Hakkınızı helal edin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 10:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 44
İleti: 112
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: List boxlar arası veri doğrulama

İleti#4)  askmadige34 » 19 May 2019 18:03

Form yükleme olayını ve listbox1 deki seçime göre veri almayı ekliyorum. Şöför ile işin adı hangi sütun olduğunu bilmediğim için eklemedim. Yapamazsanız yazın.
Kod: Tümünü seç
Private Sub ListBox1_Click()
Dim i As Integer, x As Integer
Dim son As Long
Dim aranan
son = Range("B" & Rows.Count).End(3).Row

For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        aranan = ListBox1.List(i, 0)
        Exit For
    End If
Next
ListBox2.Clear
ListBox1.ColumnCount = 1
x = 0
For i = 1 To son
    If Cells(i, 2).Value = aranan Then
        ListBox2.AddItem
        ListBox2.Column(0, x) = Cells(i, 4).Value
        x = x + 1
    End If
Next i
End Sub


Private Sub UserForm_Initialize()
Dim z As Object, listem(), myarr(), n As Long, i As Long
listem = Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row).Value
ReDim myarr(1 To 1, 1 To UBound(listem))
Set z = CreateObject("scripting.dictionary")
ListBox1.Clear
For i = 1 To UBound(listem)
    If listem(i, 1) <> "" Then
            If Not z.exists(listem(i, 1)) Then
                n = n + 1
                z.Add (listem(i, 1)), n
                myarr(1, n) = listem(i, 1)
            End If
    End If
Next i
Erase listem
Set z = Nothing
If n > 0 Then
    ReDim Preserve myarr(1, n)
    ListBox1.List = Application.Transpose(myarr)
End If
End Sub
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 39
İleti: 1729
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: List boxlar arası veri doğrulama

İleti#5)  malatyali » 19 May 2019 19:09

Kodu forma eklediğim zaman subscript out of range hatası veriyor.

Bu makro yapabileceğim bir durum değil. Zira forumda ne kadar listbox ile ilgili dosya varsa hemen hemen hepsine baktım. Kendi dosyama uyarlayamadım. Ayrıca bu dosyayı da kurumda kullanacağım için benim için önemli.
Rica etsem iftarınızı açtıktan sonra bir el atabilir misiniz?

Yardımınızı esirgemediğiniz için de teşekkür ederim

Saygı ile
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 10:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 44
İleti: 112
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: List boxlar arası veri doğrulama

İleti#6)  askmadige34 » 19 May 2019 19:41

Dosyanız ektedir.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 11:04
Meslek: memur
Yaş: 39
İleti: 1729
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: List boxlar arası veri doğrulama

İleti#7)  malatyali » 19 May 2019 21:55

Allah yar ve yardımcınız olsun.
Hakkınızı helal edin. Sağ Ol. Teşekkür ederim
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 10:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 44
İleti: 112
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: List boxlar arası veri doğrulama

İleti#8)  malatyali » 19 May 2019 22:14

askmadige34

Müsait olduğunuzda Listbox1 deki veri seçilince Listbox2 ye D sütunu geliyor
Listbox2 deki veri seçilince listbox3" e E sütununu nasıl getirebilirim.
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 10:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 44
İleti: 112
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 2 misafir

Bumerang - Yazarkafe