Koşullu Print Al

[baydeniro]

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

 

[baydeniro]

Arkadaşlar bu konu hakkında bilgi verebilecek bir uzman var mı !! Zaman ayıranlar için Teşekkür ederim.

 

[baydeniro]

Arkadaşlar bu konu hakkında bilgi verebilecek bir uzman var mı !! Zaman ayıranlar için Teşekkür ederim.