ListBox,a tiklandigi zaman veriyi macro,da gostermek

[Jezus]

Arkadaslar herkese merhaba
ListBox,tan herhangi bir veriye tiklandiginda onu macro,ya nasil alabilirim..?
Bu konuda yardim edebilirmisiniz.
Simdiden tesekkur ederim

PS.Bu konu icin baslik atmak zorunda kaldim kusura bakmayin

 

[Jezus]

Sitede kimse yokmu arkadaslar..?

 

[Levent Menteşoğlu]

ListBox,tan herhangi bir veriye tiklandiginda onu macro,ya nasil alabilirim..?

Tıklana değeri kod içinde kullanmak anlamında ise; örneğin aşağıdaki gibi bir kodu kullanabilirsiniz.

deg=listbox1.column(0)

Burada deg değişkenine listboxın seçilen satırının ilk kolonundaki değer atanmış olur.

 

[Jezus]

Private Sub ListBox1_Click()
deg = ListBox1.Column(0)
End Sub

Bu sekilde yazdim olmadi ..! Levent hocam

 

[Levent Menteşoğlu]

Private Sub ListBox1_Click()
deg = ListBox1.Column(0)
End Sub

Neden olmadı? deg i bir yerde kullanmanız gerekir ki işlem yapıp yapmadığını gözlemleyin. Ã?rneğin aşağıdaki gibi deneyin.

[vb:1:4bddd293a7]Private Sub ListBox1_Click()
deg = ListBox1.Column(0)
msgbox deg
End Sub
[/vb:1:4bddd293a7]

 

[Jezus]

Levent hocam bunu girince A1 deki veriyi gosteriyor o kadar

Private Sub ListBox1_Click()
deg = ListBox1.Column(0)
MsgBox deg
End Sub

 

[Levent Menteşoğlu]

Peki siz ne olmasını bekliyorsunuz veya istiyorsunuz?

 

[Jezus]

Hocam o bilgiyi yani tiklanan sirayi Usarform,a aktarmasini istedim

 

[Levent Menteşoğlu]

o bilgiyi yani tiklanan sirayi Usarform,a aktarmasini istedim

O bilgiyi userforma aktaramazsınız,ancak userform üzerindeki örneğin bir textboxlara aktarabilirsiniz.

[vb:1:844c7b8e6f]Private Sub ListBox1_Click()
textbox1 = ListBox1.Column(0)
textbox2 = ListBox1.Column(1)
textbox3 = ListBox1.Column(2)
.
.
.
End Sub[/vb:1:844c7b8e6f]

Bununla ilgili forumda çok sayıda örnek dosya mevcuttur. Aramadan listbox diye aratmanızı öneririm.

 

[Jezus]

Levent hocam sagol istedigim buydu.

Selamlar iyi calismalar

Isa

 

[mraltin]

Sn.Leventm
textbox1 = ListBox1.Column(0)
textbox2 = ListBox1.Column(1)
textbox3 = ListBox1.Column(2)
.
.
benim listboxımda 2 tane column var(musteri no ve musteri adi)
ama textboxlara almak istedigim bilgi daha fazla(musteri telefon,adres,v.s)yani Sayfa2deki bilgiler

 

[Levent Menteşoğlu]

Bir örnek dosya ekleyin, onun üzerinden gidelim.

 

[mraltin]

Sn.Leventm Dosya boyutu buyuk oldugu icin eklemedim.
http://www.excel.web.tr/viewtopic.php?t=9144&highlight= linkinde okul excell adlı personel takip prg.var.Benim istedigim onun muayene istek ekranindakinin aynisi.
Tesekkur ederim.

 

[mraltin]

sn.Leventm
Sitedeki Siz ustadlarimizin ornekleri ile sorunu giderdim
Tesekkur ederim