Tarihteki son saat

[Morphe]

Merhaba Arkadaşlar,

Bir raporum var. Aşağıdaki gibi... Bu sütun A stünunda... Benim yapmak istediğim burada gördüğünüz tarihlerin en son saatini almak istiyorum. Örneğin 2.2.2015 tarihinde son saat 15:54 nasıl süzebilirim veya kod mu gerekir?

2.2.2015 08:37
2.2.2015 08:56
2.2.2015 09:48
2.2.2015 10:17
2.2.2015 10:26
2.2.2015 11:03
2.2.2015 12:02
2.2.2015 13:07
2.2.2015 13:10
2.2.2015 13:21
2.2.2015 14:31
2.2.2015 15:40
2.2.2015 15:54
3.2.2015 15:26
3.2.2015 16:18
3.2.2015 17:28
3.2.2015 17:42
3.2.2015 18:05
4.2.2015 09:14
4.2.2015 10:23
4.2.2015 10:42
4.2.2015 11:11
4.2.2015 12:58
4.2.2015 13:19
4.2.2015 14:23
4.2.2015 14:49
4.2.2015 15:22
4.2.2015 15:26
4.2.2015 16:33
4.2.2015 16:53
4.2.2015 17:21
4.2.2015 17:40
4.2.2015 17:59
4.2.2015 18:01
5.2.2015 08:42
5.2.2015 10:15
5.2.2015 10:29
5.2.2015 11:08
5.2.2015 11:16
5.2.2015 12:19
5.2.2015 12:45
5.2.2015 17:22

 

[ÖmerBey]

B1 hücresinde tarih yazdığını varsayarsak aşağıdaki dizi formülünü hücreye uyguladıktan sonra hücreyi saat olarak biçimlendiriniz.

=MAK(EĞER(AŞAĞIYUVARLA(A:A;0)=[COLOR="Red"]B1[/COLOR];A:A))-[COLOR="red"]B1[/COLOR]

Not: Dizi formülü hücre içerisindeyken Ctrl+Shift+Enter üçlü tuş kombinasonuyla elde edilir.

 

[Morphe]

Mucit Hocam, galiba yanlış oldu... Anlatmak istediğim yukarıdaki formda alt alta birden fazla tarig ve saat var.. ben günlerin son saatlerini almak istiyorum. Diğerlerini silmesini istiyorum.

Örneğin:
2.2.2015 15:54
3.2.2015 18:05
4.2.2015 18:01 gibi...

Diğer gereksiz günlerdeki saatleri silecek.

 

[ÖmerBey]

Silme işlemi olacaksa kod kullanmanız gerek. Aşağıdaki makro kodlarını deneyiniz.

Sub KOD()
For a = Range("A65500").End(3).Row To 1 Step -1
    If WorksheetFunction.RoundDown(Cells(a + 1, "A"), 0) = WorksheetFunction.RoundDown(Cells(a, "A"), 0) Then
        [COLOR="Red"]Cells(a, "A").EntireRow.Delete[/COLOR]
    End If
Next
End Sub

Bu kodlar o güne ait son yazılan saat haricindeki satırları tamamen siliyor. Satırların silinmesini istemiyorsanız koddaki kırmızı satırı aşağıdaki şekilde değiştiriniz.

Cells(a, "A").ClearContents

 

[Morphe]

Hocam ellerine sağlık çok teşekkür ederim. Peki burada son yazılan saat haricindekileri siliyor. ilk yazılan saat haricindekileri silmek istersen?

 

[ÖmerBey]

İlk satırı bırakmak isterseniz de kırmızı satırı şu şekilde değiştiriniz.

Cells(a+1, "A").EntireRow.Delete