Makro ile bir sütundaki verileri 1,2,3... olarak sıralamak

[bhdr]

Herkese iyi akşamlar;

Ek' te gönderdiğim tabloda bir sütunda bulunan değerleri büyükten küçüğe olacak şekilde "SIRA" sütununa 1-2-3... diye yazmasını istiyorum.Yardımlarınız için şimdiden teşekkür ederim.

 

[Orion1]

1-2-3... büyükten küçüğemi sıralamak?
Bana küçükten büyüğe sıralamakmış gibi geliyor.

 

[bhdr]

1-2-3... büyükten küçüğemi sıralamak?
Bana küçükten büyüğe sıralamakmış gibi geliyor.

Hocam 1-2-3 derken en büyük olan 1. sonra en büyük 2. gibi demek istedim

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kod;
-- önce L3:Q11 aralığına, SAYIM sonuçlarını,
-- ardından R3:R11 aralığına, bunların L4:Q14 aralığındaki verilerle çarpımlarının toplamlarını,
-- sonra da R sütunundakilerin büyüklük sırasına göre kaçıncı sırada olduğunu S sütununa yazar.

Sub SYD()
[L3:S11].ClearContents
For sat = 3 To 11
    For sut = 12 To 17
        Cells(sat, sut) = WorksheetFunction.CountIf(Range("B" & sat & ":J" & sat), Cells(2, sut))
    Next
    Cells(sat, "R") = Evaluate("=SUMPRODUCT((L" & sat & ":Q" & sat & "*L14:Q14))")
Next
With [S3:S11]
    .Formula = "=RANK($R3,$R$3:$R$11,0)": .Value = .Value
End With
End Sub

 

[bhdr]

Merhaba.

Aşağıdaki kod;
-- önce L3:Q11 aralığına, SAYIM sonuçlarını,
-- ardından R3:R11 aralığına, bunların L4:Q14 aralığındaki verilerle çarpımlarının toplamlarını,
-- sonra da R sütunundakilerin büyüklük sırasına göre kaçıncı sırada olduğunu S sütununa yazar.

Sub SYD()
[L3:S11].ClearContents
For sat = 3 To 11
    For sut = 12 To 17
        Cells(sat, sut) = WorksheetFunction.CountIf(Range("B" & sat & ":J" & sat), Cells(2, sut))
    Next
    Cells(sat, "R") = Evaluate("=SUMPRODUCT((L" & sat & ":Q" & sat & "*L14:Q14))")
Next
With [S3:S11]
    .Formula = "=RANK($R3,$R$3:$R$11,0)": .Value = .Value
End With
End Sub

Hocam Günaydın, teşekkür ederim.