Aynı formda iki combobox a ilişkili bilgi girmek

Katılım
17 Aralık 2008
Mesajlar
96
Excel Vers. ve Dili
excel 2010 türkçe
Merhabalar,
aynı userform da bulunan iki combobox dan birinci combobox ın değerine bağlı olarak ikinci combobox a değer taşımakda problemim var.
ikisi de aynı formda olduğu için , comboox lara userform_Activate() içinde bilgi taşımaya çalışıyorum , ama birincinin değeri change ile henüz alınmadığı için ikinci combo ya mukayaese ile değer atayamıyorum. atanacak bilgiler sheet içinde sutunlarda bulunkatadır.
bir çözüm yolu bilen var mı acaba?
Destekleriniz için şimdiden çok teşekkür ederim.
iyi çalışmalar
 
Katılım
22 Eylül 2006
Mesajlar
883
Excel Vers. ve Dili
Office Excel®2007®TR
1.ComboBoxa verileri alırken UserForm_Initialize olayı ile alıp daha sonra da ComboBox1_Change olayı ile 2 Combobox aistediğiniz mukayese ile değer atayabilirsiniz.
 
Katılım
17 Aralık 2008
Mesajlar
96
Excel Vers. ve Dili
excel 2010 türkçe
selam ozgretmen,
teşekkürler ama combobox2 boş geliyor.
kodu aşaıya ekledim.

Private Sub userform_Activate()
ComboBox2.RowSource = "SEKTOR!A2:A" & WorksheetFunction.CountA(Worksheets("SEKTOR").Range("a1:a65536"))
Sheets("MUSTERI").Select

For x = 2 To Cells(65536, 2).End(xlUp).Row
If ComboBox2.Value = Cells(x, 1).Value Then
ComboBox3.AddItem Cells(x, 2).Value
End If
Next


End Sub

combo2 nin değerine göre combo3 ü doldurmaya çalışıyorum ama boş geliyor.
 
Katılım
17 Aralık 2008
Mesajlar
96
Excel Vers. ve Dili
excel 2010 türkçe
merhaba ozgretmen,
sorun şurada; combo ların doldurulması UserForm_Initialize ın içine yazıldığından, henüz birinci combo henüz tıklanmadığı, change edilmediği için mukayase yapıp 2. combo yu dolduramıyoruz. Sıkıntı budur.
 
Katılım
17 Aralık 2008
Mesajlar
96
Excel Vers. ve Dili
excel 2010 türkçe
mukayese edip combo doldurma işini, UserForm_Initialize yerine combobox2_change içinde yapınca problem çözüldü. ilginize teşekkürler.

iyi çalışmalar
 
Katılım
22 Eylül 2006
Mesajlar
883
Excel Vers. ve Dili
Office Excel®2007®TR
Rica ederim.Ben teşekkür ederim...
 
Üst