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

Katılım
5 Şubat 2016
Mesajlar
274
Excel Vers. ve Dili
Office 365 Türkçe
Ü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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Kısaca D2 ve E2 hücresinde ne görmek istiyorsunuz? Örnekler misiniz?
 
Katılım
5 Şubat 2016
Mesajlar
274
Excel Vers. ve Dili
Office 365 Türkçe
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
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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
274
Excel Vers. ve Dili
Office 365 Türkçe
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
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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
274
Excel Vers. ve Dili
Office 365 Türkçe
Saygılarımı iletiyorum, ellerinize sağlık.
 
Katılım
5 Şubat 2016
Mesajlar
274
Excel Vers. ve Dili
Office 365 Türkçe
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
274
Excel Vers. ve Dili
Office 365 Türkçe
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
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Şö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
274
Excel Vers. ve Dili
Office 365 Türkçe
Evren hocam mantık bu ama kod içinde bulunduğumuz ayı baz alıyor, ocak ayını baz alabilir mi ?
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
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
274
Excel Vers. ve Dili
Office 365 Türkçe
Evren ve Korhan hocam yardımlarınız için çok teşekkür ederim ellerinize sağlık, saygılar.
 
Üst