- Katılım
- 19 Ağustos 2006
- Mesajlar
- 527
- Excel Vers. ve Dili
- Office 2010 / Türkçe
ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="1 OF 1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="2 OF 2"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="3 OF 3"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="3 OF 3"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="4 OF 4"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
kodu 3 OF 3 yada 4 OF 4 son kriter ise macro dursun şeklinde nasıl derleyebiliriz
yani bakılan filitfede yazılan kurallar misal 100 OF 100 ama data 60 OF 60 ta bitiyor ise macronun kalan kısmı çalışmasın işlem sonuna gitsin.
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="2 OF 2"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="3 OF 3"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="3 OF 3"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveSheet.Range("$A$17:$I$672").AutoFilter Field:=1, Criteria1:="4 OF 4"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
kodu 3 OF 3 yada 4 OF 4 son kriter ise macro dursun şeklinde nasıl derleyebiliriz
yani bakılan filitfede yazılan kurallar misal 100 OF 100 ama data 60 OF 60 ta bitiyor ise macronun kalan kısmı çalışmasın işlem sonuna gitsin.