Print Makrosu Hk

[unsal_34]

Merhaba Arkadaşlar,

Bir konuda sizin desteğinize ihtiyacım var. Bir excel dosyasında sayı olan belli bir alanı print edeceğim fakat print ederken dosyadaki A3 kısmı sayı olan +1 olarak artmasını istemekteyim. Bunun için yardımınızı rica ederim.

 

[askm]

Aşağıdaki kod işinize yarar mı? Tam olarak anlayamadım. Bir tuşa basım örneğin 10 çıktı almak ise döngü gerekir.

Sub Button3_Click()
ActiveSheet.PageSetup.PrintArea = "$A$1:$A$4"
ActiveWindow.SelectedSheets.PrintPreview
[a3] = [a3] + 1
End Sub

 

[unsal_34]

Aşağıdaki kod işinize yarar mı? Tam olarak anlayamadım. Bir tuşa basım örneğin 10 çıktı almak ise döngü gerekir.

Sub Button3_Click()
ActiveSheet.PageSetup.PrintArea = "$A$1:$A$4"
ActiveWindow.SelectedSheets.PrintPreview
[a3] = [a3] + 1
End Sub

Yardımınız için teşekkürler, biraz düzenleme ile tam istediğim gibi oldu.

Sub Button3_Click()
A = InputBox("Kaç Tane Basılacak!")
ActiveSheet.PageSetup.PrintArea = "$A$1:$A$4"
ActiveWindow.SelectedSheets.PrintOut
[a3] = [a3] + 1
End Sub

 

[askm]

Sayın unsal_34 bence eksik gibi geldi. Kaç Tane Basılacak sorusunun cevabı A ya atanıyor ama A yı bir yerde kullanmıyorsunuz.
for i=1 to A şeklinde yapmanız gerek bence.

 

[unsal_34]

Benim düzenlediğim excel ektedir. Bir sorun var mı kontrol eder misiniz? Bana sorunsuz gibi geldi.

 

[unsal_34]

Evet sorunu şimdi gördüm. kaç tane basılacak sorusuna 10 bile girsem sadece +1 adet yükseltiyor. Bunu nasıl düzeltebilirim hocam.

 

[askm]

Sub Button3_Click()
A = InputBox("Kaç Tane Basılacak!")
For i = 1 To A
ActiveSheet.PageSetup.PrintArea = "$A$1:$A$4"
ActiveWindow.SelectedSheets.PrintOut
[a3] = [a3] + 1
Next
End Sub

 

[unsal_34]

Hocam birde print tıkladıktan sonra cancel veya ok tıklandığında hataya düşmektedir. Bunu nasıl düzeltebilirm.