Makro İle Toplama İşlemi

[VoLRaTH]

Selamlar,

1000 adetlik bir rakam serisi var. Bu rakam serisi 9760004 ile başlıyor. Bir önceki rakamı, son rakamı 6 ise 4 ile toplamak değilse 11 ile toplamak gerekiyor.. Bunu makro olarak nasıl yazabilirim?

9760004 BAŞLANGIÇ
9760015 (+11)
9760026 (+11)
9760030 (+4)
9760041 (+11)
9760052 (+11)
9760063 (+11)
9760074 (+11)
9760085 (+11)
9760096 (+11)
9760100 (+4)

Teşekkürler,

 

[Murat OSMA]

Deneyiniz...

[SIZE="2"]Sub Emre()
    Dim i As Integer
    For i = 2 To 19
    If Right(Cells(i - 1, 1), 1) = 6 Then
    Cells(i, 2) = Cells(i, 1).Value + 4
    Else
    Cells(i, 2) = Cells(i, 1).Value + 11
    End If
    Next i: i = Empty
End Sub[/SIZE]