bu kodlar ne anlama geliyor ?

[orkuncan5]

sutun = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

ve

For i = 1 To sutun
With ListView1.ColumnHeaders
.Add , , Cells(1, i), Cells(1, i).Width
End With
Next
For j = 2 To satır
x = x + 1
ListView1.ListItems.Add , , x + 1
With ListView1.ListItems(x).ListSubItems
For r = 1 To sutun
.Add , , Cells(j, r)
Next
End With
Next

anlam veremedim.Yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Merhaba,


ListView nesnesine ilk olarak sütun başlıkları listeleniyor. Sayfadaki sütun genişlikleri ile nesnedeki sütun genişlikleri aynı yapılıyor. Daha sonrada satırlarda bulunan veriler listeleniyor.

 

[orkuncan5]

Korhan Bey kodu okurken satır satır nasıl okumam lazım