• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

mustafakayali

Altın Üye
Katılım
17 Şubat 2020
Mesajlar
19
Excel Vers. ve Dili
office 2024 pro plus
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
 
Son düzenleme:
Merhaba,
Kod:
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
 
Rica ederim, kolay gelsin.
 
Geri
Üst