TL ve YTL

[elif35]

cok acill tl yi ytl ye ceviren ama yazıyla degil direk rakamla ceviren makro kodu bulmam lazım yardımcı olabilecek olan varmı?

 

[xxrt]

http://www.tcmb.gov.tr/ytlkampanya/ytlhesaplama.php Bu İşinize yararmı?

 

[elif35]

cok sagol xxrt fakat bana excel de uygulayabilecegim makro kodu lazım o yuzden bu cok işime yaramıycak galiba :agla:

 

[Levent Menteşoğlu]

Þöyle bir formül yazmıştım. Bir inceleyin her zaman doğru çalışıp çalışmadığını denemedim. Belki işinize yarar. (A1 hücresindeki değere göre çalışır)

selamlar

=EÐER(UZUNLUK(A1)<7;BİRLEÞTİR(YUVARLA(A1/10000;0);" KRÞ");EÐER(TAMSAYI(A1/1000000)=(A1/1000000);BİRLEÞTİR(A1/1000000;" YTL");BİRLEÞTİR(TAMSAYI(A1/1000000);" YTL";" ";YUVARLA((A1/1000000-TAMSAYI(A1/1000000));2)*100;" KRÞ")))

 

[elif35]

cok sagollll leventm oldu, calışıyo
bişey daha sorucam bu tl yi ytl ye cevirme excel de VBA yazarak nasıl oluyo bilen varmı?

 

[xxrt]

1.Nolu Dosya Ã?rneğinini Kodları:

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub TextBox1_Change()
On Error Resume Next
    TextBox1 = Format(TextBox1.Value, "#,##0")
    TextBox2.Value = Format(TextBox1.Value / 1000000, "#,##0.00")
    End Sub

Not.CommandButtonu unutmuşum siz koyarsınız..


2.Nolu Dosya Ã?rneğinini Kodları:

Aşağıdaki Bu Kod ise Hem TL'den YTL'ye Hesaplanıyor,Hemde YTL'den TL'yi Hesaplıyor..

Private Sub TextBox1_Change()
a = TextBox1.Text
b = a / 1000000
TextBox2.Text = b
End Sub

Private Sub Textbox2_Change()
b = TextBox2.Text
a = b * 1000000
TextBox1.Text = a
End Sub

Edit xxrt:İlave Kod Yazılarak Düzenlendi.

 

[elif35]

cooook tesekkur ederim supersin