EĞER Formülünü Tüm Sütundan Sorgulama

[bysabo]

Merhaba,

İş takibi yaptığım bir excel dosyam var ve burada yazdığım tarihe kalan gün sayısını bana bildirip günü geçen işler hakkında bilgi veriyor.

Bunu şu şekildeki bir formül ile sağlıyorum.

=EĞER(GÜNSAY(E17;BUGÜN())<0;"Günü Geçti";GÜNSAY(E17;BUGÜN()) & " gün kaldı"))

Ancak birçok sayfa bulunduğundan her sayfayı tek tek kontrol etmek yerine ilk sayfadaki bir hücreye bir formül yazarak tüm sayfalarda süresi geçen bir iş olup olmadığını kontrol etmek istiyorum.

Bunun için yukarıdaki kodu sadece bir hücreye değil tüm satıra uygulamak istedim ancak ne yazık ki başaramadım. Yani yukarıdaki formülde E17'deki tarihi kontrol edip günü geçtiyse bilgi vermesi yerine tüm E sütununu kontrol edip günü geçen iş varsa bilgi vermesini sağlamaya çalıştım.

=EĞER(GÜNSAY(E:E;BUGÜN())<=0;"Günü Geçmiş İş Var";"Süresi Geçmiş İş Yok") şeklinde yazdım ancak ne yazık ki olmadı.

Bunun bir yolu var mıdır ?

 

[Korhan Ayhan]

Deneyiniz.

DİZİ formül olarak uygulamanız gerekebilir..

=EĞER(TOPLA.ÇARPIM(--((GÜNSAY(E:E;BUGÜN())<=0)*(E:E<>"")))>0;"Günü Geçmiş İş Var";"Süresi Geçmiş İş Yok")

 

[bysabo]

Maalesef işe yaramadı

 

[bysabo]

Özetle şunu yaptırmak istiyorum, E sütununda herhangi bir hücredeki tarih bugünden çıkarıldığında 0 dan küçük bir değer varsa "var" yazsın yoksa "yok" yazsın

 

[okan32]

Aşağıdaki kodu kullanabilirsin

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim cell As Range
    Dim result As String
    result = "yok"
    Set rng = Range("E:E")
    For Each cell In rng
        If cell.Value < 0 Then
            result = "var"
            Exit For
        End If
    Next cell
    
End Sub

 

[okan32]

Şimdi de sorunu değiştirmişsiniz

Sub CheckDate()
    Dim rng As Range
    Dim cell As Range
    Dim result As String
    Dim today As Date
    result = "yok"
    today = Date
    Set rng = Range("E:E")
    For Each cell In rng
        If cell.Value < today Then
            result = "var"
            Exit For
        End If
    Next cell
    MsgBox result
End Sub

 

[bysabo]

Yardımınız için teşekkür ederim.

 

[Korhan Ayhan]

Ben ekteki gibi sonuç aldım..

Harici Link (Silinebilir) ; https://dosya.co/hb1pvl1klqag/Book1.xlsx.html

Spoyler: Formül Uygulama

 

[bysabo]

Kurumdan linke erişemiyorum, evdeyken kontrol edeceğim. Ben farklı bir şekilde çözdüm.

E sütunundaki tarihe göre F sütununda kaç gün kaldığı yazıyor. 0'dan az değer olanlar için "günü geçti" yazdırıp tüm sayfalardaki F sütununda günü geçti kelimesi olup olmadığını kontrol eden bir EĞER ve EĞERSAY formülü uyguladım.

=EĞER(EĞERSAY(F:F;"Günü Geçti")=1;"İşlemde Günü Geçmiş İş Var";EĞER(EĞERSAY(F:F;"0 gün kaldı")=1;"İşlemde Günü Gelen İş Var";"Süresi Geçen İş Yok"))
şeklinde.

Bu arada altın üyelik almak istedim ancak ne yazık ki kurum bağlantısı ödeme sayfasında takılı kalıyor.