eğer a1 hücresinde sadece usd yazıyorsa formül doğru ancak a1 hücresinde örneğin asdusdaa yazıyorsa yani kelime içinde geçiyorsa formül çalışmıyor.
bunu nasıl halledebiliriz.
=EÃER(EHATALIYSA(BUL("usd";A1;1));"";C1)
A1 de "usd" kelimesi yoksa hata mesajı almazsınız.
dahada kısaltmak için zannedersem eğer için E,ehatalıysa için EH ve bul için B isimli tek harfle tanımlanmış makrolar gerekir.
Söyleyin bana, nasıl daha kısa formül istersiniz? Bu mümkün değil çünkü istediğiniz parametreler bunu gerektiriyor. muygun arkadaşımız gerekeni yapmış.
b1 hücresinde iken ekle > ad > tanımladan başvuru yerine yukarıda sn.muygunun yazdığı formülü girip bir isim yazıp (örneğin Usdise ) ekleyin. Daha sonra istediğiniz hücrede =Usdise yazdığınızda bir solundaki hücreye bakıp usd geçiyorsa sağındaki hücreyi yazar.
ARKADAÃLAR ÃU FORMÜLÜ OLUÃTURABİLEN VAR MI,HALA ARIYORUM
eğer a1 hücresi içinde usd veya $ geçiyorsa h4,eğer a1 hücresi içinde euro kelimesi geçiyorsa h5, eğer gbp kelimesi geçiyorsa h6 gelsin.
Burada uzun uzun anlatmaktansa örnek dosyayı incelemek daha iyi sanırım.
Benim anladığım döviz cinsini yazınca karşılığında o günkü kuru gelsin istiyorsunuz.
Bende böyle düşündüğüm için örnek dosyayı öyle yaptım.
İyi Çalışmalar
cevabına teşekkürler NECDET,
senin dosyanda A2 hücresinde ssseuroffff, a3 de med$fff, gibi yazsa formül nasıl olur. sorun euro, $, gbp, v.s.nin hücre içinde tek başına olmaması
Aşağıda kullanıcı tanımlı bir fonksiyon oluşturdum.
[vb:1:33610f4976]Function carpanbul(hucre, aranansutun, alınansutun)
On Error Resume Next
Dim kriter(4)
kriter(1) = "$"
kriter(2) = "USD"
kriter(3) = "EURO"
kriter(4) = "GBP"
For a = 1 To 4
If IsError(WorksheetFunction.FindB(kriter(a), hucre)) = True Then GoTo 10
carpanbul = Cells(Columns(aranansutun).Find(kriter(a)).Row, alınansutun).Value
10 Next
End Function[/vb:1:33610f4976]
syn leventm...
sn keyn'in "b1 hücresinde a1 hücresi içinde usd..." başlıklı sorusuna cevaben yazdığım denemeyi yanlışlıkla yeni bir başlık altında açmışım. Eğer cevabı siler yada kendi cevabınız dahil ilgili soruya taşırsanız sevinirim.
saygılar...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.