aralık yazdırmak

[sametumur]

arkadaşlar merhaba,

oluşturduğum userformda şöyle bir şey istiyorum. oluşturduğum butona "buton1" tıklayınca karşıma iki farklı rakam girebileceğim bir seçenek gelsin. sonra tamam seçeneğine veya ok seçeneğine bastığımda excell dosyasında sayfa1 de yer alan A1 hücresine yazdığım aralıktaki rakamları tek tek yazıp her birinin arasında da yazdır butonunu kullansın. yazdır ın butonunun ismi de "buton2"

örn.: yazdığım aralık 5-10 olsun. tamam seçeneğine tıkladığımda 5 ile 10 arasındaki rakamların her birini hücreye yazıp yazdırsın istiyorum.

5 yazdır, 6 yazdır, 7 yazdır..... 10 yazdır istiyorum. bunu tek bir komutla yapabilir miyim?

not: a1 hücresine bağlı "ara" formülü kullanarak bi rapor oluşturdum ve bunları tek tek çıktı almak istiyorum amacım bu.

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz...

Sub Kod()
Set s1 = Sheets("Sayfa1")
ilk = Application.InputBox("İlk sayıyı giriniz.", Type:=1)
son = Application.InputBox("Son sayıyı giriniz.", Type:=1)
For a = ilk To son
    s1.Range("A1").Value = a
    s1.PrintOut
Next
End Sub

 

[sametumur]

denemesini henüz yaptım, teşekkür ederim ellerinize sağlık tam istediğim gibi olmuş.