listboxdaki veriyi textboxlara aldırmak??

[udentr2002]

merhaba arkadaşlar hem ekli dosyada hemde açılan userf formda anlattım bana lazım olan listboxdaki verileri tıkladığımızda farklı teztboxlara yazdırabilmek ilgileen arkadaşlarıma teşşekkür ederim ekli dosyada daha açıklayıcı olarak yazdımm

 

[udentr2002]

????

cevap verebilecek bir hocam varmı lütfen makbule geçecektir

 

[Orion1]

Merhabalar.
Ekli dosyayı inceleyiniz.
Yanlış anlamadıysam istediğiniz şekilde yaptım.
İyi çalışmalar.

 

[udentr2002]

hocam

çok teşekkür ederim ellerine sağlık

 

[Orion1]

Rica ederim.
İyi çalışmalar.

 

[udentr2002]

hocam ellerine sağlık ama??

ben kendi dosyam üzerine uygulayamadım neden derseniz benim formumda o ilk textboxlar yerine comboboxlar var ve her comboboxun yanında 3 tane textbox var comboboxlarım 1 den 30 a kadar textbox lar ise daha fazla ama benim listboxa TIKLAYIPTA yazdırmak istediğim veriler ; mesala combobox1 e listboxun 1. stünu ( yani sayfa1 deki A stünü gelecek), textbox1'e ise listboxun 2. stünu ( yani sayfa1 deki C stünü gelecek) listboxdaki 2. veriyi tıkladığımda ise combobox2' ye listboxun 1 stünü textbox4' e ise listboxun 2. stünü (yani sayfa1 deki c stünü gelecek) kısacası formdaki sıralamayı baz alırsak şayet her comboboxa listboxun 1 stünü gelecek textboxlara ise 1. textbox 4. textbox, 7. textbox, 10. textbox şeklinde yazacak bunu ben kendi dosyama uyarlayamadım formda textbox ve combobox ları gösterdim tekrar inceleyip kodu gönderebilrsen çok sevinirim hocamm

 

[udentr2002]

???

cevap verebilecek hocam varmı lütfen çok önemli şu an ilgilenen tüm arkadaşlarıma teşekkür ederim cevaplarınızı bekliyorum

 

[udentr2002]

cevap bekliyorum eğer bir hocam cevap verirse çok sevineceğim lütfen

 

[Levent Menteşoğlu]

Listboxtaki kodu aşağıdaki ile değiştirin.

Dim c, d
Private Sub ListBox1_Click()
Controls("combobox" & c + 1) = ListBox1.Column(0)
Controls("textbox" & d + 1) = ListBox1.Column(1)
c = c + 1
d = d + 3
End Sub

 

[udentr2002]

hocam

hata veriyorr
cold not find specified object diye bir hata veriyor

 

[Levent Menteşoğlu]

Bu hatayı ancak userform üzerinde combobox ve textboxların hepsi doluysa verir.

 

[udentr2002]

??

peki ne yapabilrim hocam çözemedimmm

 

[Levent Menteşoğlu]

Neyi çözemediniz anlayamadım. Kaydedilecek nesne kalmayınca neden yine kaydetmeye çalışıyorsunuz anlayamadım. Olmazsa aşağıdaki satırı koda ilk satır olarak ilave edin.

If c > 10 Then Exit Sub

 

[udentr2002]

??

düzelttim ama hocam hep aynı combobox ve textboxun üzerine kaydediyorr
ben her tıkladığımızda bir altaki combo ve textlerde yazmasını istiyorum yani listboxa tıkladığımöızda combobox 1 ve textbox 1 e yazdıktan sonra
listboxa tekrar tıkaldığımızda bu defa tıkaldığımız veriyi combobox2 ve textbox 4 e yazsın demiştim yanlız her defasında yine combobox1 ve textbox1 in üsütüne yazıyor özür dilerim rahatsız ediyorum ama hocam tekrar bir bakabilrmisiniz lütfenn

 

[udentr2002]

hocam çok çok özür dilerim

ben kodu yanlış gönderdiğniiz sandım private sub kodunun üstünde dim c,d satırını privatenin altrına almıştım o yüzden olmuş çok özür dilerim düzelttim oldu emeğiniz ve bilginiz için teşekkürler Allah razı olsun

 

[udentr2002]

hocam

utanarak söylüyorum ama benim comboboxlar 4 den başlıyor textboxlarda 4 den başlıyor o yüzden olmuyor sanırım neresini değiştireceğimide bulamadım bir türlü bu gecenin saatinde sanırım kafamda durdu konu nasıl uyarlamam lazım 2. bi sorumda şu olacak şimdi orda siz
dim c,d satırından sonra altına
Private sun listbox_1 click()
demiş sonra altına diğer kodları yazmışsınız ben aynı bu şekil yazmaya çalışınca dim c,d satırı bir üstteki diğer kodun altına yazıyor yani farklı bir olayın end sub satırının altına bu yüzdende hata veriyıor bu durumda ne yapabilrim??

 

[udentr2002]

tekrar özür

hallettim hocam dediğim gibi satt geç olunca sanırım kafada durdu baya bi yoruldum çok teşekkür ederim Allah razı olsun