Bir değişkeni kendisi ile toplatma.

[muratnazli]

Selamlar

Aşağıdaki örnek kodda a değişkenini kendisi ile toplatarak a'ların topamını bulmaya çalıştım ama bir yerde hata yapıyorum galiba bulamadım.

Yadrımcı olabilirseniz sevinirim.

a 15
b 20
c 30
a 15
b 20
c 30
a 15
b 20
c 30
a 15
b 20
c 30

Sub topla()
Dim a
For i = 1 To 15
If Cells(i, 1).Value = "a" Then
Cells(i, 2) = a
a = a + a
End If
Next i
End Sub

 

[ALPEN]

[vb:1:27947f2d13]Sub topla()
Dim a as integer
a=0
For i = 1 To 15
If Cells(i, 1).Value = "a" Then
a = a + Cells(i, 2)
End If
Next i
msgbox a
End Sub[/vb:1:27947f2d13]