Excel'de En Büyük Sayının 1 küçüğünü alma

[rdrages]

Excel'de Seçtiğim Hücrelerde yazan rakamlardan, En Büyük sayının 1 Küçüğünü, En Büyük Sayının 2 küçüğünü veya 3 Küçüğünü alabileceğim bir formül varmı ?

Yardım Ederseniz sevinirim )

 

[bzace]

Merhaba,
MAK formülünü inceleyiniz.
Ne işe yaradığını öğrendikten sonra ufak bir çıkartma işlemi yapınız.

Not: Sanki sorunuzu yanlış anladım ama bakalım.

 

[rdrages]

MAK formülünü biliyorum, Çıkarma işlemini neye göre yapıcam onu bilmiyorum.

 

[bzace]

Deneyiniz.
Verilerinizi A1:A5 aralığına giriniz.

=MAK(A1:A5)-SATIR(A1)

Bu işlem maksimum sayının 1 eksiğini verir. Formülü aşağıya doğru kopyaladıkça bu sayı birer birer eksilir.

Daha basite indirgersek;

=MAK(A1:A5)-[COLOR="Red"][SIZE="4"]1[/SIZE][/COLOR]

 

[1Al2Ver]

Merhaba,

Verileriniz A2:A10 aralığında varsayıldığında ,

En büyük 1 nci sayı için, C2'ye ;

=BÜYÜK(A2:A10;1)

En büyük 2 nci sayı için, D2'ye ;

=BÜYÜK(A2:A10;EĞERSAY(A2:A10;BÜYÜK(A2:A10;2))+1)

En büyük 3 ncü sayı için, E2'ye ;

=BÜYÜK(A2:A10;EĞERSAY(A2:A10;BÜYÜK(A2:A10;2))+1+EĞERSAY(A2:A10;BÜYÜK(A2:A10;EĞERSAY(A2:A10;BÜYÜK(A2:A10;2))+1)))

 

[rdrages]

Dediğiniz Kodlar çalışıyo ama bana En Büyük 4. ,5. ,6. ,7. ,8. ,9. ve 10. da lazımdı,

1- Formülü neye göre arttırıyosunuz, 4. En Büyük Sayıyı almaya çalıştığımda hep 3. En Büyük Sayıyı yazdı sistem, İnternette arattığımda bi videoya ulaşamadım.

2-Bana olayı anlatırsanız veya Formülü direk verirseniz gerçekten çok sevinirim.

 

[bzace]

Sayın Rdrages,
Deneyiniz.
Verilerinizi A1:A7 aralığına giriniz.
C1 hücresine;

=MAK(A1:A7)

C2 hücresine;

=BÜYÜK(A$1:A$7;EĞERSAY(A$1:A$7;C1)+SATIR(A1))

yazıp, aşağı doğru çoğaltınız.

 

[Saban Sertkaya]

Alternatif olsun. Kodu bir butona atayarak deneyiniz. Verilerin A1:A20 'de olduğu varsayılmıştır. (Düzenleme ile veri alanı sütuna uygulanabilir)

Sub Düğme1_Tıklat()
    Range("A1:A20").Select
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = "Sil"
    [A1].PasteSpecial
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Sil").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sil").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sil").Sort
        .SetRange Range("A1:A20")
        .SortMethod = xlPinYin
        .Apply
    End With
a = [A1]
b = [A2]
c = [A3]
d = [A4]
e = [A5]
f = [A6]
g = [A7]
h = [A8]
i = [A9]
j = [A10]
Sheets("Sayfa1").Select
[A1].Select
MsgBox "Büyükten küçüğe ilk 10 sayı" & vbCrLf & _
"1.Sayı = " & a & vbCrLf & _
"2.Sayı = " & b & vbCrLf & _
"3.Sayı = " & c & vbCrLf & _
"4.Sayı = " & d & vbCrLf & _
"5.Sayı = " & e & vbCrLf & _
"6.Sayı = " & f & vbCrLf & _
"7.Sayı = " & g & vbCrLf & _
"8.Sayı = " & h & vbCrLf & _
"9.Sayı = " & i & vbCrLf & _
"10.Sayı = " & j
    Application.DisplayAlerts = False
    Sheets("Sil").Delete
    Range("A1").Select
End Sub

 

[rdrages]

