ListView e bilgileri aldırma

[Erhan Üstünel]

ufak ufak yapmaya çalıştığım çalışmamda forma ListView e Liste sayfasından bilgileri aldırmak istiyorum, çok örnek buldum ama kendime uyarlayamadım, daha sonraki aşalarda geliştirmeye devam edeceğim tabiki )

yardımcı olucak arkadaşlara şimdiden teşekkür ediyorum, burasıda olmasa kendimizi geliştiremicez, sağolun varolun..

 

[Erhan Üstünel]

merhabalar,


bu kodlarla ListView e bilgileri aldırabildim fakat ben sayfamdaki tablodan 5. satırdan itibaren listelenmesini istiyorum, deneme yanılma yöntemi ile bulamadım.. neresini doğru değiştirmem gerekiyor acaba ?

Private Sub UserForm_Initialize()
ListView1.View = lvwReport 'istediğiniz uygulma için Listview görünümü= rapor olmalıdır.
With ListView1.ColumnHeaders
    .Add , , "SIRA NO", 15 '
    .Add , , "TARİH", 55 '
    .Add , , "FAT. NO", 55 '
    .Add , , "FİRMA ADI", 85 '
    .Add , , "VERGİ DAİRESİ", 45 '
    .Add , , "VERGİ NO", 45 '
   
End With
With ListView1
For i = 1 To 600
    .ListItems.Add , , Cells(i, 1)
    .ListItems(i).SubItems(1) = Cells(i, 2)
    .ListItems(i).SubItems(2) = Cells(i, 3)
    .ListItems(i).SubItems(3) = Cells(i, 4)
    .ListItems(i).SubItems(4) = Cells(i, 5)
Next
End With
ListView1.FullRowSelect = True '(liste elemanını seçtiğinizde tüm satır seçili olur. Sadece lvwReport..(Ayrıntılar) görünümünde geçerlidir
ListView1.Gridlines = True '(listeyi çizgili yapar. Bu özellik sadece lvwReport...(Ayrıntılar) görünümünde geçerlidir)
End Sub

 

[halit3]

buunu denermisiniz.

.ListItems.Add , , Cells(i + 4, 1)
.ListItems(i).SubItems(1) = Cells(i + 4, 2)
.ListItems(i).SubItems(2) = Cells(i + 4, 3)
.ListItems(i).SubItems(3) = Cells(i + 4, 4)
.ListItems(i).SubItems(4) = Cells(i + 4, 5)

 

[Erhan Üstünel]

buunu denermisiniz.

hocam teşekkür ediyorum, evet buymuş..

birde listview e tablodan aldırdığım bilgilerin güncel olması için bi tavsiyeniz olurmu bana,

yani user formdan kaydediyorum ve listviewe aldırdığığım bilgiler sayfamdaki bilgilerle güncel olması..

 

[halit3]

kayıt yaptıktan sonra kayıt kodunun altına

UserForm_Initialize

End Sub tan hemen önce bunu koyarsan kayıtların güncel olur.

 

[Erhan Üstünel]

kayıt yaptıktan sonra kayıt kodunun altına

End Sub tan hemen önce bunu koyarsan kayıtların güncel olur.

teşekkürler hocam..