Skip to main content

AccessTr.neT


Exceli Excele Aktarma

Exceli Excele Aktarma

Çözüldü #1
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
Cevapla
#2
Visual Basic Code
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ı?
Cevapla
#3
Çalışmanızı eklemeniz çözümü kolaylaştırır
Cevapla
#4
kabaca aşağıdaki kod işinize yarar
sayfa isimlerini ben 1,2,3,4 olarak aldım siz kendi dosyanızdaki isimleri verirsiniz.
Visual Basic Code
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
Cevapla
#5
(05/07/2021 12:15)DeLee Adlı Kullanıcıdan Alıntı: 5.sayfa hariç (makro komutunun bulunduğu sayfa) 4 çalışma sayfasının çıktısını alabilecek nasıl bir komut uygulayabilirim

Visual Basic Code
Sub yazdir()
    Dim syf As Worksheet
    For Each syf In ThisWorkbook.Worksheets
        If Not syf.Name = "Sayfa5" Then syf.PrintOut
    Next
End Sub
Cevapla
#6
(05/07/2021 22:14)berduş Adlı Kullanıcıdan Alıntı: kabaca aşağıdaki kod işinize yarar
sayfa isimlerini ben 1,2,3,4 olarak aldım siz kendi dosyanızdaki isimleri verirsiniz.
Visual Basic Code
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
Visual Basic Code
Teşekkür ederim

(06/07/2021 00:22)feraz Adlı Kullanıcıdan Alıntı:
(05/07/2021 12:15)DeLee Adlı Kullanıcıdan Alıntı: 5.sayfa hariç (makro komutunun bulunduğu sayfa) 4 çalışma sayfasının çıktısını alabilecek nasıl bir komut uygulayabilirim

Visual Basic Code
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
Son Düzenleme: 07/07/2021, 17:51, Düzenleyen: DeLee.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task