Rakamları artırarak yazdırmak

[cevatyildiz]

Selamlar,

Çok ilginç bir sorum var ki tarifini bile yapmak güç Ekteki dosyada girilen iki değer kullanılarak o değerler arasını barındıracak şekilde print almak mümkün olur mu acaba?

 

[cevatyildiz]

Şöyle birşey yaptım
Option Explicit

Sub printLabels()
Dim FirstLabel As Long
Dim LastLabel As Long
Dim i As Long
FirstLabel = Cells(74, 4).Value
LastLabel = Cells(75, 4).Value

For i = FirstLabel To LastLabel Step 2
Cells(48, 5).Value = i
Cells(69, 5).Value = i + 1
'ActiveSheet.PrintPreview'<use to test
ActiveSheet.PrintOut
Next i

End Sub

 

[cevatyildiz]

tesekkurler...