Min. sayıdan itibaren numaralandıma hak.

[daali]

Selamlar Sayın COST CONTROL,
Sub NUMARALANDIRMA()
For X = 1 To 25
For Y = 1 To 7
Cells(Y, X + 26).Select
Cells(Y, X + 26) = WorksheetFunction.Rank(Cells(Y, X), Range(Cells(Y, 1), Cells(Y, 25)))
Next: Next
MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub
Sizin bu kodlarınız max sayıya 1 numarası veriyor.Şimdi acaba tersi olarak min sayıya 1 ve sonra ikinci min. sayıya 2 ... verecek numaralandırma için kodlarla oynadım fakat beceremedim.bİ bakabilmeniz mümkün mü?
Numaralandırmayı en küçükten itibaren yani 5,11,25,36,8,50 gibi sayılarr için,1,3,4,5,2,6 şeklinde numaralama yapmak.
Saygılarımla.

 

[Korhan Ayhan]

Selamlar,

Lütfen sorularınızı sorarken şahsa yönelik sormayın. Bu şekilde davranarak cevap almanızı zorlaştırıyorsunuz.

Aşağıdaki satıra kırmızı eklentiyi yaparak denermisiniz.

Cells(Y, X + 26) = WorksheetFunction.Rank(Cells(Y, X), Range(Cells(Y, 1), Cells(Y, 25))[color=red], 1)[/color]

 

[daali]

Çok doğru ,haklısınız,bu durumda farklı bakış ve çözüm önerileri ve ayrıca imtiyazcılık yapılmış olur.Üzgünüm.
Saygılarımla.