hücre değerine göre yazdırma

[burhancavus61]

kapak sayfasındaki d17 hücresinin değeri 1-6 arasındadır. değer 1 ise 1.Senet sayfasını yazsın değer 2 ise 1.Senet ve 2.Senet sayfalarını yazsın değer 3 ise 1.Senet 2.Senet ve 3.Senet sayfalarını yazsın bu şekilde 6 sayfayı yazdırmak istiyorum. yardımlarınızı bekliyorum. Anlayacağınız hücre değerine göre sayfa çıktısı almak istiyorum. Şimdiden teşekkürler

 

[Skorpiyon]

Sayın burhancavus,

Sabahın bu saatinde aklıma gelen en kolay yol, kodları bir butona bağlayın.

Sub Makro1()
Application.ScreenUpdating = False
If Range("D17").Value = 1 Then
Sheets("1.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ElseIf Range("D17").Value = 2 Then
Sheets("1.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("2.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ElseIf Range("D17").Value = 3 Then
Sheets("1.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("2.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("3.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ElseIf Range("D17").Value = 4 Then
Sheets("1.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("2.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("3.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("4.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ElseIf Range("D17").Value = 5 Then
Sheets("1.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("2.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("3.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("4.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("5.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ElseIf Range("D17").Value = 6 Then
Sheets("1.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("2.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("3.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("4.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("5.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("6.Senet").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Application.ScreenUpdating = True
End Sub

 

[putedan]

vay be sene 2013 ve bu benim inanılmaz işime yaradı tşk dostlar