Listbox'tan veri almak

[akavak]

Merhabalar,

Listboxa sayfa1 den verileri aldırıyorum. Userform ekrana gelince listboxtan seçilen herhangi bir satırın 1,2 ve 3. satırlarını sayfadaki bir hücreye almak istiyorum. Sadece listbox yazdığımda ilk alanı doğru getiriyor. 2 ve 3. alanı getiremiyorum. yardım edermisiniz?


Private Sub UserForm_Initialize()

ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "60;240;20"

ListBox1.RowSource = "Sayfa1!g3:I14"

End Sub



Private Sub ListBox1_Click()

Sheets("Sayfa1").Cells(15, "G") = ListBox1
Sheets("Sayfa1").Cells(15, "H") = ListBox1.List(x, 3)

End Sub

 

[Orion1]

Merhabalar,

Listboxa sayfa1 den verileri aldırıyorum. Userform ekrana gelince listboxtan seçilen herhangi bir satırın 1,2 ve 3. satırlarını sayfadaki bir hücreye almak istiyorum. Sadece listbox yazdığımda ilk alanı doğru getiriyor. 2 ve 3. alanı getiremiyorum. yardım edermisiniz?


Private Sub UserForm_Initialize()

ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "60;240;20"

ListBox1.RowSource = "Sayfa1!g3:I14"

End Sub



Private Sub ListBox1_Click()

Sheets("Sayfa1").Cells(15, "G") = ListBox1
Sheets("Sayfa1").Cells(15, "H") = ListBox1.List(x, 3)

End Sub

Sheets("Sayfa1").Cells(15, "G") = ListBox1.column(0)
Sheets("Sayfa1").Cells(15, "H") = listbox1.column(1)
Sheets("Sayfa1").Cells(15, "I") = listbox1.column(2)

 

[akavak]

Levent Bey
öncelikle teşekkkür ederim.

column kullanınca da run time error 381 veriyor

iyi çalışmalar

 

[Orion1]

Levent Bey
öncelikle teşekkkür ederim.

column kullanınca da run time error 381 veriyor

iyi çalışmalar

Öncelikle adım levent değil.Bunu antiparantez bildireyim.
2nci şık ise siz 3 kolana veri aldıyanız hata vermez.Kolar doğrudur.
Yalnız bu kodları listboxın click olayına yazmanız lazım.Butona yazarsanız hata verir.

 

[akavak]

Evren Bey
kusura bakmayın lütfen.