Hücredeki Para Birimini Algılama

[Engineerist34]

Merhabalar,
Basit bir maliyet tablom var, Başlıkları kısaca;

Ürün, Birim Fiyat, Miktar ve Toplam Fiyat olacak şekilde. Normal olarak toplam fiyatı bulmak için Birim Fiyat * Adet diyoruz.
Ancak bazı ürünlerin fiyatları $ ve € cinsinden. Ben güncel kurları ayrı bir hücreye çekiyorum.
Ben istiyorum ki Toplam fiyat hep € olarak toplansın.
Aşağıda temsili bir resim ekledim.


Örneğin A ürünü TL birim fiyatına sahip olduğu için bunu (B2/G2)*C2 olarak toplam fiyata Euro cinsinden yazsın.
Diğerlerini de bu mantıkla D sütununa yazdırayım.

Ben aşağıdaki şekilde soldan ilk karaktere bakarak kuru öğrenmeye çalıştım

=EĞER(SOLDAN(B2;1)="₺";"EVET";"HAYIR")

ama ilk karakteri rakamın ilk karakterini alıyor. Acaba nasıl bir yol izleyebilirim.

Teşekkürler..

 

[Ömer]

Merhaba,

Bu şekilde biçimi alamazsanız, verilerinizi görmekte fayda var. Ayrıca ürünlerin birim fiyatı elle mi giriliyor. (Birimler para cinsine göre farklı olduğu için sordum.)

Sorularınızı destekleyen örnek dosya eklemeye özen göstermenizi rica ederim.

 

[Engineerist34]

Ömer Bey,
Cevabınız için teşekkür ederim. Evet verileri el ile giriyorum sadece hücre biçimleri € yada $ olarak belirlenmiş.
Örnek dosya ekledim, aslında yapmak istediğim Sayfa2 de ki gibi ama ben istiyorum ki D sütununa gireceğim formül B deki para birime algıların ve ona göre işlem yapsın.
Bu makro ile çözülebilir mi acaba ?

 

[Ömer]

İmleç 2.satırda herhangi bir hücrede aktifken;

Ad Tanımlamadan;

p_bicim

adını vererek başvuru yerine aşağıdaki formülü yazın. (p_bicim adını farklı bir ad seçebilir siniz.)

=AL.HÜCRE(7;$B2)

Daha sonra aşağıdaki formülü D2 hücresine yazıp alt satıra kopyalayın.

=EĞER(PARÇAAL(p_bicim;5;1)="₺";(B2/$G$1)*C2;EĞER(PARÇAAL(p_bicim;5;1)="$";(B2/$G$3)*C2;B2*C2))

Kullanılan yöntem Excel4 makro yönetimi olduğu için çalışmanızı "mako içerebilen excel kitabı" seçerek kaydetmeniz gerekir.

.

 

[Engineerist34]

Ben nerde yanlış yaptım bilmiyorum ama hatalı değerler alıyorum sürekli :/ Sanırım üstünde biraz daha çalışmalıyım. Yine de çok teşekkür ederim

 

[YUSUF44]

Ömer Bey'in yazdıklarını sırasıyla birebir yaparsanız doğru sonuç veriyor. Muhtemelen Ad tanımlama kısmını yanlış yapmışsınızdır.

 

[Engineerist34]

Evet ben ad tanımlamada hata yapıyormuşum. Çok teşekkür ederim Ömer Bey. Ellerinize sağlık )

 

[Tevfik_Kursun]

Merhaba,
Aternatif olsun, benimki de KTF ile. Daha önce Sayın Haluk hocanın hazırladığını size uyarladım.
İyi çalışmalar

 

[Engineerist34]

Tevfik Bey çok teşekkür ederim. Emeğinize sağlık, gerçekten bunlar işime çok yarayacak şeyler.
İyi ki böyle bir forum var )

 

[Tevfik_Kursun]

Rica ederim arkadaşım.
Geri dönüş yaptığınız için ben teşekkür ederim.
İyi çalışmalar

 

[Merhum İdris SERDAR]

.

Alternatif.

.