EURO - $ ÇEVİRİCİ

[turkanet]

MERHABA.
ÖYLE BİR FONKSİYONA İHTİYACIM VAR Kİ,

C SÜTUNU, A SÜTUNUNU TARAYACAK. EĞER A'DAKİ DEĞER $ İSE, HİÇBİR İŞLEM YAPMAYACAK (YADA 1 İLE ÇARPACAK). EĞER € İSE, O HALDE A SÜTUNUNDAKİ DEĞERİ B1 İLE ÇARPACAK (BU B1 SABİT OLACAK)

BUNU YAPMAK MÜMKÜN MÜ? ÖRNEK DOSYA EKTEDİR...
TEŞEKKÜRLER...

 

[turkanet]

SAYIN MODERATOR ARKADAŞLAR, BAŞLIKTA BİR PROBLEM OLMUŞ.
€ - $ ÇEVİRİCİ YERİNE
€ - $ ÇEVİRİCİ OLARAK DÜZELTİRSENİZ SEVİNİRİM.

 

[AS3434]

Aşağıdaki linki inceleyin. Buna benzer bir soru. Sayfa 1
http://www.excel.web.tr/viewtopic.php?p=92585#92585

 

[turkanet]

EVET AMA ORADA "KÜÇÜK" FONKSİYONUNU ANLATIYOR. BEN, SÜTUNDAKİ € PARABİRİMLERİNİ BULMA GİBİ BİR FONKSİYON GEREK DİYE DÜŞÜNÜYORUM.

 

[AS3434]

sn. endorphinn
Öncelikle şunu söylemek isterim, sitede yeni değilsiniz ve forum üyelerinin büyük harfle yazı konusunda ne kadar hassas olduğunu bilmeniz gerekir.
Sorunuza gelince , Hücre biçimlerinizi para birimi olarak yaptığınızdan dolayı epey bir uğraştım ama biçim olarak çözümleyemedim. Şöyle bir yöntemle çözülebilir kanaatindeyim. Eğer ki Katsayı sütununda sadece Euro olan birimler için veri girecekseniz aşağıdaki formül işinizi görür.

=EĞER(B2="";A2;A2*B2)

 

[Merhum İdris SERDAR]

Sayın endorphinn,

Dosyanız ekte.

 

[Korhan Ayhan]

Selamlar,

Gerçi siz sorunuzu Fonksiyonlar bölümüne sormuşsunuz ama excelde yerleşik formüller ile bildiğim kadarıyla hücre formatını kontrol edemiyoruz böyle durumlarda işin içine ya Sn. yurttasın yaptığı gibi Kullanı Tanımlı Fonksiyon yada Makro yöntemi girmektedir. Bende ihtiyacı olanlar çıkabilir düşüncesi ile makrolu çözümü gönderiyorum.

Umarım işinize yarar.

Düzeltme: Koda [B2:B65536].ClearContents satırı eklendi.

 

[turkanet]

BU FONKSİYONA GBP DE EKLEYEBİLİR MİYİZ? YANİ GBP İSE, O ZAMAN DA C2 İLE ÇARPSIN

 

[turkanet]

POUND U DA DOLARA ÇEVİRME İHTİYACIM DA OLDUĞU İÇİN KODU

Sub KATSAYI_UYGULA()
[B2:B65536].ClearContents
For X = 1 To [A65536].End(3).Row
If Cells(X, 1).NumberFormat = "[$€-2] #,##0.00" Then
Cells(X, 2).Value = Cells(X, 1) * [B1]
Cells(X, 2).NumberFormat = "[$$-409]#,##0.00"
End If
Next
For X = 1 To [A65536].End(3).Row
If Cells(X, 1).NumberFormat = "[$£-2]#,##0.00" Then
Cells(X, 2).Value = Cells(X, 1) * [C1]
Cells(X, 2).NumberFormat = "[$$-409]#,##0.00"
End If
Next
End Sub

DİYE DEĞİŞTİRDİM. AMA POUND OLAN HÜCRELERE BİR İŞLEM YAPMADI. NERESİ HATALI Kİ? :?

 

[Korhan Ayhan]

Selamlar,

Bir önceki mesajımdaki dosyayı GBP için güncelledim kontrol edermisiniz.

 

[turkanet]

EMEĞİNİZE SAĞLIK,
TEK BİR PROBLEM KALDI. O DA POUND SİMGESİNİN ŞEKLİ.
ÖRNEK: 236,25 GBP YERİNE £236,25 OLMAK ZORUNDA. BUNU NASIL DÜZELTİRİZ?

 

