AccessTr.neT
Exceli Excele Aktarma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Exceli Excele Aktarma (/konu-exceli-excele-aktarma.html)



Exceli Excele Aktarma - DeLee - 05/07/2021

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


RE: Exceli Excele Aktarma - berduş - 05/07/2021

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ı?


RE: Exceli Excele Aktarma - berduş - 05/07/2021

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


RE: Exceli Excele Aktarma - berduş - 05/07/2021

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



RE: Exceli Excele Aktarma - feraz - 06/07/2021

(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



RE: Exceli Excele Aktarma - DeLee - 07/07/2021

(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