For döngüsünü Do While'a çevirmek

[Dark Templars]

n sayısına kadar olan cıft sayıları hucerelere yazdıran programı for dögüsü ile yaptım.Şimdi Do While döngüsüyle yapmam gerekiyor.Yardımcı olursanız sevinirim

Sub Örnek5()
Dim Hak As Integer
n = InputBox("Sayiyi Giriniz")
t = 1
c = 0
For a = 1 To 20
İf a Mod 2 = 0 Then
c = t * a
End If
Cells(a, 1).Value = c
Next
End Sub

Bunu do while ile yapmam lazım.Çok acil
Yardım edeceklere şimdiden teşekkür ederim

 

[Dark Templars]

Ben biraz uğraştım

Sub hakan()
Dim Hak As Integer

n = InputBox("Sayiyi Giriniz")

t = 0
c = 0


Do While n <> 20
If a Mod 2 = 0 Then
c = t * a
End If
Cells(a, 1).Value = c
Loop
End Sub

Cells'de hata veriyor.Nerede yanlış yapıyorum anlamadım

 

[Dark Templars]

Flood olucak ama kusura bakmayın
Çok acil yetiştirmem lazım lütfen yardım edin

 

[Dark Templars]

Son Dakikalarım

 

[Korhan Ayhan]

Selamlar,

Sorularınızı sorarken acil yazmayınız. Forum kurallarını okuyunuz.

Aşağıdaki örnek kodu inceleyin.

Option Explicit
 
Sub DO_WHILE_DÖNGÜSÜ()
    Dim SAYI As Variant, VERİ As Long, SATIR As Long
    
    SAYI = InputBox("Bir sayı giriniz.")
    If SAYI = "" Then Exit Sub
    VERİ = 1
    SATIR = 1
    Columns(1).ClearContents
    
    Do While VERİ <= SAYI
        If VERİ Mod 2 = 0 Then
            Cells(SATIR, 1) = VERİ
            SATIR = SATIR + 1
        End If
        VERİ = VERİ + 1
    Loop
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub