Ekli tabolda, "F40" hücre değeri 7(yedi) den küçük ise "Personel disiplin cezası almamış ise 7 ve üzeri puan vermelisiniz" mesajını verdirmek istiyorum.

Örneğiniz ektedir. İlgili ayara f40 hücresi seçili iken veri>Veri doğrulama menüsünden ulaşabilirsiniz.

Sayın naqi34;
Paylaşımınız için teşekkür ederim ancak "F40" hücresi formüllü olması gerekiyor. Formüllü olunca da Veri Doğrulamayı kullanamıyoruz.

Merhaba, Sayın ozkovlu29. Aşağıdaki kodları dosyanızdaki sayfa kod kısmına kopyalayın. Umarım istediğiniz olacaktır. İyi çalışmalar...


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("H25:I27")) Is Nothing Then Exit Sub
If [F40] < 7 Then
MsgBox "Personel disiplin cezası almamış ise 7 ve üzeri puan vermelisiniz!", vbInformation, "Yuvarlamacı"
End If
End Sub

Sayın hturkavci03;
Teşekkürler