Exceli Excele Aktarma

iyi günler arkadaşlar
bir Excel dosyam(makro içerebilen çalışma kitabı) var içerisinde 5 çalışma sayfasından oluşan veri ve tablo bulunmakta bu Excel dosyamı sayfa biçimleri ile aynı şekilde aynı dosya konumunda başka bir Excel dosyası oluşturarak dosya ismini bir hücreden seçerek 4 çalışma sayfasını buraya aktarmak istiyorum dosya uzantısı ods olacak şekilde makro ile nasıl yazılabilir

Birde yazdır komutunu tek bir buton ile 5.sayfa hariç (makro komutunun bulunduğu sayfa) 4 çalışma sayfasının çıktısını alabilecek nasıl bir komut uygulayabilirim

Yardımcı olabilirmisiniz

ThisWorkbook.SaveAs pathDest & nameFile & ".ods", FileFormat:=60

bu kod ile dosyanızı ods formatında kaydedebilirsiniz
sayfaları sadece veri + biçim olarak mı aktaracaksınız? sayfada kodlar varsa kod da aktarılacak mı?

Çalışmanızı eklemeniz çözümü kolaylaştırır

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

(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

(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