F:BQ aralığının toplamı

[kelkitli]

Selamlar,
Excel sayfasında 5.satırdan en son dolu satıra kadar F:BQ aralığının toplamlarını BP sütununa almak istiyorum.

Kod: [Seç]

Private Sub CommandButton3_Click()
For i = 5 To Range("E65536").End(3).Row
Cells(i, "BP") = Cells(WorksheetFunction.Sum(Range("(i,"F":i,BO"))
Next
End SubŞeklinde yazdım, olmadı.

[Bülent Öztürk]

Merhaba Necmettin Bey.

Şöyle dener misiniz?

Kod: [Seç]

For i = 5 To Range("E65536").End(3).Row
Range("BP" & i) = WorksheetFunction.Sum(Range("F" & i & ":BQ" & i))
Next


[kelkitli]

Teşekkür ederim Bülent Bey.

[Bülent Öztürk]

Rica ederim.
Çalışmalarınızda başarılar.

[kelkitli]

Bülen Bey, Şöyle olabilirmi?
Bu alandaki font rengi kırmızı olan sayıları toplayabilirmiyiz.

[Bülent Öztürk]

Mevcut formüller ile olmaz. Kullanıcı tanımlı yazmak gerekir.

[kelkitli]

Peki Bülent Bey, teşekkür ederim.
KTF ile sanırım yaparım.

Kod: [Seç]

Function Bicimegoretopla(Referanshucre As Range, Aralık As Range)
Dim rhucre As Range
Dim Kacıncı As Boolean
Dim Sonuc

 For Each rhucre In Aralık
    With rhucre
        Kacıncı = (Referanshucre.Interior.ColorIndex = _
        .Interior.ColorIndex And _
        Referanshucre.Font.ColorIndex = _
        .Font.ColorIndex And _
        Referanshucre.Font.Bold = _
        .Font.Bold And _
        Referanshucre.Font.Italic = _
        .Font.Italic And _
        Referanshucre.Font.Underline = .Font.Underline)
   End With
         If Kacıncı = True Then
            Sonuc = WorksheetFunction.Sum(rhucre) + Sonuc
         End If
 Next rhucre

Bicimegoretopla = Sonuc
End Function
Böyle biir KTF var. Ama benim işlemime çokda uygun değil.

[kelkitli]

Değerli arkadaşlar,
şu şekilde bir çözüm hazırlamak mümkünmü?
F:BO aralığında F sütunundan itibaren 1 er aralıklı yani step2 olarakiç içe 2 döngü ile toplam alsak diyorum.
Döngü yukarda yazılı işlemi yaparken diğer döngüde satırda birer aralıklı toplam işini yapsın.

Kod: [Seç]

Private Sub CommandButton3_Click()
For i = 5 To Range("E65536").End(3).Row
For j=7 To 67 Step2
Cells(i, "BP") = "Sırayla satırların F:BO aralığının step2 olarak toplamını alsın"
Next i
Next j
End Sub

[Rami]

Merhaba Sn kelkitli.
Sütunları birer, toplamak için.

Kod: [Seç]

Private Sub CommandButton1_Click()
a = Range("E65536").End(xlUp).Row
Cells(a, "BP") = WorksheetFunction.Sum(Range("e" & a & ":BO" & a))
End Sub
Sütunları "f" sütunundan ("f" sütununun son satırı dahil ) itibaren bir atlayarak son satırları  toplamak için:

Kod: [Seç]

Private Sub CommandButton2_Click()
a = Range("f65536").End(xlUp).Row
For b = 6 To 66
c = Cells(a, b)
d = d + c
b = b + 1
Next
Cells(a, 68) = d
End Sub
Gibi deneyebilirsiniz.

[kelkitli]

Sayın Rami, cevabınızdan dolayı teşekkür ederim.
Konunun açıklığa kavuşması için şöyle bir izah şekli düşündüm.
Formül olarak şu işlemi "a" olarak isimlendireyim.
BP5 hücresine
=F5+H5+J5+L5+N5+P5+R5+T5+V5+X5+Z5+AB5+AD5+AF5+AH5+AJ5+AL5+AN5+AP5+AR5+AT5+AV5+AX5+AZ5+BB5+BD5+BF5+BH5+BJ5+BL5+BN5
Bu demek 1 er sütun atlayarak toplamak demek. F toplama dahil G haric H dahil I hariç şeklinde.

Kod: [Seç]

Private Sub CommandButton3_Click()
For i = 5 To Range("E65536").End(xlUp).Row
Cells(i, "BP") = a
Next
End SubYani şu satır işlevini yukardaki şekilde yürütmeli.

Kod: [Seç]

Cells(i, "BP") = WorksheetFunction.Sum(Range("f" & i & ":BO" & i))

[Rami]

Aşağıdaki örneklerdeki gibi olabilir.
(Yukarıdaki "CommandButton2" deki kod bu işleme uygun şekilde değişti.)

Kod: [Seç]

Private Sub CommandButton2_Click()
[BP5] = ""
a = Range("E65536").End(xlUp).Row
For b = 6 To 66
[BP5] = WorksheetFunction.Sum([BP5], Cells(a, b))
b = b + 1
Next
End Sub
veya

Kod: [Seç]


a = Range("E65536").End(xlUp).Row
 For b = 6 To 66
X = WorksheetFunction.Sum(X, Cells(a, b))
b = b + 1
Next
Cells(a, 68) = X


[kelkitli]

Selamlar,
Sayın Rami şu şekilde tamam.
Teşekkür ederim.

Kod: [Seç]

Private Sub CommandButton3_Click()
For i = 5 To Range("E65536").End(3).Row
For b = 6 To 66
Range("BP" & i) = WorksheetFunction.Sum(Cells(i, "BP"), Cells(i, b))
b = b + 1
Next
Next
End Sub