Gün içinde ilk saat ve son saat billgisi

[sgoktekin]

Bu şekilde veri dosyası var. Verilerden bana tarih içerisindeki ilk saat ile son saat bilgisi gerekli. Diğer satırları gizlemek veya silmek istiyorum. Nasıl yapabilirim?

08.12.2005 09:05
08.12.2005 09:08
08.12.2005 17:39
09.12.2005 09:14
09.12.2005 09:18
12.12.2005 09:06
12.12.2005 09:06
12.12.2005 09:09
12.12.2005 12:50
12.12.2005 12:50
12.12.2005 12:55
13.12.2005 09:13
13.12.2005 09:16
13.12.2005 18:19
14.12.2005 09:13
14.12.2005 09:19
14.12.2005 18:05
15.12.2005 09:02
15.12.2005 09:06
15.12.2005 18:27
16.12.2005 09:20
16.12.2005 09:46
16.12.2005 11:44
16.12.2005 11:45
19.12.2005 09:34
19.12.2005 09:36
20.12.2005 09:20
20.12.2005 09:24
21.12.2005 09:12
21.12.2005 09:13
21.12.2005 11:07
21.12.2005 13:37
21.12.2005 13:53
21.12.2005 13:54
21.12.2005 14:24
21.12.2005 14:28
22.12.2005 09:16

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub sil()
son = Cells(Rows.Count, "A").End(3).Row
For i = son To 2 Step -1
If Int(Cells(i, "A")) = Int(Cells(i + 1, "A")) And Int(Cells(i, "A")) = Int(Cells(i - 1, "A")) Then Rows(i).Delete
Next
End Sub

 

[ASLAN7410]

Sayın Yusuf Bey kod gayet güzel çalışıyor.

Aynı konu olduğu için yeni bir konu açmak istemedim.

Bu kod gereksiz satırları siliyor, benim istediğim satırları silmeden tarih içerisindeki ilk saat ve son saati başka bir hücreye alabilir mi? Örneğin D ve E sütunu olabilir.

 

[YUSUF44]

Sayın Yusuf Bey kod gayet güzel çalışıyor.

Aynı konu olduğu için yeni bir konu açmak istemedim.

Bu kod gereksiz satırları siliyor, benim istediğim satırları silmeden tarih içerisindeki ilk saat ve son saati başka bir hücreye alabilir mi? Örneğin D ve E sütunu olabilir.

Aşağıdaki makroyu kullanabilirsiniz:

Sub ilktarihsaat()
son = Cells(Rows.Count, "A").End(3).Row
[D1] = "İLK TARİH SAAT"
[E1] = "SON TARİH SAAT"
eski = WorksheetFunction.Max(2, Cells(Rows.Count, "D").End(3).Row, Cells(Rows.Count, "E").End(3).Row)
Range("D2:E" & eski).ClearContents
[D2] = [A1]
For i = 2 To son
If Int(Cells(i, "A")) <> Int(Cells(i - 1, "A")) Then
    yeniilk = Cells(Rows.Count, "D").End(3).Row + 1
    Cells(yeniilk, "D") = Cells(i, "A")
Else
If Int(Cells(i, "A")) = Int(Cells(i - 1, "A")) And Int(Cells(i, "A")) <> Int(Cells(i + 1, "A")) Then
    yenison = Cells(Rows.Count, "E").End(3).Row + 1
    Cells(yenison, "E") = Cells(i, "A")
End If
End If
Next
End Sub

 

[ASLAN7410]

Sayın Yusuf Bey ilginize çok teşekkür ediyorum, tam istediğim gibi oldu.

Hayırlı sabahlar.