EXCEL VBA İLE FARKLI KAYDET BUTONU

[erhnyldz]

Merhaba herkese iyi günler ;

yapmış olduğum bir excel kitabı ve içerisinde 6 ayrı çalışma sayfası bulunmakta ben bir buton ekleyerek değişken bir hücrenin ismi ile A çalışma sayfasını masaüstüne farklı olarak kaydetmek istiyorum.Yardımcı olursanız çok sevinirim

 

[AdemCan]

Merhaba, buton kodlarına ekleyip dener misiniz?

- A1 hücresine Sekme İsmini yazınız.
- kullanıcıadı yazan kısımı bilgisayarınızdaki kullanıcı ismine göre değiştiriniz.

Application.ScreenUpdating = False
    sekme_ismi = Range("A1")
    
    Sheets(sekme_ismi).Copy
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\kullanıcıadı\Desktop\" & sekme_ismi & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    
Application.ScreenUpdating = True

 

[erhnyldz]

Merhaba, buton kodlarına ekleyip dener misiniz?

- A1 hücresine Sekme İsmini yazınız.
- kullanıcıadı yazan kısımı bilgisayarınızdaki kullanıcı ismine göre değiştiriniz.

Application.ScreenUpdating = False
    sekme_ismi = Range("A1")
   
    Sheets(sekme_ismi).Copy
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\kullanıcıadı\Desktop\" & sekme_ismi & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
   
Application.ScreenUpdating = True

öncelikle ilginiz için çok teşekkür ederim kodu uyguladığımda ekranda farklı bir excel sayfası açıp sadece o çalışma sayfasını getiriyor ben ise buton a her tıkladığımda mümkünse pdf veya hiç açılmadan çalışma sayfası olarak kaydetmek istiyorum

 

[AdemCan]

Merhaba,
Rica ederim. Kodları deneyip paylaşmıştım. Oluşturulan Excel dosyası ekrana gelmeden masaüstüne kayıt ediliyor.

Örnek bir dosya ekliyorum, hem Pdf hem de Excel olarak kayıt ediyor.

Not: Dosya güncellendiği için yenisi eklenmiştir.

Dosyayı indirmek için tıklayınız.

 

[oydemir]

AdemCan bey
Güzel bir çalışma olmuş bir şey sormak isterim birden bende sayfa1 de a1 hücresinden a200 hücresine kadar dosya isimleri var bunları toplu olarak nasıl kaydederim

 

[AdemCan]

Merhaba, örnek dosya ile olması gerekeni paylaşır mısınız?

 

[oydemir]

teşekürler

 

[ayhan518]

Merhaba. iş yerinde kullanmış olduğum excel dosyamda yaptığım değişikliği makro ile yeni bir excel dosyası yapıyordum ama yapılan son güncelleme sonrası kod artık çalışmıyor. çalışma sayfasını farklı bir excel dosyası olarak kaydedemiyorum. sorunun iş yerimdeki güncelleme sonrası bir güvenlik önlemimi olduğu yoksa sürüm farkı nedeniyle mi olduğunu bilemiyorum. Bu konu da yardımınıza ihtiyacım var. kullandığım kodu ekliyorum. yardımlarınız için şimdiden teşekkür ederim.

isim1 = Sheets("Genel").Range("A3").Value
    isim2 = Sheets("Genel").Range("A4").Value

      Application.DisplayAlerts = False
    Sheets("Yoklama").Select
    Sheets("Yoklama").Copy
        ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "/" & "Deneme_" & isim1 & "_" & isim2 & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
 MsgBox "YOKLAMA İÇİN YENİ EXCEL SURETİ OLUŞTURULDU", 64

 

[Korhan Ayhan]

Merhaba,

F8 tuşu ile kodu adım adım çalıştırdığınızda hangi hata oluşuyor?