Girilen tarih sayfada yoksa uyarı verme

[Emir Hüseyin Çoban]

Merhaba Arkadaşlar,

Sayda2 de B1 hücresine girdiğim tarih,
Sayda1 de A sütununda yoksa

"Girdiğiniz tarihde not yok." diye uyarı mesajı verdirebilirmiyiz.

Veri doğrulama ile işlemi yapmaya çalıştım ancak diğer sayfalardan veri aldıramadım.

Yardım ve fikirlerinizi bekliyorum.

 

[uzmanamele]

merhaba

koşullu biçimlendirme formülü olarak yazınız.

=EĞERSAY(TARİH;$B1)<1

 

[Emir Hüseyin Çoban]

ilginiz için teşekkür ederim sy uzmanamele,
Ancak Koşullu biçimlendirme ile uyarı verdiremeyiz.

Hücreleri sarıya boyamamın sebebi, veri girilen hücreleri göstermek içindi.

 

[Emir Hüseyin Çoban]

Bu işlemi B1 hücresinde değişiklik yaptığımda,
makro ile msgbox uyarısı verecek şekilde yapamazmıyız.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu Sayfa2 'nin kod bölümüne uygulayıp denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$1" Then Exit Sub
    If Target <> "" Then
        If WorksheetFunction.CountIf(Sheets("Sayfa1").Range("A:A"), Target) = 0 Then
            MsgBox "Girdiğiniz tarihte not yok !", vbCritical
            Target = Empty
            Target.Select
            Exit Sub
        End If
    End If
End Sub

 

[usubaykan]

Merhaba;

Aşağıdaki kodu tarih girdiğiniz sayfanızın kod bölümüne uygulayınız.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Say Double
If Not Intersect(Target, [B1]) Is Nothing Then
Say = WorksheetFunction.CountIf(Sheets("Sayfa1").Range("A:A"), Target)
If Say = 0 Then MsgBox "Girdiğiniz tarihte not yok!", vbCritical, "Sn. " & Application.UserName
End If
End Sub

 

[Emir Hüseyin Çoban]

Teşekkürler Sy Korhan Ayhan,
Çalışıyor, ancak uyarıyı verdikten sonra B1 hücresindeki tarihi siliyor.
Uyarı verdikten sonra B1 hücresindeki veriyi silmesini engelleye bilirmiyiz.

 

[Korhan Ayhan]

Selamlar,

Kod içinde geçen Target = Empty ifadesini silerseniz istediğiniz sonuca ulaşırsınız.

 

[Emir Hüseyin Çoban]

Çok teşekkür ederim vakit ayırıp ilgilendiğiniz için Sy Usubaykan ve Sy Korhan Ayhan,
Verdiğiniz kodlar sorunsuz olarak çalışıyor.

 

[usubaykan]

Çok teşekkür ederim vakit ayırıp ilgilendiğiniz için Sy Usubaykan ve Sy Korhan Ayhan,
Verdiğiniz kodlar sorunsuz olarak çalışıyor.

Rica ederim kolay gelsin