Fonksiyon ile Veri Doğrulama Hakkında

[k.guclu]

Veri Doğrulaması ile çalıştığım bir fonksiyon var. Formulum 1 değeri hariç hepsi için çalışıyor. bu konuda yardımcı olabilirmisiniz. Acil olarak.

Saygılarımla

Function boylerhesabi(boyler, tip, deger As Variant)
 
Select Case tip
 
Case "1"
With boyler.Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = False
        .ShowError = False
        End With
boyler = deger*5
 
Case "2"
        With boyler.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="300;400;500"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = False
        .ShowError = False
        End With
 
Case "3"
        With boyler.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="200;300;500"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = False
        .ShowError = False
        End With
 
Case "4"
        With boyler.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="160;200;300;500;750;1000"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = False
        .ShowError = False
        End With
End Select
End Function

 

[uzmanamele]

merhaba
örnek dosya olmadığı için nasıl bişey olduğunu anlayamadım.
aşağıdaki komut satırı diğer durumlara benzemiyor. bu satırı kontrol edermisiniz.

.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween

 

[k.guclu]

arkadaşım aşağıda yaptığım çalışmayı gönderiyorum. formulun devamı olacak ama ş anki sorun yüzünden durdum.
senin gönderdiğin değer veri doğrulamayı yalnız okunur yapıyor.
onda hata olduğunu düşünmüyorum.
ilgiden dolayı teşekkür ederim.