combox hakkında

[akdenizaziz]

Arkadaslar yaptığım örnekte hata veriyor yardımcı olursanız sevinirim
Kolay gelsin

 

[dEdE]

Veri isimli sayfanız yok.
UserForm_initialize olayı bu sayfaya başvuruyor ve bulamıyor.

 

[akdenizaziz]

bir örnek yazıp bakarsanız hatayı verdiğini göreceksiniz

 

[dEdE]

Hımmm.... Anladım.

Kodunuzun ilk satırları aşağıda. Gerisini siz düzeltirsiniz. Özellikle koyu satırlara dikkat.Tabii Veri isimli bir sayfanız olacak ve B6-dan aşağıya doğru satırlarda veri bulunacak.

Private Sub ComboBox1_Change()
Dim ara As Range
[B][COLOR="Navy"]Set ara = Sheets("veri").Range("b6:b2500").Find(ComboBox1)
TextBox1.Value = Cells(ara.Row, 2).Value[/COLOR][/B]