Fonksiyon kodu hatası

[Ridan]

Aşağıdaki kodu kullandığımda.. örneğin diğer sayfalarda işlem yaparken, kodu kullandığım sayfaya dönünce ya DEĞER hatası veriyor ya da 0 olarak gözüküyor. Hücreye girip enterladığımda düzeliyor. Bu hatanın önüne geçmek için ne yapılması lazım.

Function yevmiye(Derece, Ek_Gösterge)
If Derece = "1,4" Or Derece = "1/4" And Ek_Gösterge = "3000" Then yevmiye = Sheets("sabit").Range("O10")
If Derece = "1,3" Or Derece = "1/3" And Ek_Gösterge = "3000" Then yevmiye = Sheets("sabit").Range("O10")
If Derece = "1,2" Or Derece = "1/2" And Ek_Gösterge = "3000" Then yevmiye = Sheets("sabit").Range("O10")
If Derece = "1,1" Or Derece = "1/1" And Ek_Gösterge = "3000" Then yevmiye = Sheets("sabit").Range("O10")

........
End Function

 

[tamer42]

Aşağıdaki kodu kullandığımda.. örneğin diğer sayfalarda işlem yaparken, kodu kullandığım sayfaya dönünce ya DEĞER hatası veriyor ya da 0 olarak gözüküyor. Hücreye girip enterladığımda düzeliyor. Bu hatanın önüne geçmek için ne yapılması lazım.

Function yevmiye(Derece, Ek_Gösterge)
If Derece = "1,4" Or Derece = "1/4" And Ek_Gösterge = "3000" Then yevmiye = Sheets("sabit").Range("O10")
If Derece = "1,3" Or Derece = "1/3" And Ek_Gösterge = "3000" Then yevmiye = Sheets("sabit").Range("O10")
If Derece = "1,2" Or Derece = "1/2" And Ek_Gösterge = "3000" Then yevmiye = Sheets("sabit").Range("O10")
If Derece = "1,1" Or Derece = "1/1" And Ek_Gösterge = "3000" Then yevmiye = Sheets("sabit").Range("O10")

........
End Function

aşağıdaki şekilde dener misiniz;

If Ek_Gösterge = 3000 Then

If Derece = 1.4 Or Derece = "1/4" Then yevmiye = Sheets("sabit").Range("O10")
If Derece = 1.3 Or Derece = "1/3" Then yevmiye = Sheets("sabit").Range("O10")
If Derece = 1.2 Or Derece = "1/2" Then yevmiye = Sheets("sabit").Range("O10")
If Derece = 1.1 Or Derece = "1/1" Then yevmiye = Sheets("sabit").Range("O10")

End If