ComboboxtanListboxa aldığımveriyi Textboxlara aktaramıyo

[mustafakayiran]

baba adına göre comboboxta arama yapıyorum ve baba adı aynı olan şahısların listesi listboxta görünüyor fakat burda herhangi bir verinin üstüne tıkladığımda textboxlara uygun şekilde aktarmasını istiyorum
ancak yapamadım yardımcı olurmusunuz lütfen
iyi çalışmalar

 

[Levent Menteşoğlu]

Listbox2 ye aşağıdaki kodu yazın. Yalnız Private Sub ComboBox1_Change() altında yazılı olan listbox2.columncount=6 olarak düzeltmeyi unutmayın. Birde bölümü ve baba adını yanlış textboxlara yazıyor bunuda düzeltirsiniz.

[vb:1:25151584d6]Private Sub ListBox2_Click()
For a = 1 To 7
Controls("textbox" & a) = ListBox2.List(ListBox2.ListIndex, a - 1)
Next
End Sub[/vb:1:25151584d6]

 

[omerceri]

Private Sub ListBox2_Click()
sat = [a5:a12].Find(ListBox2.Value).Row
TextBox1.Value = Cells(sat, 1)
TextBox2.Value = Cells(sat, 2)
TextBox3.Value = Cells(sat, 3)
TextBox4.Value = Cells(sat, 4)
TextBox5.Value = Cells(sat, 5)
TextBox6.Value = Cells(sat, 6)
TextBox7.Value = Cells(sat, 7)
End Sub
sayın KAYIRAN Andırın'lımısın

 

[omerceri]

leventm'in cevap verdiğini görmedim. benimki biraz uzun

 

[mustafakayiran]

evet andırınlıyım siz?

 

[mustafakayiran]

sayın leventm teşekkür ederim sorunumu sayanizde çözdüm
iyi çalışmalar

 

[mustafakayiran]

sayın leventm sorunumu çözdüm dedim ancak benim normalde yaptıgım formda alt alta birkaç textbox var ve aralırında comboboxlar var
yolladığım örnekte kod gayet iyi çalışıyor ancak normalde üstünde çalıştığım formda sadece sıra numarası, sicil numarası, adı, soyadı bulunan textlerde bilgiler yerine geliyor diğer textlerde ve comboboxlarda birsey görünmüyor
teşekkür ederim

 

[Levent Menteşoğlu]

Private Sub ListBox2_Click()
For a = 1 To 7
Controls("textbox" & a) = ListBox2.List(ListBox2.ListIndex, a - 1)
Next
End Sub

Benim verdiğim kod textbox1,textbox2,.....,textbox7 ye kadar isimleri sıralı giden textbox uygulaması için yazılmıştır. Eğer isimlerde atlama oluyorsa veya araya combobox giriyorsa bu durumda Sn omerceri'nin önerdiği tarzda bir kod kullanmanızı öneririm.

 

[mustafakayiran]

haklısınız sayın omerceri'ninde yazdığı örnegi uygulamaya çalıştım ancak direk hata verdi sizin verdiginiz örnekte sıralı olduğu icin ilk textboxlara veriler yerleşti belki daha uygun olabilir diye size yazmıştım

 

[Levent Menteşoğlu]

Yeni bir dosya ekleyin tekrar bakalım.

 

[mustafakayiran]

sayın omerceri verdiginiz örnegi yolladığım örnekçalışmaya göremi yaptınız acaba?
hata veriyor
yardımlarınızı bekliyorum iyi çalışmalar
sayın leventm yolladıgım örnek çalışmayı inceledinizmi? acaba orada combobox a göremi yönlendirmeyi düşünmeliyim?

 

[Levent Menteşoğlu]

Zaten kodu sizin dosyaya göre vermiştim. Sn omerceri'nin verdiği kodda çalışıyor ben bir hata mesajı göremedim.

 

[mustafakayiran]

örnegi değiştirdim tekrar bakarsanız sevinirim teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:d4f8f537c2]Private Sub ListBox2_Click()
For a = 1 To 7
If a = 4 Then
TextBox5 = ListBox2.List(ListBox2.ListIndex, a - 1)
GoTo 10
End If
If a = 5 Then
ComboBox2 = ListBox2.List(ListBox2.ListIndex, a - 1)
GoTo 10
End If
Controls("textbox" & a) = ListBox2.List(ListBox2.ListIndex, a - 1)
10 Next
End Sub[/vb:1:d4f8f537c2]

 

[mustafakayiran]

normalde üstünde çalıştığım dosyayı göndermek isterdim ancak çok büyük olduğu için yollayamıyorum normalde üzerinde çalıştığım formda sırasıyla yazmam gerekirse 8 adet TextBox 5 adet ComboBox 3 adet TextBox 8 Adet ComboBox ve 5 adetde TextBox var ilkkısmı yerlerine oturtsam diğerlerini yerlerine oturtamıyorum tabiki buda kayıt esnasında ve bilgi düzeltme esnasında sorunlar yaşamama sebep oluyor

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:5b4dcf4f60]Private Sub ListBox2_Click()
TextBox1 = ListBox2.List(ListBox2.ListIndex,0)
TextBox2 = ListBox2.List(ListBox2.ListIndex,1)
TextBox3 = ListBox2.List(ListBox2.ListIndex,2)
.
.
.
combobox1=ListBox2.List(ListBox2.ListIndex,6)
combobox2=ListBox2.List(ListBox2.ListIndex,7)
combobox3=ListBox2.List(ListBox2.ListIndex,8)
.
.
.
End Sub [/vb:1:5b4dcf4f60]

 

[mustafakayiran]

yine olmadı, azbuçuk bu vba konusunda bilgim var diyordum ancak olmadıkca canım sıkılıyor ve acaba hiçbirsey bilmiyorum diyorum gerçi daha amatörüm yeni başladım ama bulduğum örnekleride değerlendirmeye çalışıyorum

 

[Levent Menteşoğlu]

TextBox1 = ListBox2.List(ListBox2.ListIndex,0) bu satırı incelersek.

Listbox2.ListIndex ifadesi listboxta seçilen verinin listboxta kaçıncı sırada olduğunu belirtir (yani satır nosu).

ListBox2.List(ListBox2.ListIndex,0) Buradaki 0 (sıfır) değeri listbox2 deki sütunun numarasını verir. (listboxta satır ve sütun noları 0-sıfır dan başlar)

(ListBox2.ListIndex,0) Bu ifade listboxta veri alınacak yerin koordinatlarını tespit eder. Tıpkı sayfadaki hücrenin tanımlanması gibi

TextBox1 = ListBox2.List(ListBox2.ListIndex,0) Sonuç olarak bu satır; Listbox2 nin seçilen satır nosu ve sıfırıncı kolonuna denk gelen veriyi Textbox1'e aktaracaktır.

 

[mustafakayiran]

sayın leventm sizi kızdırdığım için özür dilerim inanki işlerim okadar yoğunki busıralar bazen kafa duruyor işte

 

[Levent Menteşoğlu]

sayın leventm sizi kızdırdığım için özür dilerim inanki işlerim okadar yoğunki busıralar bazen kafa duruyor işte

Kızdığımı da nereden çıkardınız. Ben sadece kodun mantığını anlatarak, gerekli ilaveleri yapabilmenizi sağlamayı amaçlamıştım.