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

Katılım
5 Şubat 2016
Mesajlar
163
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
 
Katılım
5 Şubat 2016
Mesajlar
163
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,363
Beğeniler
330
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
163
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?
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
21,363
Beğeniler
330
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"))
 
Katılım
5 Şubat 2016
Mesajlar
163
Beğeniler
5
Excel Vers. ve Dili
2010 Türkçe
#9
Evren hocam parti parti istiyoruz kusura bakmayın ama , yıl bazında yapma imkanımız var mı acaba ?
 
Katılım
5 Şubat 2016
Mesajlar
163
Beğeniler
5
Excel Vers. ve Dili
2010 Türkçe
#11
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.

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"))
Ş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

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

Ofis-2010-TR 32 Bit
#12
Şöylemi?
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) + 1, 1, 1) - 1 & " " & TimeValue("23:59:00"))
 
Katılım
5 Şubat 2016
Mesajlar
163
Beğeniler
5
Excel Vers. ve Dili
2010 Türkçe
#13
Evren hocam mantık bu ama kod içinde bulunduğumuz ayı baz alıyor, ocak ayını baz alabilir mi ?
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
24,556
Beğeniler
376
Excel Vers. ve Dili
OFFICE 2019 PRO TR
#14
Deneyiniz.

Kod:
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
 
Katılım
5 Şubat 2016
Mesajlar
163
Beğeniler
5
Excel Vers. ve Dili
2010 Türkçe
#15
Evren ve Korhan hocam yardımlarınız için çok teşekkür ederim ellerinize sağlık, saygılar.
 
Üst