İki Combobox'da karşılıklı listeleme

EKREM1661

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
1,265
Excel Vers. ve Dili
Excel-2016
Altın Üyelik Bitiş Tarihi
03-02-2026
Değerli Arkadaşlar..! Herkese Selamlar..

UserForm üzerinde; ComboBox1’ da listelenen verileri TextBox’ lara aldırma konusunda değişik tanımlamalar altında mevcut örneklerden faydalanıyorum..

Ancak bu konuda, detaylı olmadan, sade ve kestirme yoldan bir makro örneğini kullanmak ve elimde bulundurmak istiyorum..

Konu; ComboBox1 de seçilen verinin karşılığını, ComboBox2 ye aldırma ve ComboBox2 de seçilen veriyi de ComboBox1’e aldırma konusu ile ilgili…dosya ekte... Hayırlı geceler diliyorum..
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,248
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Sizin verileri comboboxa alma yönteminize göre en uygununu yaptım.
Dosyanız ekte.:cool:
Kod:
Private Sub ComboBox1_Click()
ComboBox2.ListIndex = ComboBox1.ListIndex
End Sub

Private Sub ComboBox2_Change()
ComboBox1.ListIndex = ComboBox2.ListIndex
End Sub
 

EKREM1661

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
1,265
Excel Vers. ve Dili
Excel-2016
Altın Üyelik Bitiş Tarihi
03-02-2026
Saygıdeğer üstad Evren hocam..! içten teşekkürlerimi bildiririm..Çok öz ve sade oldu, istediğim gibi..

Son olarak şu aklıma takıldı.. Eğer ComboBox2'nin yerine TextBox1 olsaydı ve sadece ComboBox1'de seçilenin karşılığını TextBox1'e aldırmak istersek farklı bir değişiklik icap edermiydi.. sağlıklı çalışması bakımından..
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,248
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Saygıdeğer üstad Evren hocam..! içten teşekkürlerimi bildiririm..Çok öz ve sade oldu, istediğim gibi..

Son olarak şu aklıma takıldı.. Eğer ComboBox2'nin yerine TextBox1 olsaydı ve sadece ComboBox1'de seçilenin karşılığını TextBox1'e aldırmak istersek farklı bir değişiklik icap edermiydi.. sağlıklı çalışması bakımından..
O zaman tabi ki durum değişirdi.:cool:
 

EKREM1661

Altın Üye
Katılım
10 Kasım 2006
Mesajlar
1,265
Excel Vers. ve Dili
Excel-2016
Altın Üyelik Bitiş Tarihi
03-02-2026
teşekkür ederim..
 
Son düzenleme:
Üst