Hesaplama fonksiyonu yazma

[airborne]

s.a.

üstadlar hayırlı akşamlar.

Ekli dosyada A1 hücresinde tarih var B1 ve C1 hücrelerinde sayılar var. Bularla ilgili kullanıcı tanımlı fonksiyon yazmaya çalıştım ama olmadı.


A1 hücresine bakacak eğer boşsa fonksiyonun sonucu 0 çıkacak.
Eğer A1 boş değilse B1 ve C1 çarpıp 1000000 bölecek ve virgülden sonrası 2 basamak olarak yuvarlayacak
Eğer A1 ile B1 in sonucu 0,01 den küçük olursa sonuç 0,01 olacak.


Not: çözüm Formülle olmayacak. Kullanıcı tanımlı fonsiyon olursa çok makbule geçecek.

İlgilenenlerden allah razı olsun.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki fonksiyonu kullanabilirsiniz.

Function HESAPLA(Hücre_1 As Range, Hücre_2 As Range, Hücre_3 As Range)
    Application.Volatile True
    
    If Hücre_1 = "" Then
        HESAPLA = 0
        Exit Function
    End If
    
    HESAPLA = WorksheetFunction.Round((Hücre_2 * Hücre_3) / 1000000, 2)
    If HESAPLA < 0.01 Then HESAPLA = 0.01
End Function

Aşağıdaki şekilde hücreye uygulayabilirsiniz.

=HESAPLA(A1;B1;C1)

 

[airborne]

s.a.

Korhan Ayhan hocam teşekkür ederim.

Selametle.................