[Korhan Ayhan]

Selamlar,

Üstteki dosyayı £ formatına göre düzenledim incelermisiniz.

 

[turkanet]

MİNNETTARIM, ÇOK TEŞEKKÜR EDERİM...

 

[turkanet]

SON OLARAK;
ARANAN DEĞERLERİM A SÜTUNUNDA DEĞİL, Z5:Z200 ARASINDA
KATSAYI1: AB2'DE, KATSAYI2: AB3'DE
YENİ DEĞERLERİN YAZILACAĞI ARALIK: AB5:AB2000
KODLAR KENDİ DOSYAMDA ÇALIŞMADI. YUKARIDAKİ DEĞİŞİKLİKLERİ NASIL UYGULAYABİLİRİM?
TEŞEKKÜRLER.

 

[Korhan Ayhan]

Selamlar,

Ekteki örneği incelermisiniz.

 

[mehmett]

sn. endorphinn
Öncelikle şunu söylemek isterim, sitede yeni değilsiniz ve forum üyelerinin büyük harfle yazı konusunda ne kadar hassas olduğunu bilmeniz gerekir.
Sorunuza gelince.......

Katılıyorum.

Forum kurallarından biri de mesajların tamamen büyük harflerle yazılmamasıdır.

 

[turkanet]

günaydın arkadaşlar,
cost control arkadaşımın değerli yardımlarına ben de "hücre eğer $ ise aynen ab sütununa yaz satırını da ekledim ve çalışmam tamamlandı. sonuç mükemmel. emeklerinize sağlık.

büyük harfle yazma konusuna gelince;
böyle bir konuda sakınca bulunduğunu bilmiyordum. bundan sonra dikkat ederim.

hepinize teşekkür ederim. (ah bir de benim şu "aktif sayfayı farklı kaydeden makro" konulu başlığıma bir cevap alabilsem )

 

[turkanet]

çalışmama 2 sütun daha ekledim ve hücreler sağa doğru kaydı. ben formülü;

Sub KATSAYI_UYGULA()
[AB5:AB2000].ClearContents
For X = 1 To [Z65536].End(3).Row
If Cells(X, 28).NumberFormat = "[$€-2] #,##0.00" Then
Cells(X, 30).Value = Cells(X, 28) * [AD2]
Cells(X, 30).NumberFormat = "[$$-409]#,##0.00"
ElseIf Cells(X, 28).NumberFormat = "[$£-809]#,##0.00" Then
Cells(X, 30).Value = Cells(X, 28) * [AD3]
Cells(X, 30).NumberFormat = "[$$-409]#,##0.00"
ElseIf Cells(X, 28).NumberFormat = "[$$-409]#,##0.00" Then
Cells(X, 30).Value = Cells(X, 28)
Cells(X, 30).NumberFormat = "[$$-409]#,##0.00"
End If
Next
End Sub


şeklinde değiştirdim ama gene çalışmadı (aranan hücreler ab sütununda, yazılacak hücreler ad sütununda)

 

[Korhan Ayhan]

Selamlar,

Verdiğiniz bilgiler doğrultusunda aşağıdaki gibi denerseniz olur sanırım.

İPUCU: Bu şekilde kodlarda nerde hata yaptığınızı bulabilmek için Visual Basic sayfasını açın ve arka planda excel sayfasını görecek şekilde ayarlayın daha sonra kodu F8 tuşu ile adım adım çalıştırın.

Sub KATSAYI_UYGULA()
[AD5:AD65536].ClearContents
For X = 1 To [AB65536].End(3).Row
If Cells(X, 28).NumberFormat = "[$€-2] #,##0.00" Then
Cells(X, 30).Value = Cells(X, 28) * [AD2]
Cells(X, 30).NumberFormat = "[$$-409]#,##0.00"
ElseIf Cells(X, 28).NumberFormat = "[$£-809]#,##0.00" Then
Cells(X, 30).Value = Cells(X, 28) * [AD3]
Cells(X, 30).NumberFormat = "[$$-409]#,##0.00"
ElseIf Cells(X, 28).NumberFormat = "[$$-409]#,##0.00" Then
Cells(X, 30).Value = Cells(X, 28)
Cells(X, 30).NumberFormat = "[$$-409]#,##0.00"
End If
Next
End Sub

 

[turkanet]

tamam oldu. tüm sütunlara 2 rakam ekledim ama koddaki 2 satırı unutmuşum. emeğinize sağlık. minnettarım, teşekkür ediyorum...