Şuana kadar herşey güzel gidiyodu Lakin, Aynı Sayıdan 3 tane olduğu için, Sistem 1'ini atlayıp Hücrelerin sadece 2 sini yazdı. Bunuda Düzeltebilirsem herşey çok iyi olucak.


RESİM LİNKİ : http://prntscr.com/8b27zy

 

[Ömer BARAN]

Merhaba.
Aşağıdaki formülü C1 hücresine uygulayın ve aşağı doğru kopyalayın.

=BÜYÜK($A$1:$A$10;SATIR())

Sonucu; 1'inci satır yerine örneğin 3'üncü satırdan itibaren listelemek istiyorsanız, formülün sonundaki SATIR() yerine SATIR()-2 yazınız.

 

[Saban Sertkaya]

Kod ile sunulan öneride aynı rakamdan kaç tane olduğunun önemi yoktur.

 

[Ömer BARAN]

Tekrar merhaba.
Formül kullanarak sonuç almak istiyorsanız, örnek belgeye buradan ulaşabilirsiniz.

 

[rdrages]

Tamamdır, sonunda yapmak istediğimi yaptım teşekkürler )

 

[rdrages]

Bu Formülleri L337:L346 arasına kopyaladığımda neden (#SAYI!) hatasını veriyor

 

[Ömer BARAN]

Bu Formülleri L337:L346 arasına kopyaladığımda neden (#SAYI!) hatasını veriyor

Öncelikle, benim gönderdiğim örnek belgeden mi bahsediyorsunuz, hiç anlaşılmıyor, onu söylemeliyim.

Eğer benim gönderdiğim belgedeki formülden bahsediyorsanız, sorun yaşadığınız C sütunundaki formül müdür yoksa J sütunundaki formül müdür acaba?

Gönderilen bir cevapla ilgili ilave soru sormak istediğinizde, cevabı gönderenin cevabının sağ altındaki "ALINTI" düğmesine fareyle tıklayarak ilave soru sormanızda yarar var.
Böylece sorunun muhatabı ve soru daha iyi anlaşılacaktır.

Ayrıca; en sonuç alıcı yöntem, kendi örnek belgenizi göndererek onun üzerinden soru sormanız bence.

 

[rdrages]

Öncelikle, benim gönderdiğim örnek belgeden mi bahsediyorsunuz, hiç anlaşılmıyor, onu söylemeliyim.

Eğer benim gönderdiğim belgedeki formülden bahsediyorsanız, sorun yaşadığınız C sütunundaki formül müdür yoksa J sütunundaki formül müdür acaba?

Gönderilen bir cevapla ilgili ilave soru sormak istediğinizde, cevabı gönderenin cevabının sağ altındaki "ALINTI" düğmesine fareyle tıklayarak ilave soru sormanızda yarar var.
Böylece sorunun muhatabı ve soru daha iyi anlaşılacaktır.

Ayrıca; en sonuç alıcı yöntem, kendi örnek belgenizi göndererek onun üzerinden soru sormanız bence.

FORMÜL

=BÜYÜK($A$1:$A$10;SATIR())

Bu Formül C1 deyken hiçbir sıkıntı yok, ancak Bu Formülü L338 den başlayıp L347 ye kadar kopyaladığımda ve Hücrelerde Verinin kaynağınıda doğru yazdığım halde neden (#SAYI!) hatasını veriyo, bulunduğu hücreye göre mi formül yazmak gerekiyor ?

Verilerin alıncağı aralık = K338:K347

 

[Ömer BARAN]

10 numaralı cevaba bakınız.

 

[rdrages]

10 numaralı cevaba bakınız.

Körlüğümden dolayı özür dilerim, umarım artık başka sorunum olmaz.

Düzeltildi.

 

[bzace]

Merhaba,
Dün fırsat bulamadım.

• Verileriniz A1:A8 aralığına,
• 1. formül B1 hücresine,
• 2. formül B2 hücresine,

girerek deneyiniz.

1.formül;

=MAK(A1:A8)

2.formül;

=MAK((EĞERSAY(A$1:A$8;A$1:A$8)>0)*(A$1:A$8<B1)*A$1:A$8)
[COLOR="blue"]Formül dizi formülüdür.CTRL+SHIFT+ENTER ile tamamlayınız.[/COLOR]