Veri doğrulama ile rakam giriş kısıtlaması

[sirkülasyon]

Sayın ustalarım
F5 hücresi "Müdür", "müdür başyardımcısı", "müdür yardımcısı" ise H5 hücresine en az 2 en fazla 6
F5 hücresi "Genel Bilgi Dersleri Öğretmeni", "meslek dersleri öğretmeni" ise H5 hücresine en fazla 15
F5 hücresi "Atölye Öğretmeni", "laboratuvar öğretmeni" ise H5 hücresine en fazla 24
rakamı girilmesi için H5 hücresine veri doğrulama ile kısıtlama nasıl yapabilirim?

 

[YUSUF44]

Sadece veri doğrulamayla nasıl yapılır bilemedim ama makro destekli veri doğrulamayla aşağıdaki kodlarla yapabilirsiniz:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [H5]) Is Nothing Then Exit Sub
If Target.Offset(0, -2) = "" Then Exit Sub
If Selection.Count > 1 Then Exit Sub
If Target.Offset(0, -2) = "Müdür" Or Target.Offset(0, -2) = "Müdür Başyardımcısı" Or Target.Offset(0, -2) = "Müdür Yardımcısı" Then
    With Target.Validation
        .Delete
        .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="2", Formula2:="6"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
ElseIf Target.Offset(0, -2) = "Genel Bilgi Dersleri Öğretmeni" Or Target.Offset(0, -2) = "Meslek Dersleri Öğretmeni" Then
    With Target.Validation
        .Delete
        .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="0", Formula2:="15"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
ElseIf Target.Offset(0, -2) = "Atölye Öğretmeni" Or Target.Offset(0, -2) = "Laboratuvar Öğretmeni" Then
    With Target.Validation
        .Delete
        .Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
        Operator:=xlBetween, Formula1:="0", Formula2:="24"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
Else
    MsgBox "Lütfen önce doğru unvan seçiniz!", vbExclamation
    Target.Offset(0, -2).Select
End If
End Sub

 

[Ömer]

Merhaba,

Alternatif.
H5 hücresinde veri doğrulama/özel;

=EĞER(YADA(F5="Müdür";F5="müdür başyardımcısı";F5="müdür yardımcısı");VE(H5>=2;H5<=6)
;EĞER(YADA(F5="Genel Bilgi Dersleri Öğretmeni";F5="meslek dersleri öğretmeni");H5<=15
;EĞER(YADA(F5="Atölye Öğretmeni";F5="laboratuvar öğretmeni");H5<=24)))

 

[sirkülasyon]

Yusuf Abime ve Ömer Abime Teşekkür eder saygılarımı sunarım. Var Olasınız