- Katılım
- 10 Mayıs 2007
- Mesajlar
- 1,395
- Excel Vers. ve Dili
- 2007 Türkçe
merhabalar benim isteidğim fiyat listemdeki ürünlerin ilk ve son fiyatlarını bulabileceğim bir fonksiyon eklediğim tabloda açıklamaya çalıştım yardımlarınız için teşekkürler.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Function sonuncu(deg As Range, alan As Range)
Dim k As Range, son
If deg = "" Then Exit Function
For Each k In alan
If UCase(Replace(Replace(k.Value, "ı", "I"), "i", "İ")) = _
UCase(Replace(Replace(deg, "ı", "I"), "i", "İ")) Then
son = k.Offset(0, 1).Value
End If
Next k
sonuncu = son
End Function
Bende zaten Kullanıcı Tanımlı Fonksiyon yapmıştım.evren bey çıok teşekkür ederim bu uygulamayı excelde çok iyi olmayan arkadaşlara kullandırtacağım için macrosuz bi çözü arıyorum ilginize çok teşekkür ederim
=sonuncu(F2;A2:A15)
Formülü CTRL+SHIFT+ENTER ile girerek denediniz mi?dosyayı 3 mesaj önceki bölüme ekledim örnek2 adlı dosya
=İNDİS(B$2:B$15;KAÇINCI(F2;A$2:A$15;0))
=İNDİS(B$2:B$15;KAÇINCI(2;1/(A2:A15=F2)))
Farklı çözüm
G2 hücrenize
yazıp normal ENTER ile formül girişini tamamlayınız.Kod:=İNDİS(B$2:B$15;KAÇINCI(F2;A$2:A$15;0))
H2 hücrenize
CTRL+SHIFT+ENTER tuşu ile formül girişini tamamlayınız.Kod:=İNDİS(B$2:B$15;KAÇINCI(2;1/(A2:A15=F2)))