textbox'daki değer kadar döngü yaratma

[Kablelvuku]

Merhaba,

Bir textbox kutusuna yazılan rakamı örneğin 7, a2 hücresinden ve "1" rakamından başlayarak, bir arttırarak alt alta 7 ye kadar yazdırmaya çalışıyorum. Yani

a2=1
a3=2
a4=3
gibi

aşağıdaki kodu yazıyorum fakat hiçbir işlem yapmıyor yardımcı olabilir misiniz?

Sub manuel_data()

Dim i As Integer
Dim n As Integer

For i = 1 To n
n = TextBox2.Value

Cells(i + 1, 1) = i
Next i
End Sub

 

[askm]

Sub manuel_data()

Dim i As Integer
Dim n As Integer
n = TextBox2.Value
For i = 1 To n
        Cells(i + 1, 1) = i
Next i
End Sub

 

[Kablelvuku]

Sub manuel_data()

Dim i As Integer
Dim n As Integer
n = TextBox2.Value
For i = 1 To n
        Cells(i + 1, 1) = i
Next i
End Sub

Merhaba,

Object required hatası veriyor. Debug diyince de n=textbox2 satırına gidiyor.

Edit: formülü Module açıp onun içine yazıyordum. Fakat formülü ilgili textbox'ın bulunduğu commandbutton nesnesine atayınca çözüldü teşekkürler