baydeniro
Altın Üye
- Katılım
- 26 Ocak 2007
- Mesajlar
- 4,625
- Excel Vers. ve Dili
- Ofis 2016
- Altın Üyelik Bitiş Tarihi
- 20-02-2025
Merhaba arkadaşlar. Koşullu print alma ile ilgili bir makro yazmaya çalıştım. Ustaların yardımına gereksinmem var. Makronun mantığı şu :
3 adet makro var. H1 hücresindeki değer 999 'a eşitleninceye kadar makro döngüsü çalışmalı.
Sub Makro1()
Sheets("Sayfa2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Sub Makro2()
Application.Run "'Kosullu Print Al.xls'!Makro3"
Range("A1").Select
End Sub
Sub Makro3()
Sheets("Sayfa2").Select
Range("G1").Select
Selection.Copy
Range("F1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.Run "'Kosullu Print Al.xls'!Makro1"
Application.Run "'Kosullu Print Al.xls'!Makro2"
End Sub
3 adet makro var. H1 hücresindeki değer 999 'a eşitleninceye kadar makro döngüsü çalışmalı.
Sub Makro1()
Sheets("Sayfa2").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Sub Makro2()
Application.Run "'Kosullu Print Al.xls'!Makro3"
Range("A1").Select
End Sub
Sub Makro3()
Sheets("Sayfa2").Select
Range("G1").Select
Selection.Copy
Range("F1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Application.Run "'Kosullu Print Al.xls'!Makro1"
Application.Run "'Kosullu Print Al.xls'!Makro2"
End Sub