sütundaki aynı olan son veriyi bulma

[muratozmenler]

öncelikle iyi akşamlar
a1 deki veriyi e sütununda arayacak ve a1 de yazılı olan en son hücrenin yanındaki değeri b1 e yazacak
dosyaya bir bakarsanız...

 

[Orion1]

Ben KTF(KullanıcıTanımlıFonksiyon) ile çözdüm.
Aşağıdaki kodlar çalıştığınız dosyada bir modülde olmalı.
Fonksiyonun kullanımı;
Dosya ektedir.
=son_bul(A1;E1:E13)
A1=Aranacak değer,E1:E13 aranılacak yer,başvuru.

Function son_bul(deg As Variant, alan As Range) As Variant
Dim k As Range
Set k = alan.Find(deg, , xlValues, xlWhole, , xlPrevious)
If Not k Is Nothing Then
    son_bul = k.Offset(0, 1).Value
    Else
    k.Offset = ""
End If
End Function

 

[uzmanamele]

merhaba

fonksiyon alternatifi

=DOLAYLI("F"&TOPLA.ÇARPIM(MAK((A1=E1:E13)*(SATIR(E1:E13)))))

 

[Merhum İdris SERDAR]

Başka alternatif

=INDEX(E1:F13;SUMPRODUCT(MAX((A1=E1:E13)*(ROW(E1:E13))));2)
=İNDİS(E1:F13;TOPLA.ÇARPIM(MAK((A1=E1:E13)*(SATIR(E1:E13))));2)

.

 

[Merhum İdris SERDAR]

Dizi formülü olarak başka bir alternatif.

=INDEX(E1:F13;MAX((A1=E1:E13)*(ROW(E1:E13)));2)
=İNDİS(E1:F13;MAK((A1=E1:E13)*(SATIR(E1:E13)));2)

.

 

[Ömer]

Merhaba,

Başka bir alternatif,

=ARA(2;1/(E1:E13=A1);(F1:F13))

.

 

[muratozmenler]

hepinize ayrı ayrı teşekkür ediyorum iyi çalışmalar dilerim.