Soru ... "adetten fazla giremezsiniz" uyarısı versin

[nomercy99]

Merhabalar hocalarım,

F sütunundaki hücreye H sütunundaki rakamdan büyük bir sayı girildiğinde H sütunundaki rakamdan büyük bir sayı giremezsiniz uyarısı vermesini istiyorum.

Örneğin H2=10 olduğunda F2 ye 11 girilirse "10 adetten fazla giriş yapamazsınız" uyarısı vermesi ve kabul etmemesini istiyorum.Veri doğrulama ile yapıyorum ama h sutunundaki adeti vermiyor

Yardımcı olabilecek hocalarıma şimdiden teşekkürler

 

[ÖmerFaruk]

F2 hücresine aşağıdaki Veri doğrulamayı uygulayabilirsiniz.

 

[nomercy99]

F2 hücresine aşağıdaki Veri doğrulamayı uygulayabilirsiniz.

Ekli dosyayı görüntüle 238839 Ekli dosyayı görüntüle 238840

Merhabalar,cevap için teşekkür ederim ama H sütununu gizli tutuyorum.Adetlerin tümümün gözükmesini istemiyorum.Sadece o değerden büyük rakam girdiğinde adeti görsün istiyorum.

Yani bir nevi elimizdeki stok maliyetini müşteri görsün istemiyorum.Ondan biraz engel koymak istedim.

 

[ÖmerFaruk]

İlk sorduğunuzla son açıklamanızı bir kez daha okuyup neyi sorduğunuza karar verebilir misiniz?
Zira ikisi farklı konu. Ben yanlış anlamıyorsam.

 

[nomercy99]

İlk sorduğunuzla son açıklamanızı bir kez daha okuyup neyi sorduğunuza karar verebilir misiniz?
Zira ikisi farklı konu. Ben yanlış anlamıyorsam.

Merhabalar,

Sanıyorum anlaşılmayan şey şu.Ben uyarı kısmında H sütunun değerini vermesini istiyorum.

Yani H sütunun değeri 10 ise "10 adetten fazla giriş yapamazsınız" demeli.20 ise "20 adetten fazla giriş yapamazsınız" demeli.Veri doğrulamanın hata kısmında H sütunundaki değeri getiremedim


Şimdiden teşekkürler

 

[ÖmerFaruk]

Bu durumda KOD kullanmak gerekir.
Aşağıdaki kodu sayfanın kod penceresine aynen yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [F2:F1000]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Not IsNumeric(Target) Then
        MsgBox "Sayısal bir değer girilmelidir", vbInformation
    ElseIf Target > Range("H" & Target.Row) Then
        MsgBox Range("H" & Target.Row) & " adetten fazla giriş yapamazsınız", vbInformation
    Else
        Application.EnableEvents = True: Exit Sub
    End If
    Target = "": Target.Activate:  Application.EnableEvents = True
End Sub