Sıra nolu etiket yazdırma

[bdrymrl]

Merhaba
Sıra no yu değiştirerek çıktı aldığım altta ki gibi bir makrom var.
Burada şunu değiştirmek istiyorum örn; 30-56 arası sayı çıktı almak istediğimde ilk no yu E13 E YAZDIRSIN sonra ardışık olarak E13-E38 arasında değişsin.
E13---30---32---34
E38--31---33---35 gibi.

Mevcut Makro;

Sub NUMARA_VER_YAZDIR()
Dim İLK_NO As Variant, SON_NO As Variant, NUMARA As Integer

İLK_NO = Application.InputBox("Lütfen ilk seri no giriniz.", "İLK SERİ NO", 1)
SON_NO = Application.InputBox("Lütfen son seri no giriniz.", "SON SERİ NO", 50)

If İLK_NO = "" Or SON_NO = "" Then Exit Sub
If İLK_NO = False Or SON_NO = False Then Exit Sub

For NUMARA = İLK_NO To SON_NO
Range("E13") = NUMARA
ActiveSheet.PrintOut
Next

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Necdet]

E13---30---32---34
E38--31---33---35 gibi.

Merhaba,

Yukarıdaki kısmı anlamadım.