Hücreyi 1 'er artırarak Yazdırma

[mustafakayali]

Merhaba ilk önce bol bol araştırdığımı söyleyeyim hatta bir kaç kodda buldum ama kendime uyarlayamadığım için yapamadım benim sorunum şöyle
Bir buton tıkladığımda
ilk önce yazdırılabilir alanı yazdıracak ardından k7 hücresindeki değeri 1 artıracak

 

[necati]

Merhaba,

Sub YazVeSayaciArttir()
Range(ActiveSheet.PageSetup.PrintArea).PrintOut   'direkt yazdırmak için bunu aktif, alt satırı pasif yap'
'Range(ActiveSheet.PageSetup.PrintArea).PrintPreview  'ön izleme yapmak istersen bunu aktif, üst satırı pasif yap
[k7].Value = [k7] + 1
End Sub

 

[mustafakayali]

Hocam teşekkür ederim.
Elinize Sağlık.

 

[necati]

Rica ederim, kolay gelsin.