listview işlemi hakk.

[Bakigemlik]

Merhaba,

Ek dosyada Plaka , Dönem ya da tarih aralığı seçtiğimde listele dediğim zaman dosyadaki verileri listview getiremedim sisteden ya da başka kaynaklardan araştırdım ama sonuca ulaşamadım, desteğinizi rica ederim,

Teşekkürler,

 

[Bakigemlik]

Merhaba araştırarak aşağıdaki kodlarla sorunumu çözdüm şimdi kaldı "Bul" ve aktar kısmı araştırarak yapmaya çalışacağım eğer yapamazsam desteğinizi rica ederim

Private Sub CommandButton1_Click()

  Dim x As Integer
    Dim Liste As ListItem
        ListView1.ListItems.Clear
        With Sheets("Ana Dosya")
           For i = 2 To .[a65536].End(3).Row
              x = x + 1
                Set Liste = ListView1.ListItems.Add(, , .Cells(i, 1).Value)
                    Liste.SubItems(1) = .Cells(i, 2).Value
                    Liste.SubItems(2) = .Cells(i, 3).Value
                    Liste.SubItems(3) = .Cells(i, 4).Value
                    Liste.SubItems(4) = Format(.Cells(i, 5).Value, "#,##")
                    Liste.SubItems(5) = .Cells(i, 6).Value
                    Liste.SubItems(6) = .Cells(i, 7).Value
                    Liste.SubItems(7) = Format(.Cells(i, 8).Value, "#,##")
                    Liste.SubItems(8) = Format(.Cells(i, 9).Value, "#,##")
                    Liste.SubItems(9) = .Cells(i, 10).Value
                    Liste.SubItems(10) = Format(.Cells(i, 11).Value, "#,##0.00 TL")
                    Liste.SubItems(11) = Format(.Cells(i, 12).Value, "#,##")
                    Liste.SubItems(12) = Format(.Cells(i, 13).Value, "#,##")
                    Liste.SubItems(13) = .Cells(i, 14).Value
                    
            Next i
        End With
    Set Liste = Nothing
End Sub




Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
Unload UserForm3
Application.ScreenUpdating = True
End Sub

Private Sub ListView1_BeforeLabelEdit(Cancel As Integer)

End Sub

Sub UserForm_Initialize()
With ListView1
    .View = lvwReport  'ListView de buna dikkat etmeliyiz, Eğer ListWiev de burayı lvwReport olarak ayarlamazsak diğer yapılan işlemler listemizde gözükmeyecektir.
     .ColumnHeaders.Add , , "DEĞİŞİM TARİHİ ", 80
     .ColumnHeaders.Add , , "DÖNEM  ", 50
     .ColumnHeaders.Add , , "PLAKA ", 50
     .ColumnHeaders.Add , , "ARAÇ TİPİ ", 50
     .ColumnHeaders.Add , , "DEĞİŞİM KM ", 60
     .ColumnHeaders.Add , , "MARKA ", 40
     .ColumnHeaders.Add , , "LSTK DESENİ ", 100
     .ColumnHeaders.Add , , "KM GARANTİ DESEN MODELİ ", 110
     .ColumnHeaders.Add , , "LASTİK GARANTİ DURUMU ", 110
     .ColumnHeaders.Add , , "TAKILAN LASTİK ", 100
     .ColumnHeaders.Add , , "TUTAR ", 60
     .ColumnHeaders.Add , , "SON KM ", 60
     .ColumnHeaders.Add , , "KALAN GARANTİ KM  ", 90
     .ColumnHeaders.Add , , "LASTİK DİŞ DERİNLİĞİ ", 100
   .FullRowSelect = True 'liste elemanını seçtiğinizde tüm satır seçili olur.
   .Gridlines = True 'Listeyi çizgili yapar.
End With


End Sub