Soru Geçmiş yılların TL tutarı yeni TL'ye nasıl çevrilebilir?

[assenucler]

Merhabalar;

2002 yıllarına ait altın gram fiyatları, bugüne çevirme işlemini düzgün yapamadım. Yardımınızı bekliyorum.

 

[Ziynettin]

Merhaba.

Bu kodu deneyin.

Sub test()
On Error Resume Next
For i = 3 To 45
    Cells(i, 6) = Round(Format(Cells(i, 2), "#,##0,00") / 1000000, 2)
    Cells(i, 7) = Round(Format(Cells(i, 3), "#,##0,00") / 1000000, 2)
Next i
End Sub

 

[assenucler]

Sayın Ziynettin,

Yardımınız için teşekkür ederim. Ancak nedenini bilmiyorum. Kodu sayfa kod ile çalışma kitabı kısmına ayrı ayrı yapıştırmama karşın, makro kodunu bir türlü çalıştıramadım. Zahmet olmazsa rica etsem kodu uygulandığı dosyayı ekleyebilir misiniz?.

Saygılarımla,

 

[Ziynettin]

Sayın Ziynettin,

Yardımınız için teşekkür ederim. Ancak nedenini bilmiyorum. Kodu sayfa kod ile çalışma kitabı kısmına ayrı ayrı yapıştırmama karşın, makro kodunu bir türlü çalıştıramadım. Zahmet olmazsa rica etsem kodu uygulandığı dosyayı ekleyebilir misiniz?.

Saygılarımla,

 

[assenucler]

Sayın Ziynettin,

Çözüm dosyanızı indirdim. Düğmeye basmama karşın, F3 ve G3 sütunlarında yeni Türk Lirası listelenmiyor. Nedeni ne olabilir?

 

[Ziynettin]

Eklediğiniz dosyanız bende çalışıyor.

Format neden olabilir. Aşağıdaki koda göre mesaj sonucu sizde True mi? False mi? oluyor.

Sub deneme()
    MsgBox IsNumeric([B3])
End Sub

 

[assenucler]

False oluyor

 

[assenucler]

 

[Merhum İdris SERDAR]

.

Formülle dosyanız ekte.

Kullanılan formül:

=ROUNDDOWN(--SUBSTITUTE(B3;"TL";"")/1000000;2)

.

 

[assenucler]

ÇÖZÜLDÜ

Sayın @İdris SERDAR,

Yardımınız için teşekkür ederim.
Saygılar,