DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub yaz()
Dim excelwebtr As Integer
Dim sonsayfa As Integer
excelwebtr = InputBox("Tek sayılar için 1 , çift sayılar için 2 yazın.", "www.excel.web.tr")
sonsayfa = InputBox("Son sayfa numarasını yazın...", "www.excel.web.tr")
For emmi = excelwebtr To sonsayfa Step 2
ActiveWindow.SelectedSheets.PrintOut From:=emmi, To:=emmi, Copies:=1, Collate:=True
Next
End Sub