Hatırlatma programı foruma eklenmiştir.
http://www.excelce.net/forum/index.php?topic=1661.0

Gönderen Konu: Makro ile istenilen adette yazdırma.  (Okunma sayısı 3600 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı srdkrtd

  • Excelce Onbaşı
  • **
  • İleti: 4
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Serdar KURTULDU
  • Doğum Yılınız: 1969
  • İl / İlçe: KKTC
  • İşletim Sisteminiz: win7
  • Mesleğiniz: Muhasebe
  • Office Versiyonunuz: office 2013
Makro ile istenilen adette yazdırma.
« : 28 Mart 2017, 11:48:20 »
Arkadaşlar merhaba, bir makrom var, bu makronun "AG2" hücresindeki sayı kadar tekrar etmesini ve makro çalışmaya başlamadan önce son bir uyarı mesajı verip onay istemesini ("AG2" hücresindeki sayı kadar örn: " 83 ADET BASKI YAPILACAK EMİN MİSİNİZ..! " istiyorum. Yardımlar için şimdiden teşekkür ederim.
Makro aşağıda:

Sub SIRALIYAZ()
'
' SIRALIYAZ Makro
' SIRALI YAZ
'

'
    Range("AD1").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]+1"
    Range("AD1").Select
    Selection.Copy
    Range("AC1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub