Kodlar Hata veriyor.

[ferhatgurbuz]

Function Yolluk(değer As Integer)
If değer = 10 Then Yolluk = 20000
If değer = 20 Then Yolluk = 20000
If değer = 30 Then Yolluk = 20000
If değer = 40 Then Yolluk = 20000
If değer = 50 Then Yolluk = 19000
If değer = 60 Then Yolluk = 19000
If değer = 70 Then Yolluk = 19000
If değer = 80 Then Yolluk = 19000
If değer = 90 Then Yolluk = 19000
If değer = 100 Then Yolluk = 19000
If değer = 110 Then Yolluk = 19000
If değer = 120 Then Yolluk = 19000
If değer = 130 Then Yolluk = 19000
If değer = 140 Then Yolluk = 19000
If değer = 150 Then Yolluk = 19000
If değer = 4650 Then Yolluk = 20000
If değer = 3800 Then Yolluk = 20000
If değer = 4800 Then Yolluk = 20000
If değer = 21100 Then Yolluk = 20000
If değer = 31100 Then Yolluk = 20000
If değer = 81300 Then Yolluk = 19000
If değer = 71500 Then Yolluk = 19000
If değer = 21600 Then Yolluk = 20000
If değer = 61600 Then Yolluk = 19000
If değer = 12200 Then Yolluk = 20000
If değer = 42300 Then Yolluk = 20000
If değer = 52200 Then Yolluk = 19000
If değer = 23600 Then Yolluk = 2250
If değer = 16400 Then Yolluk = 25000
If değer = 17600 Then Yolluk = 25000
End Function

bu formülü kullanıyorum
=EĞER(YADA(F11="";P11="");"";Yolluk(F11&P11) )



yukarıdaki kodları başka kodlardan esinlenerek uyarlamaya çalıştım ama bir kısmı oldu bir kısmı olmadı. Nedenini bilmiyorum.

 

[Orion1]

Function Yolluk(değer As Integer)

Yukarıdaki satırı aşağıdaki satırla değiştiriniz.

Function Yolluk(değer As Long)

 

[Orion1]

Yolluk(10)

Fonksiyonu sizin yazdığınız kodlara göre yukarıdakş gibi değer girerek kullanmanız gerekiyor.
Eğer hücreden referans vermek istiyorsunuz (değer as range) deyimini kullanınız.
Birde birleştirilmiş değeri string olarak algılıyor.Eğer her 2 hücrede sayısal bir değere tamsayı(F1&P11) kuulanınız.Yani

Yolluk(tamsayı(F11&P11))

olarak kullanınız bu ilk fonksiyon için geçerlidir.
Valla biraz karışık oldu ben bile zor anladım. Kusura bakmayın.

 

[ferhatgurbuz]

teşekkür ederim. kolay gelsin

 

[Orion1]

teşekkür ederim. kolay gelsin

Oldumu???

 

[ferhatgurbuz]

evet bende anlayamadım. Şunu belirtmek istiyoum



If değer = 23600 Then Yolluk = 2250

yukarıdaki kodun aslında 22,50-YTL olmasını istiyorum onu nasıl yaparım.

 

[Orion1]

evet bende anlayamadım. Şunu belirtmek istiyoum



If değer = 23600 Then Yolluk = 2250

yukarıdaki kodun aslında 22,50-YTL olmasını istiyorum onu nasıl yaparım.

Function Yolluk(değer As Long)

Öce yukarıdaki satırı aşağıdaki satırla değiştiriniz.

Function Yolluk(değer As single)

sorduğunuz soruda aşağıdaki gibi

If değer = 23600 Then Yolluk = 22.50 & "-YTL"

Ancak bu durum da sonuç string değer olacaktır.Tırnak içindekileri yazmayıp hücre biçimlendirmeden yaparsanız sonuç sayısal bir değer olur.

 

[Orion1]

Function Yolluk(değer As Long)

Bu satırı değiştirmeyin.

 

[ferhatgurbuz]

teşekkür ederim . hayırlı akşamlar

 

[Orion1]

teşekkür ederim . hayırlı akşamlar

Rica ederim.
İyi akşamlar.