listbox dan veri aktarma

[prodigy]

formu gezerken listboxdaki verileri çok kısa bir makroyla textboxlara aktarma makrosu buldum.
Private Sub ListBox1_Click()
For a = 1 To 11
Controls("textbox" & a) = Cells(ListBox1.List(ListBox1.ListIndex, 0), a)
Cells(ListBox1.List(ListBox1.ListIndex, 0), 1).Select
Next
End Sub
burada listboxda 1. veriyi tıkladığımda sayfa1 de başlıkları, 2. tıkladıgımda 1. verileri gösteriyor. yani. tıkladığımız verinin bir üstünü gösteriyor. bunu nasıl düzeltebiliriz.
saygılarımla

 

[Haluk]

ListBox1.ListIndex yerine ListBox1.ListIndex+1 yazıp da deneyin.

 

[prodigy]

haluk bey
dediğinizi denemiştim ama hata veriyor

 

[Haluk]

Merhaba;

Dosyayı eklermisiniz ?

 

[prodigy]

haluk bey öncelikle ilginize teşekkür ederim. dosyayı gönderiyorum burada listbox daki verileri textboxlara diğer bir metodla aktarabiliyorum.
Private Sub ListBox1_Click()
sayman = ListBox1.ListIndex
textbox1.Text = sayman + 1
Sheets("giris").Select
Range("a1").Select
ActiveCell.Offset(sayman, 0).Range("A2").Select
textbox2 = ""
textbox2 = Sheets("giris").Cells(ListBox1.ListIndex + 2, 2).Value
textbox3 = ""
textbox3= Sheets("giris").Cells(ListBox1.ListIndex + 2, 3).Value
ama değiştir de yazdığım kodları kullanınca direk excel hata verip kapatıyor.

 

[prodigy]

sayın haluk bey
sormuş olduğum problemi çözdüm ama bu seferde değiştir makrosu hata verip kapatıyor. bakarsanız sevinirim.

Private Sub ListBox1_Click()
For a = 1 To 11
Controls("textbox" & a) = Cells(ListBox1.ListIndex + 2, a)
Cells(ListBox1.ListIndex + 2, 1).Select
Next
End Sub

Private Sub CommandButton3_Click()
On Error Resume Next
For a = 1 To 11
Cells(ListBox1.ListIndex + 2, a) = Controls("textbox" & a)
Next
End Sub

 

[prodigy]

problem çözdüm
kusura bakmayın düşünmeden sorduk bir kere.
listbox ile ilgili kodları doubleclik olayına yazdım .işlem tamam