listview e veri almak.

[Orion1]

Hocam Allah razı olsun. teşekkürler. gönderdiğiniz örnek tam istediğim gibi olmuş. ellerize sağlık. fakat bu yazdırma olayını nasıl yapabilirim acaba. örnekte SIRALAMA BUL ve RAPOR AL diye iki ayrı yer var. SIRALAMA BUL ve RAPOR AL için ayrı ayrı kendi sayfalarında yazdır butonu olacak. RAPOR AL düğmesine basınca zaten puana göre sıralı bir halde geliyor. bir düğme ile de bu listeyi yazdırmak istiyorum. ve tabi aynı şekilde SIRALAMA BUL bölümünde de aynı şekilde olacak.
ayrıca bu aşağıdaki kodlardan hangisi listview a verileri alırken puana göre sıralama yaptırıyor. çünkü belki sıralama olmaksızın da verileri listeletmem gerekebilir. yani normal bir liste olarak diyorum.

Private Sub UserForm_Initialize()
Dim s1 As Worksheet, i As Long
Set s1 = Sheets("veri")
ListView1.View = lvwReport
With ListView1.ColumnHeaders
.Add , , s1.Range("A1").Value, Range("A1").Width
.Add , , s1.Range("B1").Value, Range("B1").Width
.Add , , s1.Range("D1").Value, Range("D1").Width
.Add , , s1.Range("H1").Value, Range("H1").Width
End With
For i = 2 To s1.Cells(65536, "B").End(xlUp).Row
With ListView1
.ListItems.Add , , s1.Cells(i, "A").Value
.ListItems(i - 1).SubItems(1) = s1.Cells(i, "B").Value
.ListItems(i - 1).SubItems(2) = s1.Cells(i, "D").Value
.ListItems(i - 1).SubItems(3) = s1.Cells(i, "H").Value
End With
Next i
Label1.Caption = "TOPLAM : " & Format(ListView1.ListItems.Count, "#,##0")
End Sub

ilginize çok çok teşekkürler. kusura bakmayın on gündür kahrımı çektiniz, hakkınızı helal ediniz.. iyi çalışmalar...

Bu kodlar sıralama yapmıyor.
Direk sayfadan verileri alıyor.Sayfadaki sıarası nasıl ise o şekilde veriler listeleniyor.
Sayfaya veriler kaydedilirken o durumuna göre sıralanıyor.Ben sizin kaydet butonuna sıralama kodlarını ilave etmiştim.
Her kayıttan sonra sayfada puana göre sıralama yapılıyor.
Yazdırma olayında listviewden veriler alınıptamı yazdırma olacak?
Bunu pek anlamadım.Hangi Hücre aralığında yazdırma olacak?

 

[krokix]

hocam selamlar, şimdi SIRALAMA BUL ve RAPOR AL düğmelerine tıklayınca karşımıza gelen listviewdeki bilgileri yazıdmak istiyorum sadece. örneğin RAPOR AL düğmesine tıkladığımda karşıma bir user form geliyor, bunun içinde bir listview görüntüleniyor. gönderdiğim örnekte böyle. o açılan userformda yazdır diye bir düğme olacak ve listview de listelenen o sıra no, adı soyadı, puanı ve okulu bilgileri yazdırılacak.

 

[Orion1]

Rapor al bölümünde yazdır butonuna tıklayınız.

Private Sub CommandButton1_Click()
Dim s1 As Worksheet, i As Long
Set s1 = Sheets("veri")
Sheets("Yazdir").Select
Range("A1:H65536").ClearContents
Range("A1").Value = s1.Range("A1").Value
Range("B1").Value = s1.Range("B1").Value
Range("C1").Value = s1.Range("D1").Value
Range("D1").Value = s1.Range("H1").Value
For i = 1 To ListView1.ListItems.Count
    Cells(i + 1, "A").Value = ListView1.ListItems(i)
    Cells(i + 1, "B").Value = ListView1.ListItems(i).SubItems(1)
    Cells(i + 1, "C").Value = ListView1.ListItems(i).SubItems(2)
    Cells(i + 1, "D").Value = ListView1.ListItems(i).SubItems(3)
Next i
Set s1 = Nothing
Range("A1:D" & Cells(65536, "B").End(xlUp).Row).PrintOut
MsgBox "Yazdırma işlemi bitti"
End Sub

 

[krokix]

Sayın Evren Hocam. ilginize binlerce kez teşekkür ediyorum. saolun, kodlar işime çok yaradı. sizlere iyi çalışmalar dilerim. iyi akşamlar...

 

[Orion1]

Sayın Evren Hocam. ilginize binlerce kez teşekkür ediyorum. saolun, kodlar işime çok yaradı. sizlere iyi çalışmalar dilerim. iyi akşamlar...

Rica ederim.
iyi akşamlar.