Excel’de son tarihe kadar kaç gün kaldığını nasıl hesaplayabilirim?
Günlük iş yaşamında ve proje yönetiminde, bir son tarihe kadar kaç gün kaldığını takip etmek kritik öneme sahiptir. Örneğin, görevleriniz, ödevleriniz, sözleşme süreleriniz veya proje kilometre taşlarınız için kalan günleri izlemenizi gerektiren bir son tarih listeniz olabilir. Kalan günleri verimli bir şekilde hesaplamak, önemli tarihlerin kaçırılmasını önler ve daha iyi planlama ile zaman yönetimi sağlar. Bu makale, Excel’de son tarihe kadar kalan günleri hesaplamak için pratik yöntemleri adım adım açıklar ve farklı ihtiyaçlara yönelik çözümler sunar.
- Formüllerle son tarihe kadar kalan günleri hesaplayın
- VBA Kodu – Kalan günleri otomatik hesaplayın ve isteğe bağlı olarak geciken son tarihleri vurgulayın veya bildirim gönderin
Formüllerle son tarihe kadar kalan günleri hesaplayın
Her bir son tarihe kadar kalan gün sayısını hızlıca belirlemek istiyorsanız, Excel size basit formül çözümleri sunar. Bu çözümler, statik listeler için veya mevcut tarihe göre düzenli olarak yeniden hesaplama gerektiren durumlar için idealdir.
1. Sonucun görüntülenmesini istediğiniz boş bir hücreye (örneğin, A sütunundaki son tarihin hemen sağındaki B sütununa) aşağıdaki formülü girin:
=A2-TODAY()Bu formül, A2 hücresindeki son tarihten bugünün tarihini ()TODAY() tarafından döndürülen) çıkarır ve kalan gün sayısını verir.
Formülü girdikten sonra, ek satırlardaki son tarihler için bu hesaplamayı uygulamak üzere doldurma tutamacını aşağı doğru sürükleyin, aşağıdaki gibi:
2. Hesaplama sonuçlarınızın sayı olarak görüntülenmesini sağlamak için sonuç hücrelerini Genel olarak biçimlendirin. Giriş sekmesine tıklayın > Sayı Biçimi açılır menüsünü bulun > Genel seçeneğini işaretleyin, aşağıdaki gibi:
Notlar ve Pratik İpuçları:
- Son tarih zaten geçmişse (yani bugünden daha önceyse), sonuç negatif bir sayı olur ve gecikilen gün sayısını gösterir.
- Negatif değerlerin görüntülenmesini önlemek istiyorsanız (örneğin, geciken görevler için 0 göstermek gibi), şu alternatif formülü kullanın:
=MAX(0,A2-TODAY())Bu formül, hesaplanan kalan gün sayısını 0 ile karşılaştırır ve daha büyük olanı görüntüler; böylece negatif değerler etkin bir şekilde 0’a dönüştürülür.
Bu yaklaşım, özellikle yalnızca kalan (negatif olmayan) günlerin odak noktası olduğu raporlamalarda büyük fayda sağlar; örneğin açık görevlerde veya yaklaşan sözleşme son tarihlerinde.
- Son tarihlerinizin her zaman geçerli Excel tarih değerleri olduğundan emin olun. Yanlış biçimlendirilmiş ya da metin formatında olan tarihler, hesaplama hatalarına ve beklenmedik sonuçlara neden olabilir.
- TODAY() kullanan formüller, çalışma sayfanızı her açtığınızda veya yeniden hesapladığınızda otomatik olarak güncellenir.
TODAY() - Hafta sonlarını ve resmî tatilleri hariç tutarak iş günleriyle çalışmayı tercih ediyorsanız, farklı bir senaryo için
NETWORKDAYSfonksiyonunu kullanmayı düşünün.
Son tarih listenizi düzenli olarak gözden geçirip kalan günleri yeniden hesaplamak, yaklaşan son tarihleri önceden tahmin etme ve buna göre zamanında harekete geçme yeteneğinizi önemli ölçüde artırır. Daha gelişmiş otomasyon veya görsel hatırlatıcılara ihtiyacınız varsa, aşağıdaki VBA çözümüne göz atın.
VBA Kodu – Kalan günleri otomatik hesaplayın ve isteğe bağlı olarak geciken son tarihleri vurgulayın veya bildirim gönderin
Geniş kapsamlı son tarih listeleriyle çalışan ya da süreci daha akıcı hale getirmek isteyen kullanıcılar için, kalan gün hesaplamasını VBA ile otomatikleştirmek manuel çabayı önemli ölçüde azaltabilir. Bu yöntem özellikle, Excel’in geciken son tarihleri otomatik olarak vurgulamasını veya size bir bildirim sunmasını istediğinizde büyük değer kazanır; böylece hiçbir önemli tarih asla gözden kaçmaz.
1. Bu yöntemi kullanmak için Geliştiricisekmesi görünür değilse etkinleştirin (Dosya > Seçenekler > Şerit Özelleştirme >)Geliştirici kutusunu işaretleyin). Ardından, Geliştirici sekmesindeki Visual Basic seçeneğine tıklayarak VBA Düzenleyicisini açın. VBA penceresinde Ekle > Modül seçeneğine tıklayıp aşağıdaki VBA kodunu girin:
Sub CalculateAndHighlightDaysLeft()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim deadlineCol As String
Dim resultCol As String
Dim daysLeft As Long
Dim cell As Range
On Error Resume Next
' Configure columns as needed below:
deadlineCol = "A" ' Column containing deadlines
resultCol = "B" ' Column to place days left calculation
Set ws = ActiveSheet
lastRow = ws.Cells(ws.Rows.Count, deadlineCol).End(xlUp).Row
For i = 2 To lastRow
If IsDate(ws.Cells(i, deadlineCol).Value) Then
daysLeft = ws.Cells(i, deadlineCol).Value - Date
ws.Cells(i, resultCol).Value = daysLeft
' Highlight overdue deadlines
If daysLeft < 0 Then
ws.Cells(i, deadlineCol).Interior.Color = RGB(255, 185, 185) ' Light red fill
' Optionally show popup message for overdue (uncomment next line if desired)
' MsgBox "Row " & i & " is overdue! Deadline: " & ws.Cells(i, deadlineCol).Text, vbExclamation, "KutoolsforExcel"
Else
ws.Cells(i, deadlineCol).Interior.Pattern = xlNone
End If
Else
ws.Cells(i, resultCol).Value = "Invalid date"
ws.Cells(i, deadlineCol).Interior.Color = RGB(255, 235, 156) ' Yellow fill for invalid data
End If
Next i
End Sub2. VBA Düzenleyicisini kapatın, çalışma sayfanıza dönün ve Alt+F8 tuşlarına basın. Görüntülenen iletişim kutusunda CalculateAndHighlightDaysLeft seçeneğini belirleyin ve Çalıştır düğmesine tıklayın. Kod, A sütunundaki her tarihi (2. satırdan itibaren) işleyecek ve kalan günleri B sütununa yazacaktır. Bugünden önceki geciken son tarihler otomatik olarak açık kırmızı renkle vurgulanacak; geçersiz tarih içeren hücreler ise sarıya boyanacak ve sonuç sütununda "Geçersiz tarih" olarak işaretlenecektir.
- Kodda son tarihinizin farklı bir sütunda olması durumunda deadlineCol ve resultCol değişkenlerini değiştirebilirsiniz.
En İyi Office Verimlilik Araçları
Excel becerilerinizi Kutools for Excel ile güçlendirin ve hiç olmadığı kadar verimli çalışmanın keyfini çıkarın.Kutools for Excel, üretkenliğinizi artırmak ve Zamanı Kaydet için 300'den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli arayüz getirir ve işlerinizi çok daha kolay hale getirir
- Word, Excel ve PowerPoint içinde sekmeli düzenleme ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük üretkenliğinizi %50 artırır ve size her gün yüzlerce fare tıklamasından tasarruf sağlar!
Tüm Kutools eklentileri — tek bir yükleyiciyle!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentileri ile birlikte Office Tab Pro’yu da içerir; bu da Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında verimliliği akıcı hale getirir
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat-performans— tek tek eklenti satın almaya göre tasarruf edin