Soru Toplam formülünü koda çevirme

[xemdarx]

Selamlar,
Herkese hayırlı bayramlar. Dosyadaki formülleri makroya çevirebilir miyiz?

 

[Muhammet Okumuş]

Sub İşlem()
son = Cells(Rows.Count, 4).End(3).Row
For i = 7 To son
Cells(i, 21) = WorksheetFunction.Sum(Range("E" & i & ":T" & i))
Cells(i, 22) = WorksheetFunction.CountIf(Range("E" & i & ":T" & i), "R") + WorksheetFunction.CountIf(Range("E" & i & ":T" & i), "T") + WorksheetFunction.CountIf(Range("E" & i & ":T" & i), "S")
Cells(i, 23) = WorksheetFunction.CountIf(Range("E" & i & ":T" & i), "G")
Cells(i, 24) = WorksheetFunction.Count(Range("E" & i & ":T" & i))
Next
End Sub

Kodu deneyiniz.

 

[xemdarx]

Teşekkürler. Şunu da rica etsem yardımcı olur musunuz?

 

[Muhammet Okumuş]

Cells(i, "Y") = Sheets("mnc").Range("X5").Value
Cells(i + 1, "Y") = Sheets("mnc").Range("W5").Value

bu şekil yazmanız daha doğru olur.

 

[xemdarx]

Teşekkürler.