satırdaki en yüksek 10 rakamı numaralandırma

[erseljti]

Ürün simi yazan aynı satırdaki numaraları ilk 10 olacak şekilde numaralarındırması Ekte tabloyu görebilrsiniz.
Teşekkürler

 

[YUSUF44]

Aşağıdaki formül kısmen oluyor, aynı sayıdan birden fazla varsa aynı sırayı veriyor:

=EĞER(BÜYÜK($B2:$AX2;1)=B2;1;EĞER(BÜYÜK($B2:$AX2;2)=B2;2;EĞER(BÜYÜK($B2:$AX2;3)=B2;3;EĞER(BÜYÜK($B2:$AX2;4)=B2;4;EĞER(BÜYÜK($B2:$AX2;5)=B2;5;EĞER(BÜYÜK($B2:$AX2;6)=B2;6;EĞER(BÜYÜK($B2:$AX2;7)=B2;7;EĞER(BÜYÜK($B2:$AX2;8)=B2;8;EĞER(BÜYÜK($B2:$AX2;9)=B2;10;EĞER(BÜYÜK($B2:$AX2;1)=B2;10;""))))))))))

 

[erseljti]

Aşağıdaki formül kısmen oluyor, aynı sayıdan birden fazla varsa aynı sırayı veriyor:

=EĞER(BÜYÜK($B2:$AX2;1)=B2;1;EĞER(BÜYÜK($B2:$AX2;2)=B2;2;EĞER(BÜYÜK($B2:$AX2;3)=B2;3;EĞER(BÜYÜK($B2:$AX2;4)=B2;4;EĞER(BÜYÜK($B2:$AX2;5)=B2;5;EĞER(BÜYÜK($B2:$AX2;6)=B2;6;EĞER(BÜYÜK($B2:$AX2;7)=B2;7;EĞER(BÜYÜK($B2:$AX2;8)=B2;8;EĞER(BÜYÜK($B2:$AX2;9)=B2;10;EĞER(BÜYÜK($B2:$AX2;1)=B2;10;""))))))))))

Çok teşekkürler Hocam

 

[erseljti]

Aşağıdaki formül kısmen oluyor, aynı sayıdan birden fazla varsa aynı sırayı veriyor:

=EĞER(BÜYÜK($B2:$AX2;1)=B2;1;EĞER(BÜYÜK($B2:$AX2;2)=B2;2;EĞER(BÜYÜK($B2:$AX2;3)=B2;3;EĞER(BÜYÜK($B2:$AX2;4)=B2;4;EĞER(BÜYÜK($B2:$AX2;5)=B2;5;EĞER(BÜYÜK($B2:$AX2;6)=B2;6;EĞER(BÜYÜK($B2:$AX2;7)=B2;7;EĞER(BÜYÜK($B2:$AX2;8)=B2;8;EĞER(BÜYÜK($B2:$AX2;9)=B2;10;EĞER(BÜYÜK($B2:$AX2;1)=B2;10;""))))))))))

Küçük bir rica daha eğer değer sıfır ise yada boş ise sonuçta 0 olabilir mi?

 

[YUSUF44]

Formülün en başına eşittirden sonra:

EĞER(B2=0;0;

İfadesini ekleyip formülün sonuna kapa parantez ")" yaparak dener misiniz?

 

[YUSUF44]

Aynı değerlerde de doğru sonuç vermesi için aşağıdaki DİZİ formülünü oluşturdum ama düşündüğüm sonucu vermedi. Sadece satırdaki en büyük değer için doğru çalıştı. Diğer değerlerde hep 0 gösterdi. DİZİ formülü üstadları ilgilenirse mutlu olurum:

=EĞER(B2=0;0;EĞER(B2=BÜYÜK($B2:$AX2;SATIR($1:$10));EĞERSAY($BA2:BA2;BÜYÜK($B2:$AX2;SATIR($1:$10)))+1;0))

 

[YUSUF44]

Makrolu çözüm isterseniz aşağıdaki kodları bir modüle kopyalayıp deneyiniz:

Sub kaçıncı()
son = Cells(Rows.Count, "A").End(3).Row
Range("BA2:CX" & son).ClearContents
For satır = 2 To son
    For sütun = 54 To 102
        If Cells(satır, sütun - 52) = 0 Then
            Cells(satır, sütun) = 0
        Else
            For sıra = 1 To 10
                If WorksheetFunction.Large(Range("B" & satır & ":AX" & satır), sıra) = Cells(satır, sütun - 52) Then
                    Cells(satır, sütun) = sıra + WorksheetFunction.CountIf(Range(Cells(satır, "A"), Cells(satır, sütun - 53)), Cells(satır, sütun - 52))
                    sıra = 10
                End If
            Next
        End If
    Next
Next
End Sub

 

[Korhan Ayhan]

Benzeşen verilere aynı sıra numarası sorun olmayacaksa aşağıdaki formülü deneyiniz.

=EĞER(RANK(B2;$B2:$AX2;0)>10;0;RANK(B2;$B2:$AX2;0))

Benzersiz sıra numarası oluşturmanız gerekiyorsa aşağıdaki formülü deneyiniz.

=EĞER(TOPLA.ÇARPIM((B2<$B2:$AX2)/EĞERSAY($B2:$AX2;$B2:$AX2&""))+1>10;0;TOPLA.ÇARPIM((B2<$B2:$AX2)/EĞERSAY($B2:$AX2;$B2:$AX2&""))+1)