Hatayı listboxta görüntülemek

[mutlu erdal erdem]

Private Sub CommandButton8_Click()
Set WF = WorksheetFunction
Sabit = 1440
[hk6:hk65536] = ""
For x = 6 To [A65536].End(3).Row
Toplam = WF.SumIf([A6:A65536], Cells(x, 1), [m6:m65536]) + WF.SumIf([A6:A65536], Cells(x, 1), [n6:n65536])
If Sabit <> Toplam Then Cells(x, 219) = "GÜNLÜK TOPLAMDA HATA VAR !"
Next
Set WF = Nothing
MsgBox "KONTROL İŞLEMİ TAMAMLANMIŞTIR.", vbInformation


End Sub
yukarıdaki makromda a sütunu tarihi göstermektedir.Makro çalıştığı zaman hücreye günlük toplamda hata var diye yazıyor ancak ben bunun yerine hata olan tarihleri listbox8(0, 0), listbox8(0, 1)....listbox8(0, 10) kadar görüntülemek istiyorum.Aslında listbox8 in controlsource sayfayı ve hücre nosunu yazdım ama benim yapmak istediğim şey hata hk6:hk65000 arası hangisinde hata varsa onu göstersin controlsource sadece tek hücreyle bağlantı kurabiliyor.zaten en fazla 5-6 hata oluyor.Bunuda yani hata olan tarihi veya tarihleri listboxta görüntülemek istiyorum

 

[Levent Menteşoğlu]

Dosyanızı eklermisiniz.

 

[mutlu erdal erdem]

Şİfre

1214151 Dosyayi GÖnderİyorum

 

[Levent Menteşoğlu]

Kodu aşağıdaki ile değiştirerek deneyin.

Private Sub CommandButton8_Click()
Set WF = WorksheetFunction
Sabit = 1440
[hk7:hk65536] = ""
ListBox8.ColumnCount = 10
ListBox8.ColumnWidths = "80;70;;70;70;70;70;70;70;70"
ListBox8.AddItem
For x = 7 To [A65536].End(3).Row
Toplam = WF.SumIf([A7:A65536], Cells(x, 1), [m7:m65536]) + WF.SumIf([A7:A65536], Cells(x, 1), [n7:n65536])
If Sabit <> Toplam Then
For b = 1 To 10
ListBox8.List(c, b - 1) = Cells(x, b)
Next
c = c + 1
End If
Next
Set WF = Nothing
MsgBox "ÇALIŞMA ZAMANI KONTROL İŞLEMİ TAMAMLANMIŞTIR,HATALAR HK SÜTUNA YAZILMIŞTIR", vbInformation
End Sub

 

[mutlu erdal erdem]

hata veriyor

Sanırım ben yanlış ifade ettim.Ben listbox8 de tüm columuncount larda sadece toplam çalışma sürelerinin 1440 olmaması durumunda sadece tarihi görmek istiyorum yani HK7 sütunundan başlayarak sadece hk sütunundan hatalı olanları görecek ve karşılığındaki tarihleri listbox8(0,0) ...listbox8(0,10) kadar sadece tarihleri gösterecek hatalı olan tarih 01.01 - 05.01 -06-01 şeklinde görüntülenecek kaç tane hatalı ise yılı göstermesine gerek yok sadece gün ve ay yeterli.Çok tşk ederim

 

[mutlu erdal erdem]

tamam böyle yapınca oldu hata düzeldi

Private Sub CommandButton8_Click()
Set WF = WorksheetFunction
Sabit = 1440
[hk7:hk65536] = ""
For x = 7 To [A65536].End(3).Row
Toplam = WF.SumIf([A7:A65536], Cells(x, 1), [m7:m65536]) + WF.SumIf([A7:A65536], Cells(x, 1), [n7:n65536])
If Sabit <> Toplam Then
ListBox8.ColumnCount = 10
ListBox8.ColumnWidths = "80;70;;70;70;70;70;70;70;70"
ListBox8.AddItem
For b = 1 To 10
ListBox8.List(c, b - 1) = Cells(x, b)
Next
c = c + 1
End If
Next
Set WF = Nothing
MsgBox "Tarihlere göre 1440 dakika olmayan çalışma süreleri listelenmiştir,görüntülenen hataları düzeltiniz", vbInformation
End Sub
Sayın leventm böyle yapınca hata düzeldi bu şekilde kalsın hata olanı böylede anlıyorum .Aslında böyle uğraşınca iyide oluyor.Öğrenmek için emek vermek gerekiyor.Tekrar tşk ediyorum kolay gelsin.