Aradaki Değeri Otomatik Yapıştırma

[xwyz1]

İlk textbox nesnesine ilk değeri giriyorum
İkinci textbox nesnesine son değeri giriyorum.
İstediğim, ekle dediğimde alt alta diğer seri numaraları ile birlikte son değere kadar kopyalaması. Nasıl bir kod ekleyebiliriz?

  Ad     İlk No   Son No
Turuncu    5         10            [Ekle]

A1) Turuncu 5
A2) Turuncu 6
A3) Turuncu 7
A4) Turuncu 8
A5) Turuncu 9
A6) Turuncu 10

 

[hamitcan]

Küçük bir dosya ekleyin, daha çabuk cevap bulabilirsiniz.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

For a = TextBox1 To TextBox2
c = c + 1
Cells(c, "a") = "Turuncu " & a
Next

 

[xwyz1]

Teşekkürler işe yaradı.