Yazdırma Makrosu

[sevindi2002]

Merhaba,
Yardımlarınız için şimdiden Teşekkür ederim.


Sub gider()
If MsgBox("YAZDIRMAK İSTEDİGİNİZE EMİNMİSİNİZ?", vbYesNo) = vbNo Then Exit Sub
sor = InputBox("İLK NUMARAYI GİRİNİZ")
If sor = "" Then sor = 1
say = ActiveSheet.HPageBreaks.Count + Cells(i + 4, 2)
For a = 1 To say
[D4] = "" & a + sor - 1
ActiveSheet.PrintOut
Next
End Sub


Bu makro ile b4 hücresine yazdığım rakam kadar d4 hücresini 1' er artırarak yazdırıyorum.

İstedim ise 2' er artrarak yazmak

 

[halit3]

Merhaba,
Yardımlarınız için şimdiden Teşekkür ederim.


Sub gider()
If MsgBox("YAZDIRMAK İSTEDİGİNİZE EMİNMİSİNİZ?", vbYesNo) = vbNo Then Exit Sub
sor = InputBox("İLK NUMARAYI GİRİNİZ")
If sor = "" Then sor = 1
say = ActiveSheet.HPageBreaks.Count + Cells(i + 4, 2)
For a = 1 To say
[D4] = "" & a + sor - 1
ActiveSheet.PrintOut
Next
End Sub


Bu makro ile b4 hücresine yazdığım rakam kadar d4 hücresini 1' er artırarak yazdırıyorum.

İstedim ise 2' er artrarak yazmak

Kırmızı eklemeyi yapın

For a = 1 To say [COLOR=red][B]Step 2[/B][/COLOR]

 

[sevindi2002]

Kırmızı eklemeyi yapın

For a = 1 To say [COLOR=red][B]Step 2[/B][/COLOR]

Elinize Sağlık sayın halit3

Şimdi İkişer artırıyor ama 5 adet yazdır dediğimde 3 tane yazdırıyor. sebebi ne olabilir acaba.

 

[halit3]

Elinize Sağlık sayın halit3

Şimdi İkişer artırıyor ama 5 adet yazdır dediğimde 3 tane yazdırıyor. sebebi ne olabilir acaba.

Şimdi sayaç şu mantıkla çalışıyor siz 5 adet yazdığınızda koddaki a
1
3
5
olarak sonlanıyor başlangıç 1 olduğu için a nın aldığı değer ilk önce 1 olacaktır sonra bir atladığından anın değeri 2 olacağı yerde 3 olacaktır daha sonra bir daha atladığından 4 olacağı yerde 5 olacaktır. işlem bu mantıkla devam ediyor.

 

[sevindi2002]

Şimdi sayaç şu mantıkla çalışıyor siz 5 adet yazdığınızda koddaki a
1
3
5
olarak sonlanıyor başlangıç 1 olduğu için a nın aldığı değer ilk önce 1 olacaktır sonra bir atladığından anın değeri 2 olacağı yerde 3 olacaktır daha sonra bir daha atladığından 4 olacağı yerde 5 olacaktır. işlem bu mantıkla devam ediyor.

Teşekkürler Arkadaşım. Eline sağlık