- Katılım
- 23 Eylül 2004
- Mesajlar
- 91
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
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