Forumda emeği geçen herkese merhaba. Arkadaşlar son iki üç gündür userform konusuna merak sardım. Foruma üyelik süremi hesaba katarsanız geç kalmış bir merak denebilir. Ama olsun. Önemli olan bir yerden başlamak. Emeği geçen tüm hocalarıma ve aktif katılımcılara sonsuz teşekkürler. Userform kullanmanın bir çok çalışma için müthiş bir kolaylık olduğunu sayenizde keşfetmiş oldum. Takıldığım konu ise şu arkadaşlar. Üç tane combobox’ım var. Ve bunlara bağlı textboxlar . combobox2 ve combobox3 sınıflama yaptığım bir tablodan veri alıyor. “küçük”,”büyük”, “orta” ve “mega” diye. Combobox1 de ise il isimleri listeli. Ankara seçtiğimde combobox1’e bağlı textboxlara istediğim veriler geliyor. Aşağıya geçip combobox2 de küçüğü combobox3 de büyüğü seçtiğimde gene bir sorun yok. İstediğim veriler ilgili textboxlara geliyor. Sorun şu : Ben tekrar combobox1’e dönüp başka bir il ismi seçtiğimde combobox2 ve combobox3’e tekrar dönüp ölçekleri (“küçük”;”büyük”…) tekrar seçmek durumunda kalıyorum. Acaba bunu nasıl engelleyebiliriz. Dosyayı özetleyemediğim için örnek dosya yapamadım. Umarım soruyu net ve anlaşılır sormuşumdur. İlgilenen arkadaşlara şimdiden teşekkürler.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Userform
- Konbuyu başlatan excellcan
- Başlangıç tarihi
- Katılım
- 30 Ağustos 2008
- Mesajlar
- 677
- Excel Vers. ve Dili
- 2010 türkçe
Syn. Excellcan ;
"ComboBox1_Change" prosedürüde bulunan kod da
ComboBox2 = ""
ComboBox3 = ""
Satırlarından kaynaklandığını sanıyorum.
Bu satırları silin.
Örnek bir dosyanız olmadığından ancak tahminen öyle olduğunu düşünüyurum.
Dosyanızı yollayamıyorsanız. ComboBox1_Change" prosedürüdeki kodları yollayın bir bakalım.
Private Sub ComboBox1_Change()
'Dim a
'On Error GoTo Hata
Range("AG:AG").Select
Selection.Find(ComboBox1).Select
TextBox2 = ActiveCell.Offset(0, 1)
TextBox3 = ActiveCell.Offset(0, 2)
TextBox4 = ActiveCell.Offset(0, 3)
TextBox5 = ActiveCell.Offset(0, 5)
TextBox6 = ActiveCell.Offset(0, 6)
TextBox7 = ActiveCell.Offset(0, 7)
TextBox8 = ActiveCell.Offset(0, 8)
TextBox9 = ActiveCell.Offset(0, 9)
TextBox10 = ActiveCell.Offset(0, 4)
TextBox19.Value = TextBox3.Value
TextBox28.Value = TextBox4.Value
'GoTo 10
'Hata: 10
Range("U14").Select
Private Sub ComboBox2_Change()
Range("U14:U16").Select
Selection.Find(ComboBox2).Select
TextBox11 = ActiveCell.Offset(0, 1)
TextBox12 = ActiveCell.Offset(0, 2)
TextBox13 = ActiveCell.Offset(0, 3)
TextBox14 = ActiveCell.Offset(0, 4)
TextBox15 = ActiveCell.Offset(0, 5)
TextBox16 = ActiveCell.Offset(0, 6)
TextBox17 = ActiveCell.Offset(0, 7)
TextBox18 = ActiveCell.Offset(0, 8)
Private Sub ComboBox3_Change()
Range("U21:U23").Select
Selection.Find(ComboBox3).Select
TextBox20 = ActiveCell.Offset(0, 1)
TextBox21 = ActiveCell.Offset(0, 2)
TextBox22 = ActiveCell.Offset(0, 3)
TextBox23 = ActiveCell.Offset(0, 4)
TextBox24 = ActiveCell.Offset(0, 5)
TextBox25 = ActiveCell.Offset(0, 6)
TextBox26 = ActiveCell.Offset(0, 7)
TextBox27 = ActiveCell.Offset(0, 8)
Hocam U14:U16 aralığında düşey ara ile oluşturduğum bir tablo var. Aranacak değeri textbox3 den alıyor. Combobox2 bu alana çalışıyor. Keza U21:U23 aralığında düşeyara ile oluşturduğum bir tablo var. Bu da aranacak değeri textbox4 ten alıyor. Combobox1 deki değer değiştiğinde bu tablo da değişiyor. Derdim bunu senkronize biçimde userforma atayabilmekti. Ne yapalım acemi bülbül bu kadar olur işte.
Son düzenleme: