Sözleşme tarihi üzerinden 1 hafta geçen firmalar için uyarı ver

[mücahitayan]

örnek dosyam ektedir.

Ilgi alakanız için teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Bu uyarıyı hangi durumda almak istiyorsunuz. Aşağıdaki seçeneklerden tercihinizi belirtirseniz ona göre kod yazılabilir.

Dosya açılışında otomatik olarak tüm firmalar kontrol edilebilir.
Bir butona basarak istediğiniz zaman bu kontrol sağlanabilir.
Firma isimleri üzerine çift tıkladığınızda bu kontrol sağlanabilir.

 

[mücahitayan]

Evet haklısınız özür dilerim açıklamayı unuttum

Dosya açılışında otomatik olarak tüm firmalar kontrol edilsin istiyorum


şimdiden çok teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu boş bir modüle uygulayıp denermisiniz.

Option Explicit
 
Sub AUTO_OPEN()
    Dim X As Long, WF As WorksheetFunction, MESAJ As String
    
    Set WF = WorksheetFunction
    
    Sheets("KAYIT").Select
    
    For X = 3 To Range("C65536").End(3).Row
        If UCase(Cells(X, "P")) = "VAR" Then
            If (WF.CountIf(Sheets("GÜNLÜK").Range("C:C"), Cells(X, "C")) + _
            WF.CountIf(Sheets("AYLIK").Range("C:C"), Cells(X, "C")) + _
            WF.CountIf(Sheets("YILLIK").Range("C:C"), Cells(X, "C"))) = 0 Then
                If (Date - Cells(X, "Q")) >= 7 Then
                    MESAJ = MESAJ & vbCrLf & Cells(X, "C") & " firmasıyla " & Cells(X, "Q") & " tarihinde sözleşme yapılmış olmasına rağmen " & (Date - Cells(X, "Q")) & " gündür hiçbir işlem yapılmamıştır."
                End If
            End If
        End If
    Next
 
    Set WF = Nothing
    
    If MESAJ <> Empty Then
        MsgBox MESAJ, vbExclamation, "Dikkat !"
    End If
End Sub

 

[mücahitayan]

çok teşekkür ederim. gayet güzel olmuş

fakat şöyle bir durum meydana geldi. KAYIT sayfasının "c" sütununda mesela "acıbadem hastanesi" ni günlük aylık yada yıllık sayfasına kaydettiğim zaman, yine kayıt sayfasında "acıbadem hastanesi"nin altındaki firmaları kontrol etmiyor.

bunu nasıl çözebiliriz.
şimdiden çooook teşekkür ederim. ellerinize sağlık.

 

[mücahitayan]

tamam çözdüm

Exit For

kısmını kaldırdım. oldu. çook teşekkür ederim. ellerine sağlık

 

[Korhan Ayhan]

Selamlar,

Doğru söylüyorsunuz. Gereksiz yere döngüden çıkmışım. Yukarıdaki mesajımdaki koud güncelledim. Lütfen son halini kullanınız.

 

[mücahitayan]

eğer başınızı ağırtmıyorsam ufak bi sorun daha çıktı :S

msgbox yetersiz kalıyor

mesela aynı şekilde 15 tane firma var ve tümünün uyarısını vermesi gerekiyor.

msbox'a sığmıyor.

teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Bu durumda UserForm-ListBox kullanmak daha sağlıklı olacaktır. Ekteki örnek dosyayı incelermisiniz.

 

[mücahitayan]

korhan bey çok teşekkür ederim. beni büyük bir dertten kurtardınız

çok saolun.