Hücrede en büyüğü bulup yan sütünündaki veriyi yazdırmak

[erdalerkal]

ali 5
veli 10
recep 25
hakan 10
Yukarıdaki gibi bir dökümanda sayıların bulunduğu sütündan en büyük hücreyi bulup onun karşısındaki ismi başka bir hücreye yazdırmak istiyorum.Örnegin yukarıda en büyü sayı 25 karşı hücresinde recep yazıyor recep i başka bir hücreye nasıl yazdırabilirim?Teşekkürler arkadaşlar.....

 

[Ömer]

ali 5
veli 10
recep 25
hakan 10
Yukarıdaki gibi bir dökümanda sayıların bulunduğu sütündan en büyük hücreyi bulup onun karşısındaki ismi başka bir hücreye yazdırmak istiyorum.Örnegin yukarıda en büyü sayı 25 karşı hücresinde recep yazıyor recep i başka bir hücreye nasıl yazdırabilirim?Teşekkürler arkadaşlar.....

Merhaba,

=İNDİS(A:A;KAÇINCI(MAK(B:B);B:B;0);1)

Yalnız en büyük değerden birden fazla var ise ilk gördüğü değerin karşısındaki ismi alacaktır, eğer birden fazla en büyük değer olduğunda hepsinin listelenmesini isterseniz farklı bir formül yazmak gerekir..

.

 

[erdalerkal]

çok teşekkür ederim arkadaşım ya çok makbule geçti.Birden fazla aynı değer varsa onları nasıl yazdırabilirim acaba arkadaşım çok sagol .....

 

[Ömer]

çok teşekkür ederim arkadaşım ya çok makbule geçti.Birden fazla aynı değer varsa onları nasıl yazdırabilirim acaba arkadaşım çok sagol .....

=EĞER(SATIR(A1)>EĞERSAY($B$1:$B$100;MAK($B$1:$B$100));"";İNDİS($A$1:$A$100;KÜÇÜK(EĞER($B$1:$B$100=MAK($B$1:$B$100);SATIR($A$1:$A$100));SATIR(A1))))

Formülü herhangi bir hücreye yazıp alt satırlara kopyalayınız.

Formül Dizi formülüdür. Formülü yazdıktan sonra enter a basmadan önce CTRL SHFT ENTER tuşlarına basarak formülün girişini tamamlamanız gerekmektedir, bu işlemden sonra formülün başına ve sonuna { } ayıraçları eklenecektir..

.

 

[erdalerkal]

Çok teşekkür ederim çok sagolun arkadaşım.....

 

[Ömer]

Rica ederim.

İyi çalışmalar..

 

[Necdet]

Hem makro hem de Kullanıcı Tanımlı Fonksiyon ile çözüm isterseniz

Makro :

Public Sub EnBuyukDegereSahipOlanlar()
Dim Buyuk As Long
[D1] = ""
Buyuk = Application.WorksheetFunction.Max(Range("B2:B" & [B65536].End(3).Row))
For i = 2 To [A65536].End(3).Row
    If Cells(i, "B") = Buyuk Then
        If Range("D1") = "" Then
            Range("D1") = Cells(i, "A")
        Else
            Range("D1") = Range("D1") & " - " & Cells(i, "A")
        End If
    End If
Next i
End Sub

Kullanıcı Tanımlı Fonksiyon :

Function Buyukler(Kimler, Degerler As Range)
Dim i As Integer
Dim Buyuk As Long
Dim Sonuc As String
Buyuk = Application.WorksheetFunction.Max(Degerler)
For Each Hücre In Degerler
    i = i + 1
    If Hücre = Buyuk Then
        If Sonuc = "" Then
            Sonuc = Kimler(i)
        Else
            Sonuc = Sonuc & " - " & Kimler(i)
        End If
    End If
Next Hücre
Buyukler = Sonuc
End Function

 

[Muhammet Okumuş]

sn espiyonajl
=EĞER(SATIR(A1)>EĞERSAY($B$1:$B$100;MAK($B$1:$B$10 0));"";İNDİS($A$1:$A$100;KÜÇÜK(EĞER($B$1:$B$100=MA K($B$1:$B$100);SATIR($A$1:$A$100));SATIR(A1))))
bu formül sadece en büyük değerleri buluyor.peki ilk en büyük 10 değer için ne yapabiliriz.