tl yazılmış v.iade yi tl ye çevirme

[subutayı]

merhaba arkadaşlar,
TL olarak yazılmış bir vergi iadesini YTL ye nasıl çeviririz. yani 6 sıfırını atıp YTL ve Krş cinsinden nasıl yazdırırım.
teşekürler

 

[zafer]

Merhaba

Çevireceğiniz alanı işaretleyip kodları çalıştırınız

Sub Milyon_YTL_Cevir()
On Error Resume Next
For Each Hucre In Selection
Hucre.Value = Format(Hucre.Value / 1000000, "###,###.0")
Next
End Sub

 

[zafer]

Merhaba

Son rakamlarını yuvarlamak isterseniz
Sub Milyon_YTL_Cevir4()
On Error Resume Next
For Each Hucre In Selection
Hucre.Value = Round((Hucre.Value / 1000000), 2)
Next
End Sub

 

[subutayı]

üstad,
ilgine teşekür ederim. işimi yine excel.web.tr den bir arkadaşın yardımi ile hallettim. sizin kod hata verdi. yine de sağolun

 

[zafer]

Merhaba

Nerede hata verdi .öğrenebilirmiyim.

 

[KuTuKa]

ben yardımcı oldum ama sorun şu benim hazırladığım veya herhangi bir rkadaşımızın hazırladığı bir ytl olarak hazırlamış vergi iadesi programına tl olarak yazıldığında uyarı veren bir makro yazmak gerekebilir lütfen değeri ytl olarak girin gibi ama bunu ben yapamam bilgisi olan paylaşsın teşekkürler.

 

[zafer]

Merhaba

Sayın Kutuka sorunu hallettiğiniz için elinize sağlık.
Benim kodlarımda hata olduğu ifade edildiği için düzeltme yapabiliriz diye öğrenmek istedim.
Çünki kodların başında hata olursa devam et satırı ekli.

 

[tarkan_tok]

Burada bu kodları kullandığımızda boş olan hücreleri 0.00 olarak atıyor. Halbuki boş olanlar boş kalmalı. Bu konuda yardımcı olursanız seviniriz...