(05/07/2021, 22:14)berduş yazdı: kabaca aşağıdaki kod işinize yarar
sayfa isimlerini ben 1,2,3,4 olarak aldım siz kendi dosyanızdaki isimleri verirsiniz.

Sub ODSYap_Tıkla()

    Dim wkb As Workbook



    'Adding New Workbook

    Set wkb = Workbooks.Add

    For x = 2 To 5

        ThisWorkbook.Sheets("Sayfa" & x).Copy After:=wkb.Sheets(wkb.Sheets.Count)

    Next x

wkb.SaveAs ThisWorkbook.Path & "\" & "dosya_Adı" & ".ods", FileFormat:=60

End Sub

Teşekkür ederim

---

(06/07/2021, 00:22)feraz yazdı:

(05/07/2021, 12:15)DeLee yazdı: 5.sayfa hariç (makro komutunun bulunduğu sayfa) 4 çalışma sayfasının çıktısını alabilecek nasıl bir komut uygulayabilirim

Sub yazdir()

    Dim syf As Worksheet

    For Each syf In ThisWorkbook.Worksheets

        If Not syf.Name = "Sayfa5" Then syf.PrintOut

    Next

End Sub

Teşekkür ederim