Listview problemi

[emre311]

Merhaba;
Alttaki kodlarla listview e verileri getiriyorum fakat saat formatında olanları (.Add , , Arıza Başlangıç Saati", 35
.Add , , "Arıza Müdahele Saati", 35
.Add , , "Gecikme Süresi", 35
.Add , , "Arıza Bitiş Saati", 35
.Add , , "Çalışma Süresi", 35)
saat olarak getirmiyor. Birde ben Listview e sadece bulunduğu günün verilerini getirmesini istiyorum nasıl yapabilirim? bir türlü onuda yapamadım.

Private Sub UserForm_Initialize()
With UserForm1
.Height = Application.Height
.Width = Application.Width
End With

ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.FullRowSelect = True
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear

With ListView1.ColumnHeaders

.Add , , "S.NO", 30
.Add , , "Ünite Kodu", 40
.Add , , "Makine Kodu", 40
.Add , , "Başlangıç Tarihi", 60
.Add , , "Bitiş Tarihi", 60
.Add , , "İş Emri No", 35
.Add , , "Arıza Başlangıç Saati", 35
.Add , , "Arıza Müdahele Saati", 35
.Add , , "Gecikme Süresi", 35
.Add , , "Arıza Bitiş Saati", 35
.Add , , "Çalışma Süresi", 35
.Add , , "Arıza Çakışması", 35
.Add , , "Planlama Duruş Süresi", 35
.Add , , "Duruş Varmı", 35
.Add , , "Vardiya", 35
.Add , , "Arıza Türü", 35
.Add , , "Arıza Kodu", 47
.Add , , "Açıklama", 100
.Add , , "İşi Yapan", 100
.Add , , "Hurda", 100

End With
For s = 2 To Cells(65530, 1).End(xlUp).Row
ListView1.ListItems.Add , , Cells(s, 1).Value
y = ListView1.ListItems.Count
For a = 2 To 21
ListView1.ListItems.ListSubItems.Add , , Cells(s, a).Value
Next
Next
Label11.Caption = Environ("UserName")
End Sub

 

[dEdE]

Merhaba,
Kodlar yerine örnek dosyanızı eklerseniz daha çabuk yanıt alırsınız.
Şöyle düşünelim.
Diyelim ki size yardım etmek istiyorum ama, sadece kodlara bakarak sorunu çözecek kadar uzman değilim. Bu durumda bir dosya hazırlayıp, UserFormu çizip, örnek veriler girip deneyerek sorunu çözmeye çalışacağım.
Siz olsanız uğraşır mısınız?
Hoşça kalın.

 

[emre311]

haklısınız hocam kusura bakmayın. Bu program burada yapılmış bir program ben kendime göre uyarladım konuya hakim insanlar var diye koymadım daha doğrusu arıza kayıt programı.