listview

[prodigy]

Private Sub ListView1_Click()
If ListView1.ListItems.Count = 0 Then Exit Sub
x = ListView1.SelectedItem.Index
txtsira = ListView1.ListItems(x)
For a = 1 To 53
Controls("textbox" & a) = ListView1.ListItems(x).ListSubItems(a).Text
Next
end sub

Private Sub UserForm_Initialize()
Set s1 = Sheets("giriş")
With UserForm1.ListView1
.ListItems.Clear
.Gridlines = True
.View = lvwReport
.FullRowSelect = True
With .ColumnHeaders
.Add , , s1.Cells(1, 1), 0
.Add , , s1.Cells(1, 3), 324
.Add , , "Satir", 0
End With
End With

kodu çalıştırdığımda " index out of bounds" hatası veriyor. listviewde tıkladığımızda verileri 53 textboxsa atmak istiyorum.
saygılarımla

 

[emrexcel123]

With .ColumnHeaders
.Add , , s1.Cells(1, 1), 0
.Add , , s1.Cells(1, 3), 324
.Add , , "Satir", 0

sn prodigy, listviewe kolon eklerken index değerlerini verirseniz hangi kolonun kaçıncı sütunda olacağına karar verilir.Siz hiçbir değer vermediğiniz için hata oluşuyor.yukarıdaki kısmı şöyle değiştirin >>
.Add 1, , s1.Cells(1, 1), 0
.Add 2, , s1.Cells(1, 3), 324
.Add 3, , "Satir", 0
hata giderilir...
iyi çalışmalar...