verileri textboxlara almak

[Fuat Şirin]

arkadaşlar ekteki dosyamda
müşteriyi adresini ölçülerini kaydediyorum
daha sonra siperişlerini giriyorum
bunları siparişler userformunda listeliyorum
benim istediğim siparişleri listboxuna sağ tıkladığımda yada çift tıkladığımda
o müşterinin bilgilerini userform1 deki gibi görmek
yani şöle söliyim
1 adet cübbe siparişi aldım bunu kesmek için ölçüleri lazım
mesela ahmet hasana listboxta tıkladığımda onun bilgilerini görmem lazım
yardımcı olursanız çok büyük bir iyilik olur
saygılarımla

 

[Fuat Şirin]

ilgelenen arkadaş yok mu çok rica

 

[mrttrn]

dosyanızı inceledim.

ahmet hasana listboxta tıkladığımda onun bilgilerini görmem lazım demişsiniz.

userform3 de kimi tıklarsanız, o kişinin bilgilerinin userform1 e aktarılmasımı istiyorsunuz.

 

[mrttrn]

userform3 e eklediğim kod aşağıda.

Private Sub ListBox1_Click()
Dim i
 For i = 1 To 32
  UserForm1.Controls("TextBox" & i) = Worksheets("MÜŞTERİLER").Cells(ListBox1.ListIndex + 1, i).Value
 Next
End Sub

Listbox1 tıklayınca o kişiye ait bilgiler Userform1 e aktarılıyor.

Listbox1 tıklayınca listindex satır sıra no verir.
İlki 0
ikinci satır Ahmet hasan Listindex=1 olur.

Döngü 1-32 arasında aldım. userform1 de Texbox sırası 32 den sonra 36 ya geçiyor. Userform1 yeniden düzenleyip textbox sırası düzgün olursa daha iyi olur.
Dosya aşağıda.