Harflere değer atayıp makro ile toplatmak

[policeman]

Merhaba..
Örnek tablomda anlatmaya çalıştığım şekilde yardımlarınızı bekliyorum..
Saygılarımla..

Hata indir

Hata

www.dosyaupload.com

 

[YUSUF44]

Makroyu aşağıdakiyle değiştirebilirsiniz

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("T3:AG12")) Is Nothing Then Exit Sub
    s = Target.Row
    Cells(s, 16) = WorksheetFunction.CountIf(Range("T" & s, "AG" & s), "W") + WorksheetFunction.CountIf(Range("T" & s, "AG" & s), "X")
    Cells(s, 17) = WorksheetFunction.CountIf(Range("T" & s, "AG" & s), "W") * 3 + WorksheetFunction.CountIf(Range("T" & s, "AG" & s), "X") * 9
    Cells(s, 18) = WorksheetFunction.Sum(Range("T" & s, "AG" & s))
    Cells(s, 19) = WorksheetFunction.Count(Range("T" & s, "AG" & s))
End Sub

 

[policeman]

Sayın YUSUF44 çok teşekkürler..
Sorularım cevabını buldu; konu çözülmüştür..
Saygılarımla..