Soru Sum toplama

[Cengizhantr06]

Nerede hata yapıyorum

Sheets("10gun").Value("B23") = Application.WorksheetFunction.Sum(Sheets("10gun").Range("B5:B22"))
Sheets("10gun").Value("C23") = Application.WorksheetFunction.Sum(Sheets("10gun").Range("C5:C22"))
Sheets("10gun").Value("D23") = Application.WorksheetFunction.Sum(Sheets("10gun").Range("D522"))
Sheets("10gun").Value("E23") = Application.WorksheetFunction.Sum(Sheets("10gun").Range("E5:E22"))
Sheets("10gun").Value("F23") = Application.WorksheetFunction.Sum(Sheets("10gun").Range("F5:F22"))
Sheets("10gun").Value("G23") = Application.WorksheetFunction.Sum(Sheets("10gun").Range("G5:G22"))
Sheets("10gun").Value("H23") = Application.WorksheetFunction.Sum(Sheets("10gun").Range("H5:H22"))

 

[Necdet]

Merhaba,

Sheets("10gun").("B23") = Application.WorksheetFunction.Sum(Sheets("10gun").Range("B5:B22"))

olarak kullanın.

 

[Cengizhantr06]

Merhaba,

Sheets("10gun").("B23") = Application.WorksheetFunction.Sum(Sheets("10gun").Range("B5:B22"))

olarak kullanın.

Teşekkür ederim Hepsini döngü içinde nasıl yaparız ?

 

[Necdet]

Merhaba,

Deneyiniz.

    Dim i As Integer
    
    For i = 2 To 8
        Cells(23, i) = Application.WorksheetFunction.Sum(Range(Cells(5, i), Cells(22, i)))
    Next i

 

[Cengizhantr06]

Merhaba,

Deneyiniz.

    Dim i As Integer
   
    For i = 2 To 8
        Cells(23, i) = Application.WorksheetFunction.Sum(Range(Cells(5, i), Cells(22, i)))
    Next i

Çok teşekkür ederim Necdet Bey

 

[Necdet]

Rica ederim, güle güle kullanınız.