Sayıları arttırma ve yazıcıya gönderme

[ercev]

Merhabalar arkadaşlar,sorum size biraz basit gelebilir ama ben kıvıramadım yapayı. Şöyle ki bir excel tablosunda 3 tane hücrem var bunlarda 1 , 2 ve 3 yazılı bir tane hücremde de 50 yazılı benim amacım bir tuş koyup bu 1 , 2 ve 3 ü diğer hücredeki sayıya ulaştırana kadar teker teker yükseltmek ve yazdırmak. yani 1,2,3 tuşa bas yazsın sonrasında 4,5,6 yazsın 7,8,9 yazsın tabii bir kere tuşa basılacağı için yazdırma işlemini her seferinde kendi yaptıracak yazdırma hızı önemli değil buradaki tek amacım o hücrelerin hanelerini arttırmak. bunun için bana yardımcı olabilir misiniz? Şimdiden çok teşekkür ederim değerli bilgilerinizi paylaştığınız için.

 

[YUSUF44]

Örnek bir dosya eklemek ya da bahsettiğiniz hücre adreslerini belirtmek çözüme ulaşmayı kolaylaştırır.

 

[ercev]

a1 hücresinde 1 , b1 hücresinde 2 ,c1 hücresinde 3 yazıyor. a3 hücresinde de 50 yazılı. tuşu istediğiniz yerde düşünebilirsiniz.

 

[Emir Hüseyin Çoban]

. . .

Sub kod()

For i = Range("A1") To Range("A3") Step 3
Range("A1") = i
Range("B1") = i + 1
Range("C1") = i + 2
ActiveSheet.PrintOut
Next i

End Sub

. . .