ListBoxtaki verileri TextBoxlara atamak

[sdegirmenci]

Merhaba;
Ekteki dosyam üzerindeki verileri çift tıklama ile TextBoxlara atamak istiyorum,Bu konuda yardımcı olabilirseniz çok sevinirim, Şimdiden çok teşekkür ediyorum.İşleriniz kolay gelsin.

 

[sdegirmenci]

Alıştım artık cevap alamamaya..

 

[s.r.n.]

bir liste kutusu oluşturduğumuzda oraya bir ekleme nasıl ve ne şekilde yapılacak? kod yazılmalıymış sanırım nasıl olacak? Yardımınızı bekliyorum..acill..

 

[mustafakoker]

sayın sdegirmenci biraz sabırlı olun

Alıştım artık cevap alamamaya..

mutlaka birisi yardımcı olur hemen sitem etmeyin


ekli dosyayı kontrol edermisin geri kalanı halledersein herhalde
listboxta duble cilik yapınca ilk satırdaki textbolar değişiyor geri kalanı ellerinden öper

 

[sdegirmenci]

Sayın Mustafa Oker;
Önce ilginize teşekkür ederim, Ancak, zaten mesele ikinci tıklamada bir alt satıra geçmek,

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Yalnız TextBox'ların ControlSource bölümlerinde yazdığınız hücre adreslerini siliniz...

Dim say As Integer
 
Private Sub kstlistbox_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
 
    say = say + 1
 
    If say > 10 Then Exit Sub
 
    With kstlistbox
        Controls("kstgrup" & say).Text = .Column(0)
        Controls("kstköy" & say).Text = .Column(1)
        Controls("kstödn" & say).Text = .Column(2)
        Controls("kstil" & say).Text = .Column(3)
        Controls("kstilçe" & say).Text = .Column(4)
        Controls("kstiş" & say).Text = .Column(5)
    End With
 
End Sub

.

 

[sdegirmenci]

Ömer Hocam Merhaba;
İlginize çok teşekkür ediyorum. Tam istediğim gibi oldu. İşlerinizin hep kolay gelsin.