command buton ile inputbox çağırma

[kardelen045]

arkadaşlar useform üzerinde bir komut butonumuz var ben bunu tıkladığım zaman inputbox çıkacak ve ben veri girince bunu sayfa1 a1 hücresine yazacak ve yine inputbox çıkacak ve veriyi a2 atacak ve a5 hücresine kadar ben bunu yazdırabilirmiyim

 

[Mahmut Bayram]

Sub ekle()
Dim i
  For i = 1 To 5
    Cells(i, 1) = InputBox("Hücreye yazılacak değeri girin:")
  Next
End Sub

 

[conari]

isteginiz bumudur.?

 

[feraset045]

conarı usta seninkini uyarladım ama (x ve i 'yi tanımlamadan hata verdi)çok sağol ama bu inputboxın onay kısmını enter ile nasıl yapabiliriz yani mause ile "ok" düğmesine basmaktan ise enter ile daha hızlı yapmak istiyorum

 

[conari]

Hata vermemesi lazım ayrıca iki taraftaki Enterı da kullanabilirsiniz.
Oficce versiyonumuz da aynı.
Uyarladığınız dosyayı ekleyin isterseniz.