KAÇINCI ve BÜYÜK fonksiyonlarının kullanıldığı bölümü FOR NEXT içine nasıl yazarım?

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Kod içindeki KAÇINCI ve BÜYÜK fonksiyonlarının kullanıldığı bölümü FOR NEXT içine nasıl yazarım?

    Set wf = WorksheetFunction
    Range("I11:K185").ClearContents
    For i = 1 To 35
        Cells(10 + i, 9) = wf.SumIf(Range("F11:H185"), Range("D" & 10 + i), Range("H11:H185"))
        Cells(10 + i, 11) = Cells(10 + i, 9) + (36 - i) / 10000
    Next i

    Range("L11").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(MATCH(LARGE(R11C11:R185C11,RC[-8]),R11C11:R185C11,0),"""")"
    Range("L11").Select
    Selection.AutoFill Destination:=Range("L11:L16"), Type:=xlFillDefault
    Range("L11:L16").Select

Saygılarımla

 

[usubaykan]

Merhaba Arkadaşlar,
Kod içindeki KAÇINCI ve BÜYÜK fonksiyonlarının kullanıldığı bölümü FOR NEXT içine nasıl yazarım?

    Set wf = WorksheetFunction
    Range("I11:K185").ClearContents
    For i = 1 To 35
        Cells(10 + i, 9) = wf.SumIf(Range("F11:H185"), Range("D" & 10 + i), Range("H11:H185"))
        Cells(10 + i, 11) = Cells(10 + i, 9) + (36 - i) / 10000
    Next i

    Range("L11").Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(MATCH(LARGE(R11C11:R185C11,RC[-8]),R11C11:R185C11,0),"""")"
    Range("L11").Select
    Selection.AutoFill Destination:=Range("L11:L16"), Type:=xlFillDefault
    Range("L11:L16").Select

Saygılarımla

Activecell yazan yere örneğin cells(i,"L") yazıp bu şekilde döngü içine alabilirsiniz.

Örneğin;

For i = 1 To 35
Cells(10 + i, 9) = wf.SumIf(Range("F11:H185"), Range("D" & 10 + i), Range("H11:H185"))
Cells(10 + i, 11) = Cells(10 + i, 9) + (36 - i) / 10000
cells(i,"L").FormulaR1C1 = _
"=IFERROR(MATCH(LARGE(R11C11:R185C11,RC[-8]),R11C11:R185C11,0),"""")"
Next i

 

[Tevfik_Kursun]

Sayın Usubaykan Hocam,
Çok teşekkür ederim, yeni bir şey öğrendim.
Saygılarımla