Yapılan hesaplamayı fonksiyona dönüştürme

[S@aid]

Arkadaşlar aşağıda yazdığım kodu fonksiyona çevirmek istiyorum nasıl yapabilirim. Yardımcı olabilir misiniz?

If krd <> 0 Then

	ort = nort / krdort
Else

	ort = 0

End If

If ort > = 2 Then

	drm = "Başarılı"

If ort < 2 Or "0" Then

	drm = "Başarısız"

If ort = Empty Then

	drm = "Kriter Yok"

--------------------------------
If gtplm <> 0 Then

	gort = krdxakrd / gtplm
	
Else

	gort = 0
	
End If

 

[Necdet]

Merhaba,

krd değişkeninin A1 hücresi,
nort değişkeni B1,
krdort değişkeni C1 olduğunu varsayalım ve
sonucu da D1 hücresinde hesaplayacağımızı düşünelim

D1 :

=EĞER(A1<>0;B1/C1;0)

Sanırım diğerlerini de bu örneğe göre yapabilirsiniz.

 

[S@aid]

Necdet bey özürdilerim ifade şeklim yanlış oldu anladığım kadarıyla. Function kalıbı içerisinde olabilir mi düşüncesiyle sormuştum.

 

[Korhan Ayhan]

Selamlar,

Örnek dosya ekleyerek fonksiyonun nasıl çalışacağını tarif ederseniz yardım almanız kolaylaşacaktır.