for next toplama

[mesudiye_052]

Selamlar,

ağaşıdaki kodla çalışma sayfasının her hangi bir yerindeki sayıları
toplayabiliyorum
Mesala (A1:B10,C9) arasını da topluyor

sorum
bunu For Each yerine;
For Next, Do - Loop ve Goto döngüleriyle nasıl yaparız
Not:bu sorumda amaç döngüleri daha iyi kavramak istememdir

Option Explicit
Public Sub Toplama()
Dim Rng As Range, Hcr As Range, lTopla As Long

    Set Hcr = Application.InputBox(prompt:="Lütfen toplamak" & _
              "istediğiniz alanı seçiniz...", Type:=8)
    On Error Resume Next
    For Each Rng In Hcr
             lTopla = lTopla + Rng
    Next Rng
    Set Hcr = Nothing
    MsgBox lTopla

End Sub

Saygılar

 

[Orion1]

Bu şekli ile döngüye girmek sizin kullandığınız en doğru yöntemdir.
Yani seçipte toplam almak konusu demek istedim.

 

[hamitcan]

Bu şekli ile döngüye girmek sizin kullandığınız en doğru yöntemdir.
Yani seçipte toplam almak konusu demek istedim.

Öncelikle, Evren Hocam'a katılıyorum. Ama amacınız öğrenmek olduğu için bir örnek yaptım.

Sub ForNext_ile()
    Dim Hcr As Range, lTopla As Long
    Dim x As Integer, x1 As Integer, y As Integer, y1 As Integer
    Dim i As Integer, j As Integer, t As Long
        Set Hcr = Application.InputBox(prompt:="Lütfen toplamak" & _
                  "istediğiniz alanı seçiniz...", Type:=8)
    x = Range(Hcr.Address).Row
    x1 = Range(Hcr.Address).Rows.Count + x
    y = Range(Hcr.Address).Column
    y1 = Range(Hcr.Address).Columns.Count + y
        For i = y To y1
        For j = x To x1
         lTopla = Cells(j, i) + lTopla
        Next
        Next
        Set Hcr = Nothing
        MsgBox lTopla
End Sub

 

[mesudiye_052]

Selamlar;

Sayın Evren Gizlen
Sayın Hamitcan

İlginize çok teşekkür ederim

Saygılar