Sıralama

[binali]

Arkadaşlar aşağıdaki gibi bir sıralama formülle veya başka bir şekilde nasıl yaparım ?


Sır No Cisim
1 Elma
2 Elma
3 Elma
1 Armut
2 Armut
3 Armut
4 Armut
5 Armut
1 Karpuz
2 Karpuz
1 Erik

 

[ulutanas]

Sorunuzu anlayamadım sıra no ve cisim diye ayırmışınız ama aynı sıra nolara farklı cisimler yazmışınız. Nasıl bir isteğiniz var ise bir dosyada hazırlayıp isteğinizi eklerseniz mutlaka yardımcı olunur.

İyi çalışmalar...

 

[PLİNT]

Arkadaşlar aşağıdaki gibi bir sıralama formülle veya başka bir şekilde nasıl yaparım ?

Merhaba
Aşağıdaki gibi olabilir.

http://s3.dosya.tc/server6/raz81m/sirala.zip.html

 Sub sırala()
a = Cells(Rows.Count, "b").End(xlUp).Row
Range("B2:F" & a).Sort Key1:=[b2], Order1:=xlAscending
For b = 2 To a
Cells(b, "a") = WorksheetFunction.CountIf(Range("B2:B" & b), Cells(b, "b").Value)
Next
End Sub