Skip to main content

AccessTr.neT


Hücre Değerine Göre Mesaj Ver

Hücre Değerine Göre Mesaj Ver

Çözüldü #1
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.
.zip kadrolu işçideğerlendirme fişi_2018.zip (Dosya Boyutu: 567,4 KB | İndirme Sayısı: 8)
Cevapla
#2
Veri Sekmesinden Veri Doğrulama ya girdiğiniz takdirde aşağıdaki ayarları yapmayı deneyebilirsiniz.
Veri/Veri Doğrulama/

Ayarlar
İzin verilen : Tüm Sayı
Veri : Büyük
En az :7

Hata Uyarısı 
Stil: Durma
Başlık : Dikkat
Hata İletisi: Personel disiplin cezası almamış ise 7 ve üzeri puan vermelisiniz.

[Resim: do.php?imgf=15167306689771.jpg]
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla
#3
Sayın iscinar;
F40 hücresi formüllü olduğundan hata iletisini göstermiyor.
Cevapla
#4
Alttaki kod kulklanılabilir.H25:i27 aralığında işlem yapılınca kod çalışır.

[Resim: do.php?img=10813]

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim veri As String, veri2 As Byte
    Const alan As String = "F40"

    If Not Intersect(Target, [H25:i27]) Is Nothing Then
        With Range(alan).Validation
            Select Case Range(alan).Value
            Case Is < 7
                veri = "Personel disiplin cezasý almamýþ"
                veri2 = xlLess '7 den kücük ise
            Case Is > 7
                veri = "7 ve üzeri puan vermelisiniz"
                veri2 = xlGreater '7 den büyük ise
            Case Is = 7
                veri = ""
                veri2 = xlEqual 'esittir 7 ise
            End Select
            .Delete
            .Add Type:=xlValidateWholeNumber, _
             AlertStyle:=xlValidAlertStop, Operator:=veri2, Formula1:="7"
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = "Bilgi"
            .ErrorTitle = "Bilgi"
            .InputMessage = veri
            .ErrorMessage = veri
            .ShowInput = True
            .ShowError = True
        End With
    End If
End Sub
.rar kadrolu işçideğerlendirme fişi_2018.rar (Dosya Boyutu: 569,49 KB | İndirme Sayısı: 2)
Cevapla
#5
Buda mesaj verdirir.

[Resim: do.php?img=10814]

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim veri As String, veri2 As Byte
    Dim deger As Long
    Const alan As String = "F40"

    If Not Intersect(Target, [H25:i27]) Is Nothing Then
        With Range(alan).Validation
            Select Case Range(alan).Value
            Case Is < 7
                deger = Range(alan).Value
                veri = "Personel disiplin cezasý almamýþ"
                veri2 = xlLess '7 den kücük ise
            Case Is > 7
                deger = Range(alan).Value
            Case Is = 7
                veri = ""
                veri2 = xlEqual 'esittir 7 ise
                deger = Range(alan).Value
            End Select
            .Delete
            If deger > 7 Then
                MsgBox "7 den büyük olamaz...", vbCritical, "Hata"
                Target.Value = ""
                Exit Sub
            End If
            .Add Type:=xlValidateWholeNumber, _
            AlertStyle:=xlValidAlertStop, Operator:=veri2, Formula1:="7"
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = "Bilgi"
            .ErrorTitle = "Bilgi"
            .InputMessage = veri
            .ErrorMessage = veri
            .ShowInput = True
            .ShowError = True
        End With
    End If
End Sub
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da