Satır aralığını toplama makrosu

[kargin42]

İyi günler. Yapmaya çalıştığı programda personelin haftalık ders saatini toplayıp ona göre hesaplama yapmak istiyorum. Çalışma sayfasında B sütununda bulunan değere göre (örnek "100" gibi) o satırlardaki "M - S" sütunları arasını toplamak istiyorum. Aşağıdaki yazdığım formülde sadece M ve S sütunundaki değerleri topluyor. Aradaki N, O, P, Q ve R sütunlarını toplama dahil etmiyor. Yardımcı olabilirseniz sevinirim.

If Cells(satir, VERITIP_STN).Value = 100
toplam = Cells(satir, HAFTA_ILKSTN) + Cells(satir, HAFTA_SON).Value

 

[uzmanamele]

Merhaba
Deneyiniz

toplam = SUM(Range(Cells(satir, HAFTA_ILKSTN) &":"& Cells(satir, HAFTA_SON))

 

[kargin42]

Denedim olmadı.

 

[Korhan Ayhan]

Deneyiniz.

toplam = WorksheetFunction.Sum(Range(Cells(satir, HAFTA_ILKSTN), Cells(satir, HAFTA_SON)))

 

[kargin42]

Teşekkür ederim. Şimdi oldu.