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

Katılım
5 Şubat 2016
Mesajlar
159
Beğeniler
5
Excel Vers. ve Dili
2010 Türkçe
#1
Ü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.


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

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
24,272
Beğeniler
280
Excel Vers. ve Dili
OFFICE 2013-2016 PRO TR
#2
Kısaca D2 ve E2 hücresinde ne görmek istiyorsunuz? Örnekler misiniz?
 
Katılım
5 Şubat 2016
Mesajlar
159
Beğeniler
5
Excel Vers. ve Dili
2010 Türkçe
#3
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
21,034
Beğeniler
237
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#4
Buyurun.:cool:
Kod:
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"))
 
Katılım
5 Şubat 2016
Mesajlar
159
Beğeniler
5
Excel Vers. ve Dili
2010 Türkçe
#5
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?
 
Katılım
1 Mart 2005
Mesajlar
21,034
Beğeniler
237
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
#6
Buyurun.:cool:
Kod:
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"))
 
Üst