(05/10/2018, 23:25)ozanakkaya yazdı: Merhaba, modüldeki ilgili fonksiyonu aşağıdaki ile değiştiriniz.

Function TL(Para) As String



If IsNull(Para) Or Para = "" Then

Exit Function

End If



Dim tum$, tam$, kurus$, TL_birim$, krs_birim$



tum = RoundA(Replace(Para, "-", ""), 2)

tam = Fix(tum)

kurus = RoundA(tum - tam, 2) * 100



TL_birim = IIf(tam = 0, "", " LİRA ")

krs_birim = IIf(kurus = 0, "", " KURUŞ")



TL = Ceviri(tam) & TL_birim & Ceviri(kurus) & krs_birim



End Function

 

Diğer yazı ile yazılması gereken kutucukların referans Metin kutularının adlarını  mtn_B ve mtn_C olarak değiştirip ilgili alanların denetim kaynaklarına yazdım o alanlarda otomatik olarak yazıya çevrildi.

Konu halloldu. Teşekkür ederim.