Sayfa Taşınınca kodları taşıyabilirmiyiz.

[ferhatgurbuz]

arkadaşlar benim sormak istediğim konu şu. Bir dosya va ve içinde 10 yakın kitap var. Bir tane ödeme Emri olan sayfanın ben yedeğini almak istiyorum. Ama yedeğini alırken tüm formülller değer olarak aktırılıyor sadece Parcevir formülü değer olarak aktırılmıyor. Aşağıdaki kodu Ödeme Emri sayfası ile ilişkilendirsek yani ödeme emri sayfasını nereye taşırsam taşıyayım paracevir formülü bozulmasın. Böyle birşey mümkünmüdür.


Public Function ParaCevir(Para)
Dim ParaStr As String
Dim YTL As String, Kurus As String

If Not IsNumeric(Para) Then GoTo SayiDegil

ParaStr = Format(Abs(Para), "0.00")

YTL = Left(ParaStr, Len(ParaStr) - 3)
Kurus = Right(ParaStr, 2)

ParaCevir = IIf(Para < 0, "Eksi ", "") & Cevir(YTL) & " YTL ve " & Cevir(Kurus) & " Yenikuruş"

Exit Function

SayiDegil:
ParaCevir = "GİRİLEN DEĞER SAYI DEĞİL!"
End Function

Private Function Cevir(SayiStr As String) As String
Dim Rakam(15)
Dim c(3), Sonuc, e

Birler = Array("", "bir", "iki", "üç", "dört", "beş", "altı", "yedi", "sekiz", "dokuz")
Onlar = Array("", "on", "yirmi", "otuz", "kırk", "elli", "altmış", "yetmiş", "seksen", "doksan")
Binler = Array("trilyon", "milyar", "milyon", "bin", "")

SayiStr = String(15 - Len(SayiStr), "0") + SayiStr

For i = 1 To 15
Rakam(i) = Val(Mid$(SayiStr, i, 1))
Next i

Sonuc = ""
For i = 0 To 4
c(1) = Rakam(i * 3 + 1)
c(2) = Rakam(i * 3 + 2)
c(3) = Rakam(i * 3 + 3)
If c(1) = 0 Then
e = ""
ElseIf c(1) = 1 Then
e = "yüz"
Else
e = Birler(c(1)) + "yüz"
End If
e = e + Onlar(c(2)) + Birler(c(3))
If e <> "" Then e = e + Binler(i)
If (i = 3) And (e = "birbin") Then e = "bin"
Sonuc = Sonuc + e
Next i

If Sonuc = "" Then Sonuc = "00"

Cevir = UCase(Mid(Sonuc, 1, 1)) + Mid(Sonuc, 2, Len(Sonuc) - 1)
End Function

 

[exam77]

arkadaşlar benim sormak istediğim konu şu. Bir dosya va ve içinde 10 yakın kitap var. Bir tane ödeme Emri olan sayfanın ben yedeğini almak istiyorum. Ama yedeğini alırken tüm formülller değer olarak aktırılıyor sadece Parcevir formülü değer olarak aktırılmıyor. Aşağıdaki kodu Ödeme Emri sayfası ile ilişkilendirsek yani ödeme emri sayfasını nereye taşırsam taşıyayım paracevir formülü bozulmasın. Böyle birşey mümkünmüdür.

Evet sayın ferhatgurbuz bu mümkün. Macronuzu modül içerisine değilde sayfa içerisine yazarsanız isteğiniz mümkün olur. Kolay gelsin.