Değişken + RANK + Eğersay

[vivident]

Merhaba
İlksorum "i" değişkeni hakkında. Toplaçarpım makrosunda 800 yazan satıra "i" değişkeni atamak istiyorum. Ama hata alıyorum

With [G4:G800]
.Formula = "=SUMPRODUCT((List!$J$5:$J$800=Durusfilitre!$E4)*(List!$M$5:$M$800=Durusfilitre!$F4)*(List!$L$5:$L$800))": .Value = .Value
End With
-------------------------------------------------------------------
i = Sheets("List").Range("B65536").End(xlUp).Row
With [G4:"G" & i]
.Formula = "=SUMPRODUCT((List!$J$5:$J$" & i & "=Durusfilitre!$E4)*(List!$M$5:$M$" & i & "=Durusfilitre!$F4)*(List!$L$5:$L$" & i & "))": .Value = .Value
End With

ikinci sorum, yine buna benzer
rank makro koduna + eğersay kodunuda eklemek istiyorum, Rank kodu kendi başına çalışıyor, ama countif ile çalışmıyor
daha sonra yukarıdaki gibi bu kodlarada" i" değişkeni ile sınırlandıracağım

'With [B4:B100]
'.Formula = "=RANK($G4,$G$4:$G$100,0)": .Value = .Value
'End With
-------------------------------------------------------------------
'With [B4:B100]
'.Formula = "=RANK($G4,$G$4:$G$100,0) + COUNTIF(G$4:$G4;G4)-1": .Value = .Value
'End With

 

[Korhan Ayhan]

Kendinize uyarlarsınız.

Option Explicit

Sub Test()
    Dim i As Long
    
    i = Sheets("List").Range("B65536").End(xlUp).Row
    
    With Range("G4:G" & i)
        .Formula = "=SUMPRODUCT((List!$J$5:$J$" & i & "=Durusfilitre!$E4)*(List!$M$5:$M$" & i & "=Durusfilitre!$F4)*(List!$L$5:$L$" & i & "))": .Value = .Value
    End With

    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

 

[vivident]

Korhan bey teşekkür ederim