• DİKKAT

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

sayfayı yazdırdığın zaman otomatik sayı versin

Merhaba,

ThisWorkbook'un kod sayfasına aşağıdaki kodları kopyalayınız.
Kod: 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Sayfa1").[C4] = Sheets("Sayfa1").[C4] + 1
End Sub
 
ilginize ve yardımınız için teşekkür ederim sayın yeşertener
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst