Makro ile toplam alma sorunu

[serkan guvenc]

Merhaba , worksheetfunction.sum özelliği alınamıyor hatası veriyordu
applicition sum özelliği kullanarak yapmaya çalıştım.
sonuçlar yanlış çıkıyor.
Yardımlarınızı bekliyorum Teşekkürler

 

[maliex]

Sub TOPLAM_()

Dim S1 As Worksheet

Set S1 = Sheets("Sayfa1")

SS1 = S1.Cells(S1.Rows.Count, 1).End(3).Row + 1

For X = 8 To 12
    S1.Cells(SS1, X) = WorksheetFunction.Sum(S1.Range(S1.Cells(2, X), S1.Cells(SS1 - 1, X)))
Next X


End Sub

 

[Mdemir63]

Selamlar

kodlarınızı aşağıdaki ile değiştirip deneyiniz

Cells(sonsatir + 1, 8) = WorksheetFunction.Sum(Sheets("Sayfa1").Range("H" & 2 & ":" & "H" & sonsatir))
Cells(sonsatir + 1, 9) = WorksheetFunction.Sum(Sheets("Sayfa1").Range("I" & 2 & ":" & "I" & sonsatir))
Cells(sonsatir + 1, 10) = WorksheetFunction.Sum(Sheets("Sayfa1").Range("J" & 2 & ":" & "J" & sonsatir))
Cells(sonsatir + 1, 11) = WorksheetFunction.Sum(Sheets("Sayfa1").Range("K" & 2 & ":" & "K" & sonsatir))
Cells(sonsatir + 1, 12) = WorksheetFunction.Sum(Sheets("Sayfa1").Range("L" & 2 & ":" & "L" & sonsatir))

yukarıdaki kodların yerine döngü ile

For i = 8 To 12
Cells(sonsatir + 1, i) = WorksheetFunction.Sum(Sheets("Sayfa1").Range(Cells(2, i), Cells(sonsatir, i)))
Next i

 

[serkan guvenc]

Çok teşekkür ederim

 

[Mdemir63]

Rica ederim.
İyi çalışmalar