Soru İki Şartlı Makro

[TURKOLOG]

Herkese Merhaba

Yetki sayfası A2 hücresinde 123456 yazıyor
Benim yapamadığım ve istediğim
1. KOŞUL
Takip sayfası A1:A yani A sütununda eğer Yetki sayfası A2 hücresinde yazan değer varsa
2. KOŞUL
Takip sayfası B1:B Yani A sütununda yazan değerin B sütununda karşınında tarih var

2 koşulun da sağlanması şartı ile
Misal
Takip sayfasında
A. *********** B.
123456 31.12.2020 yazıyorsa

Yetki sayfası A2 de 123456 yazıyor , tarihte bugüne eşit veya bu günden büyük olduğu için excel açılsın.

Eğer yetki A2 de olan Takıp sayfası A sütununda yoksa kullanıcı kayıtlı değil diyip exceli kaydedip kapatsın

Eğer takip sayfası A sütununda olan kullanıcının B sütununda karşısında bulunan tarih bu günden küçük ise yani tarih geçmiş ise süreniz bitti diyip exceli kaydedip kapatmasını istiyorum.

Yardım edebilecek olan var mı.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Test()
    Dim Bul As Range
    
    Set Bul = Sheets("Takip").Range("A:A").Find(Sheets("Yetki").Range("A2"), , , xlWhole)
    If Not Bul Is Nothing Then
        If Bul.Offset(, 1) < Date Then
            MsgBox "Süreniz bitti!", vbCritical
            GoTo Son
        End If
    Else
        MsgBox "Kullanıcı kayıtlı değil!", vbCritical
        GoTo Son
    End If
    Exit Sub

Son:
    Set Bul = Nothing
    ThisWorkbook.Save
    ThisWorkbook.Close
End Sub

 

[TURKOLOG]

Sayın @Korhan Ayhan Hocam çok teşekkür ederim. Kod çalıştı elinize emeğinize sağlık.