Hücrede belirtilen Kuru Algılamak

[gaktan]

Belki çok kolaydır ama ben bir türlü yapmayı başaramadım.
excelde hazırlamış olduğumuz bir fiyat listesi var
a sütununda ürünler b sütununda fiyatları ve para cinsi yazıyor
ben c sütununa tl cinsinden değerlerini yazdırmak istiyorum.
ama bir türlü b sütunundaki paranın euroo mu dolarmı tl mi olduğunu algılatamadım

 

[Merhum İdris SERDAR]

Belki çok kolaydır ama ben bir türlü yapmayı başaramadım.
excelde hazırlamış olduğumuz bir fiyat listesi var
a sütununda ürünler b sütununda fiyatları ve para cinsi yazıyor
ben c sütununa tl cinsinden değerlerini yazdırmak istiyorum.
ama bir türlü b sütunundaki paranın euroo mu dolarmı tl mi olduğunu algılatamadım

.

Örnek dosya ekte.

.

 

[gaktan]

gönderdiğiniz belgeyi inceledim ama hala bir sorunum var bu
If Hücre.NumberFormat = "[$€-2] #,##0.00" Then Sonuç = "EUR"
FORMAT = Sonuç
[$€-2] bunun yerine gelecek kodları nasıl bulabilirim bende yazan listede 0,00 € olarak yazılı ve kodu bir türlü çalıştırmayı başaramadım

 

[Merhum İdris SERDAR]

gönderdiğiniz belgeyi inceledim ama hala bir sorunum var bu
If Hücre.NumberFormat = "[$€-2] #,##0.00" Then Sonuç = "EUR"
FORMAT = Sonuç
[$€-2] bunun yerine gelecek kodları nasıl bulabilirim bende yazan listede 0,00 € olarak yazılı ve kodu bir türlü çalıştırmayı başaramadım

.

Bizahmet bir örnek ekleyin bakalım.

.

 

[gaktan]

Excell sayfası ekledim sizin yaptığınızın altına devam ettim
teşekkürler ilginiz için

 

[Merhum İdris SERDAR]

Excell sayfası ekledim sizin yaptığınızın altına devam ettim
teşekkürler ilginiz için

.

Dosyanız ekte.


.

 

[gaktan]

Çok teşekkürler bu dosya çok işime yarayacak

 

[1mak1mak]

Böyle Bir hesaplamayı bende kullanmak isterim ama bir türlü iki Kod arasındaki farkı anlayamadım her ikiside hesaplıyor fark konusunda anlayacağımız şekilde bilgi verebilirmisiniz.

Teşekkürler

Function FORMAT(Hücre As Range)
On Error Resume Next
Application.Volatile
If Hücre.NumberFormat = "#,##0.00 $" Then Sonuç = "TL"
FORMAT = Sonuç
If Hücre.NumberFormat = "[$$-409]#,##0.00" Then Sonuç = "USD"
FORMAT = Sonuç
If Hücre.NumberFormat = "[$€-2] #,##0.00" Then Sonuç = "EUR"
FORMAT = Sonuç
End Function
--------------------------------------------------------------------------
Function FORMAT(Hücre As Range)
On Error Resume Next
Application.Volatile
If Hücre.NumberFormat = "#,##0.00 $" Then Sonuç = "TL"
FORMAT = Sonuç
If Hücre.NumberFormat = "#,##0 [$$-407];[Red]-#,##0 [$$-407]" Then Sonuç = "USD"
FORMAT = Sonuç
If Hücre.NumberFormat = "#,##0 [$€-1];[Red]-#,##0 [$€-1]" Then Sonuç = "EUR"
FORMAT = Sonuç

 

[Merhum İdris SERDAR]

.

Kullanacağınz para biçimlendirmesine göre kod değişir.

Örneğin İki kodda TL değişmezken:

If Hücre.NumberFormat = "#,##0.00 $" Then Sonuç = "TL"

USD ve EUR değişmektedir.

.

 

[1mak1mak]

.

Kullanacağınz para biçimlendirmesine göre kod değişir.

Örneğin İki kodda TL değişmezken:

If Hücre.NumberFormat = "#,##0.00 $" Then Sonuç = "TL"

USD ve EUR değişmektedir.

.

TL değişmediğini anladım zaten ama anlayamadığım 407, 409 ve [RED] ne anlama geliyor. Ayrıca Alttaki Kodda Döviz Kuru Kuruş bölümü yok (0) arttırdığımda çalışmıyor.

Teşekkürler

 

[Merhum İdris SERDAR]

TL değişmediğini anladım zaten ama anlayamadığım 407, 409 ve [RED] ne anlama geliyor. Ayrıca Alttaki Kodda Döviz Kuru Kuruş bölümü yok (0) arttırdığımda çalışmıyor.

Teşekkürler

Bir anlamı vardır elbette. Ama ben irdelemedim. Ben Hücre formatına (biçimlendirmesine) baktım. Hücre hangi formatta yapılmışsa onun formatını makroya ekledim. İş bu kadar.

Hücre formatlarında (biçimlendirmesinde) Excel'in koyduğu teknik ayrı bir inceleme konusu olabilir.

.