ComboBox1'den seçilen veriye göre ComboBox2 seçenekleri

[teksen]

Arkadaşlar merhaba,

ComboBox1'de seçilen veriye göre ComboBox2'de ki seçenekler değişebilirmi acaba?

detaylar ekteki dosyadadır.

herkese iyi çalışmalar.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub ComboBox1_Change()
ComboBox2.Clear
If ComboBox1.Value = "A" Then
    For i = 1 To 5
        ComboBox2.AddItem i
    Next
End If
If ComboBox1.Value = "B" Then
    For i = 6 To 10
        ComboBox2.AddItem i
    Next
End If
If ComboBox2.ListCount > 0 Then ComboBox2.ListIndex = 0
End Sub

 

[teksen]

Teşekkür ederim Sn. Orion2

yalnız burada sıralı sayılar olduğu için

For i = 1 To 5

bu kodu kullanabiliyoruz

Peki seçenekleri isim yapalım desek

Örneğin,

ComoBox1'de A seçeneğini seçince ComboBox2'de Ahmet,Mehmet vs. seçeneklerinin çıkması için ne yapmamız gerekir?

 

[Orion1]

Teşekkür ederim Sn. Orion2

yalnız burada sıralı sayılar olduğu için

For i = 1 To 5

bu kodu kullanabiliyoruz

Peki seçenekleri isim yapalım desek

Örneğin,

ComoBox1'de A seçeneğini seçince ComboBox2'de Ahmet,Mehmet vs. seçeneklerinin çıkması için ne yapmamız gerekir?

Ekli dosyayı inceleyiniz.

Private Sub ComboBox1_Change()
ComboBox2.Clear
isim1 = Array("Ahmet", "Mehmet", "Ali", "Recep", "Şaban")
isim2 = Array("Hasan", "Osman", "Evren", "Deniz", "Emre")
If ComboBox1.Value = "A" Then
    For i = 0 To 4
        ComboBox2.AddItem isim1(i)
    Next
End If
If ComboBox1.Value = "B" Then
    For i = 0 To 4
        ComboBox2.AddItem isim2(i)
    Next
End If
If ComboBox2.ListCount > 0 Then ComboBox2.ListIndex = 0
End Sub

 

[teksen]

Teşekkür ederim

Elinize sağlık

 

[Orion1]

Aşağıdaki kodlar ile de Sayfadaki A ve B sütunlarından verileri alıyor.
Veri'ler çok olduğu zaman bu rowSource yöntemini kullanmanız dağa doğru olacaktır.
Ekli dosyayı incelyiniz.

Private Sub ComboBox1_Change()
ComboBox2.RowSource = ""
If ComboBox1.Value = "A" Then
    ComboBox2.RowSource = "A2:A" & Cells(65536, "A").End(xlUp).Row
End If
If ComboBox1.Value = "B" Then
    ComboBox2.RowSource = "B2:B" & Cells(65536, "B").End(xlUp).Row
End If
If ComboBox2.ListCount > 0 Then ComboBox2.ListIndex = 0
End Sub

 

[casteneda]

Herkese selamlar;
Combolar user formda değilde, sayfa üzerinde olsaydı bu örnekleri nasıl düzenlerdik?

 

[teksen]

Sn. Orion2 yardımlarınız için teşekkür ederim

En son verdiğiniz örnek çok işime yaradı

Fakat benim Sayfa1'dekileri değilde Sayfa3'tekileri almam gerekiyor.

Bunun için ComboBox3 örneğinizde nasıl bir değişiklik yapmamız gerekir?

 

[Orion1]

Usreform'daki kodlarda bir değişiklik yapmaya gerek yok bir buton ekledim ve butona userform'u açan makroyu atadım .İşlem tamamdır.
Ekli dosyayı inceleyiniz.

 

[teksen]

Teşekkür ederim

Gerçekten pratik bir çözüm olmuş.

Yalnız,Bazı veriler yüzünden benim sayfa 'VERİ' isimli sayfada direk açılıyor.

Bu arada aynı sayfanın başka bir yerinde kullanma şansımda yok çünkü,ComboBox için içerik yazdığımız Sayfa1'deki veriler A1 k65000 arasında listelenen ve bir nesne ile girilerek silinebilen sayfayla aynı. Ben orada herhangi bir veri sildiğimdede ComboBox için seçtiğim veride siliniyor.

Bu sebepten,Benim Sayfa1 açıkken ComboBox içeriklerini bir şekilde Sayfa3'ten çekmem gerekiyor.

Yardımlarınız için teşekkür ederim.