Excel Vba Forum - Excelce.Net
SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: srdkrtd - 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