Süzülen veriyi yazdırmak.

[mf.murat]

Arkadaşlar konuyla ilgili örnek bulamadım.Lütfen yardımlarınızı bekliyorum.

Listwievde dtpicker ile süzdüğüm verileri yeni excel sayfasına nasıl aktarabilirim.

Aktardığım sayfaya süzdüğüm tarihleri isim olarak verebilirmiyim?

 

[Ferhat Pazarçevirdi]

Merhabalar,

Şu şekilde bir kodlama yapılabilir.

Kullandığınız Listview nesnesinin adının Listview1 olduğu kabulü ve bir CommandButton'a basılarak çalıştırıldığı kabulü ile ...

Private Sub CommandButton1_Click()
    Dim oLvwItm As ListItem
    Dim wks As Worksheet
    Set wks = Worksheets.Add(, Sheets(Sheets.Count))
    With ListView1
        For Each oLvwItm In .ListItems
            i = i + 1
            Cells(i, 1) = oLvwItm
            Cells(i, 2) = oLvwItm.ListSubItems(1).Text
        Next
    End With
    Set wks = Nothing
End Sub

 

[mf.murat]

Ferhat bey ;

Kodlar çalışıyor fakat.
Süzdüğüm verileri mevcut dosyamda sayfa açarak değil yeni excel kitabı açarak nasıl yazabilirim.

 

[Ferhat Pazarçevirdi]

Siz mesajınızda yeni bir sayfaya yazsın deyince ben o şekilde anladım.

Öyleyse şu kodları deneyin. Değiştirilen kısımları kırmızı ile gösterdim

Private Sub CommandButton2_Click()
    Dim oLvwItm As ListItem
[COLOR="Red"]    Dim wkb As Workbook
    Set wkb = Workbooks.Add[/COLOR]
    With ListView1
        For Each oLvwItm In .ListItems
            i = i + 1
            Cells(i, 1) = oLvwItm
            Cells(i, 2) = oLvwItm.ListSubItems(1).Text
        Next
    End With
[COLOR="red"]    Set wkb = Nothing[/COLOR]
End Sub