(13/12/2019, 16:21)berduş yazdı: öncelikle parayiyaziyacevir modülüne yeni bir fonksiyon ekleyin

Function Sayiyi_Metne_CevirKr(Sayi As Double)

Dim mtnTL, mtnKr, xSayi As String

Dim TlKr() As String

xSayi = CStr(Format(Sayi, "#,##0.00"))



If InStr(xSayi, ",") > 0 Then

    TlKr = Split(xSayi, ",")

    mtnTL = Sayiyi_Metne_Cevir(CLng(TlKr(0)))

    mtnKr = Sayiyi_Metne_Cevir(CLng(TlKr(1)))

    Sayiyi_Metne_CevirKr = mtnTL & " TL " & mtnKr & " Kuruş "

Else

    Sayiyi_Metne_CevirKr = Sayiyi_Metne_Cevir(Sayi)

End If

End Function

sonra da yaziylatutar metin kutusunun denetim kaynağını aşağıdaki ile değiştirin

=Sayiyi_Metne_CevirKr([SayiRakkamla])

dilerim işinize yarar