3 ComboBox'un ilişkilendirilmesi.

[İsmail Küçükşengün]

Merhaba;

Ekteki Dosyamda açıkladığım şekilde, ilk Combo'dan seçilen veriye göre diğer Combobox'lara ilgili verilerin getirilmesi konusundaki yardım ve emeklerinize şimdiden teşekkürler..

 

[N.Ziya Hiçdurmaz]

Yanıt

Combobox20 ye yazınız.

Private Sub ComboBox20_Change()
DEG1 = "D15:D" & [D65536].End(3).Row
DEG2 = "H15:H" & [H65536].End(3).Row
If ComboBox20.Value = "İlamlı Takip" Then
ComboBox21.RowSource = DEG1
End If
If ComboBox20.Value = "İlamsız Takip" Then
ComboBox21.RowSource = DEG2
Else
ComboBox21 = ""
End If
End Sub

 

[İsmail Küçükşengün]

Sayın V.Basic For Applications

Sorunumun bir kısmı halledilmiş oldu.

Combo 21 den seçilene göre COMBO2.ye gelecek veriler için nasıl bir kod gerekir.

Selamlar.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub ComboBox20_Change()
DEG1 = "D15:D20"
DEG2 = "H15:H20"
If ComboBox20.Value = "İlamlı Takip" Then
ComboBox21.RowSource = DEG1
End If
If ComboBox20.Value = "İlamsız Takip" Then
ComboBox21.RowSource = DEG2
Else
ComboBox21 = ""
End If
DEG1 = "D25:D" & [D65536].End(3).Row
DEG2 = "H25:H" & [H65536].End(3).Row
If ComboBox20.Value = "İlamlı Takip" Then
ComboBox2.RowSource = DEG1
End If
If ComboBox20.Value = "İlamsız Takip" Then
ComboBox2.RowSource = DEG2
Else
ComboBox2 = ""
End If
End Sub

 

[İsmail Küçükşengün]

Sayın V.Basic For Applications

2. Kodunuzda Combo21.de seçilen kalmıyor.

Ben ilk kodunuzdan yola çıkarak ve örnekleme yaparak sorunumu çözmek üzereyim.

Çok teşekkür ediyorum.

Selam ve saygılarımla.

 

[İsmail Küçükşengün]

Bir sorun daha kaldı:

Combo20 ye tekrar geldiğimde (yeni bir seçim yapmak istediğimde) Combo21 vw Combo2 deki görünen verilerin silinmesi için nasıl bir kod gerekli ve nereye yazılmal?

Yani Combo20 den ve 21 den seçim yaptım. Combo2 ye de veriler geldi diyelim.

Ben yeni bir seçim yapmak için Combo 20 geldiğimde ve yeni bir seçim yaptığımda Combo20 ve combo2 de, daha önceden gelen veriler gözükmesin.

Teşekkürler..

 

[N.Ziya Hiçdurmaz]

Bişey değil.

 

[hsayar]

Bir sorun daha kaldı:

Combo20 ye tekrar geldiğimde (yeni bir seçim yapmak istediğimde) Combo21 vw Combo2 deki görünen verilerin silinmesi için nasıl bir kod gerekli ve nereye yazılmal?

Yani Combo20 den ve 21 den seçim yaptım. Combo2 ye de veriler geldi diyelim.

Ben yeni bir seçim yapmak için Combo 20 geldiğimde ve yeni bir seçim yaptığımda Combo20 ve combo2 de, daha önceden gelen veriler gözükmesin.

Teşekkürler..

Sub Combo20_Enter()
ComboBox21.Value = ""
ComboBox2.Value = ""
End sub

gibi olması lazım

 

[İsmail Küçükşengün]

Sayın hsayar;

Teşekkür ederim.

Sayın V.Basic For Applications

Tekrar Teşekkür ediyorum.

Tüm üyelerimize iyi hafta sonları diliyorum.

Selam ve saygılarımla.

 

[hsayar]

işinize yaradysa ne mutlu bana

 

[ftekin]

Ben böyle birşey yaptım ama .
Bir bak istersen.

 

[İsmail Küçükşengün]

Sayın V.Basic For Applications ve excel üstatlarım.

Kodları tek bir sayfa halinde çalıştırdım.

Çalışmama uyguladığımda;
DEG kısmında hata verdi.

Dosyamı inclerseniz sevinirim.


Yeni Takip Oluşturma formu.

Saygılarımla.

 

[İsmail Küçükşengün]

Sayın ftekin;

Örneğiniz çok güzel çalışıyor, ama çalışmama uyguladığımda hata veriyor.

Yukarıdaki örneğime bakarsanız sevinirim.

Selamlar.

 

[N.Ziya Hiçdurmaz]

Yanıt

yenitakiphazırlama forumundaki kodların hepsini alttaki kodlar ile değiştirip deneyiniz.

Private Sub ComboBox20_Change()
If ComboBox20.Value = "İlamlı Takip" Then
ComboBox21.RowSource = "hesap!D15:D18"
End If
If ComboBox20.Value = "İlamsız Takip" Then
ComboBox21.RowSource = "hesap!H15:H20"
End If
End Sub
Private Sub ComboBox21_Change()
If ComboBox21.Value = "İlamların İcrası,Para ve Teminattan başka borçlar hakkındaki ilamların icrası" Then
ComboBox2.RowSource = "hesap!D25:D26"
Exit Sub
End If
If ComboBox21.Value = "İlamların İcrası,Para ve Teminat verilmesi hakkındaki ilamların İcrası" Then
ComboBox2.RowSource = "hesap!D28:D29"
Exit Sub
End If
If ComboBox21.Value = "Diğer" Then
ComboBox2.RowSource = "hesap!D31:D37"
Exit Sub
End If
If ComboBox21.Value = "Rehnin Paraya Çevrilmesi Yolu ile Takip" Then
ComboBox2.RowSource = "hesap!D39"
Exit Sub
End If
'*****************************************************
If ComboBox21.Value = "Genel Haciz Yoluyla Takip" Then
ComboBox2.RowSource = "hesap!H25"
Exit Sub
End If
If ComboBox21.Value = "İflas Yoluyla Takip" Then
ComboBox2.RowSource = "hesap!H27:H28"
Exit Sub
End If
If ComboBox21.Value = "Rehnin Paraya Çevrilmesi Yolu ile Takip" Then
ComboBox2.RowSource = "hesap!H30:H31"
Exit Sub
End If
If ComboBox21.Value = "Kambiyo Senetlerine Mahsus Haciz Yolu" Then
ComboBox2.RowSource = "hesap!H33"
Exit Sub
End If
ComboBox2.RowSource = "hesap!H35:H36"
If ComboBox21.Value = "Kiralanan gayrimenkulün ilamsız Tahliyesi" Then
Exit Sub
End If
If ComboBox21.Value = "Diğer" Then
ComboBox2.RowSource = "hesap!H38:H43"
Exit Sub
End If
End Sub
Private Sub UserForm_Initialize()
ComboBox20.RowSource = "hesap!B15:B16"
End Sub

 

[İsmail Küçükşengün]

ÇokTeşekkür ediyorum.

 

[cenderus]

dosya ektedir

konu başlığına ait bulabildiğim dosya ektedir