Hücrelere ay başlangıç ve bitişini Tarih ve Saat ile atama

[Kavinsky]

Üstatlar merhaba, ben raporlama sisteminde ÇOKETOPLA ile iki hücre arasında belirttiğim tarihler arasındaki verilerin toplamını alabiliyorum fakat şöyle bir şey var , Now komutunu kullandığımda saat bazında verdiği için o anki saat ile veriyor, bu durumda benim istediğim gerçekleşmiyor.
Benim istediğim şu , Aşağıdaki kodu çalıştırdığımda O günkü tarihin 00:00 itibari ile gün bitmeden 23:59 a kadar olan tarihi versin.
Bir diğer isteğim de yine aynı mantıkta ay bazında versin E2 hücresine mevcut ayın 00:00 itibariyle ay hangi gün bitiyorsa o ayın 23:59 nu atasın. Umarım istediğimi anlatabilmişimdir. Özetle günlük ve aylık tarih atmak istiyorum ama saat ile birlikte. Böyle bir şey mümkünse çok müteşekkir olurum.

Sub giderbugunPORT()
Range("E2").Value = Now
Range("D2").Value = Now
End Sub

 

[Korhan Ayhan]

Kısaca D2 ve E2 hücresinde ne görmek istiyorsunuz? Örnekler misiniz?

 

[Kavinsky]

Korhan bey merhaba. D2 ve E2 hücresine bugün için örnek vereyim. D2 hücresine 10.05.2019 00:00 - E2 hücresine 10.05.2019 23:59 yazsın. Hangi günde isek o günün tarihine göre yapsın bu işlemi. Diğer konuda da ay bazında yapsın. Yani o ayın başı ve sonunun tarihini atsın D2 : 01.05.2019 00:00 E2: 31.05.2019 23:59 gibi.

 

[Orion1]

Buyurun.

Range("D2").NumberFormat = "dd.mm.yyyy hh:mm:ss"
Range("D2").Value = CDate(Date & " " & TimeValue("00:00:00"))
Range("E2").NumberFormat = "dd.mm.yyyy hh:mm:ss"
Range("E2").Value = CDate(Date & " " & TimeValue("23:59:00"))

 

[Kavinsky]

Evren hocam ellerinize sağlık çok teşekkür ederim. Peki bunu ay bazında yapabilme imkanı var mı ? O mevcut ayın 1 ile son gününü baz alarak yapabilir mi?

 

[Orion1]

Buyurun.

Range("D2").NumberFormat = "dd.mm.yyyy hh:mm:ss"
Range("D2").Value = CDate(VBA.DateSerial(Year(Date), Month(Date), 1) & " " & TimeValue("00:00:00"))
Range("E2").NumberFormat = "dd.mm.yyyy hh:mm:ss"
Range("E2").Value = CDate(VBA.DateSerial(Year(Date), Month(Date) + 1, 1) - 1 & " " & TimeValue("23:59:00"))

 

[Kavinsky]

Saygılarımı iletiyorum, ellerinize sağlık.

 

[Orion1]

Saygılarımı iletiyorum, ellerinize sağlık.

Rica ederim.
İyi çalışmalar.

 

[Kavinsky]

Evren hocam parti parti istiyoruz kusura bakmayın ama , yıl bazında yapma imkanımız var mı acaba ?

 

[Orion1]

Evren hocam parti parti istiyoruz kusura bakmayın ama , yıl bazında yapma imkanımız var mı acaba ?

Örnek dosya ekleyiniz.

 

[Kavinsky]

Sayın Evren hocam dosya çok büyük ve içinde çok özel veri olduğu için ekleme imkanım şu an yok.

Range("D2").NumberFormat = "dd.mm.yyyy hh:mm:ss"
Range("D2").Value = CDate(VBA.DateSerial(Year(Date), Month(Date), 1) & " " & TimeValue("00:00:00"))
Range("E2").NumberFormat = "dd.mm.yyyy hh:mm:ss"
Range("E2").Value = CDate(VBA.DateSerial(Year(Date), Month(Date) + 1, 1) - 1 & " " & TimeValue("23:59:00"))

Şunu ay bazında yapmışsınız , sadece aynı kodu bir yıllık dönem bazında yapma imkanımız var mı bu koddan yola çıkarak ?

 

[Orion1]

Şöylemi?

Range("D2").NumberFormat = "dd.mm.yyyy hh:mm:ss"
Range("D2").Value = CDate(VBA.DateSerial(Year(Date), Month(Date), 1) & " " & TimeValue("00:00:00"))
Range("E2").NumberFormat = "dd.mm.yyyy hh:mm:ss"
Range("E2").Value = CDate(VBA.DateSerial(Year(Date) + 1, 1, 1) - 1 & " " & TimeValue("23:59:00"))

 

[Kavinsky]

Evren hocam mantık bu ama kod içinde bulunduğumuz ayı baz alıyor, ocak ayını baz alabilir mi ?

 

[Korhan Ayhan]

Deneyiniz.

Sub Gun()
    Range("D2:E2").NumberFormat = "dd.mm.yyyy hh:mm"
    Range("D2") = Date + TimeValue("00:00:00")
    Range("E2") = Date + TimeValue("23:59:59")
    Range("D2:E2").Columns.AutoFit
End Sub

Sub Ay()
    Range("D2:E2").NumberFormat = "dd.mm.yyyy hh:mm"
    Range("D2") = DateSerial(Year(Date), Month(Date), 1) + TimeValue("00:00:00")
    Range("E2") = DateSerial(Year(Date), Month(Date) + 1, 0) + TimeValue("23:59:59")
    Range("D2:E2").Columns.AutoFit
End Sub

Sub Yil()
    Range("D2:E2").NumberFormat = "dd.mm.yyyy hh:mm"
    Range("D2") = DateSerial(Year(Date), 1, 1) + TimeValue("00:00:00")
    Range("E2") = DateSerial(Year(Date), 12, 31) + TimeValue("23:59:59")
    Range("D2:E2").Columns.AutoFit
End Sub

 

[Kavinsky]

Evren ve Korhan hocam yardımlarınız için çok teşekkür ederim ellerinize sağlık, saygılar.