VBA Eğersay

[vivident]

Merhaba rank komutu ile G sütundaki verileri baz alarak, B sütununda sıralama yaptırıyorum. Fakat G sütununda aynı değerler olunca, B sütununda da aynı değerlere ait büyüklük ifadesi aynı oluyor. Eğersay ile aynı değerin kaç tane olduğunu bulup rank koduna eklettirme yapmak istiyorum, ama beceremedim

Aynı değerden bir kaç veri görünce hepsine ayrı ayrı numara vermiyor
Örneğin ;
G sütunu : 10-10-7-8-6
B sütunu : 1-1-3-2-4 oluyor ----> olması gereken 1-2-4-3-5

Sub Test()
    Dim i As Long
    i = Sheets("List").Range("B65536").End(xlUp).Row
    With Range("B4:B" & i)
        .Formula = "=RANK($G4,$G$4:$G$" & i & ",0)+COUNTIF(G$4:$G4,G4)-1": .Value = .Value
    End With
End Sub

 

[bmutlu966]

Aşağıdaki şekilde deneyiniz.

Sub Test()
    Dim i As Long
    i = Sheets("List").Range("G65536").End(xlUp).Row
    With Range("B4:B" & i)
        .Formula = "=RANK($G4,$G$4:$G$" & i & ",0)+COUNTIF(G$4:$G4,G4)-1": .Value = .Value
    End With
End Sub