Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 06-04-2016, 19:09   #1
kadir78
 
Giriş: 06/04/2016
Mesaj: 86
Excel Vers. ve Dili:
office 2010
Varsayılan Çalışma Sayfalarını Farklı Kaydetme

excel dosyası içerisinde 7 adet çalışma sayfası bulunuyor. birinci çalışma sayfası hariç diğer 6 adet sayfasını makro kodlarıyla butona tıklayarak farklı kaydet yapılabilirmi. mesela 7 adet çalışma sayfasının 1,3,5 nolu sayfalarını tek butonla farklı bir klasörün içine faklı kaydet yapılabilirmi, faklı kaydedilen çalışma sayfaları tek excel dosyasında olacak şekilde yapılabilirmi acaba.

aşağıdaki macro ile çalışma kitabını butona tıklayarak isim veriyorum ve bir çok yere yedeleyebiliyorum, fakat benim istediğim 7 çalışma sayfasının birincisi hariç diğer altısını tek excel dosyasına farklı kaydet yapmak

Sub yedekal()
Dim dosya, isim, ydk, ydk2, ydk3, ydk4 As String
On Error Resume Next

dosya = ActiveWorkbook.Name
isim = "" & dosya & ".xlsm"
ydk = "C:\yedek\" & isim & ""
ydk2 = "C:\yedek 2\" & isim & ""
ydk3 = "C:\yedek 3\" & isim & ""
ydk4 = "C:\yedek 4\" & isim & ""

ActiveWorkbook.SaveCopyAs ydk
ActiveWorkbook.SaveCopyAs ydk2
ActiveWorkbook.SaveCopyAs ydk3
ActiveWorkbook.SaveCopyAs ydk4

End Sub



Bu konu hakkında bana yardımcı olursanız sevinirim. iyi günler.

Bu mesaj en son " 06-04-2016 " tarihinde saat 19:28 itibariyle kadir78 tarafından düzenlenmiştir....
kadir78 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-04-2016, 00:26   #2
kemalist
Altın Üye
 
kemalist kullanıcısının avatarı
 
Giriş: 04/06/2008
Şehir: ESKİŞEHİR
Mesaj: 671
Excel Vers. ve Dili:
Excel 2016
Varsayılan

Makro ile kopyala-Özel yapıştır olarak yapılablir.Örnek dosya eklerseniz daha iyi yardımcı olunur.
kemalist Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-04-2016, 08:31   #3
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,643
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Aşağıdaki kodu deneyiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub YEDEK_AL()
    Dim Yol As String, Dosya_Adi As String
    
    Application.ScreenUpdating = False
    Dosya_Adi = "Yedek_" & ThisWorkbook.Name
    Yol = "C:\YEDEK"
    If Dir(Yol, vbDirectory) = "" Then MkDir (Yol)
    
    Sheets(Array("Sayfa2", "Sayfa3", "Sayfa4", "Sayfa5", "Sayfa6", "Sayfa7")).Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Yol & "\" & Dosya_Adi, FileFormat:=52
    ActiveWorkbook.Close 0
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
    MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
End Sub
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 07-04-2016, 23:43   #4
kadir78
 
Giriş: 06/04/2016
Mesaj: 86
Excel Vers. ve Dili:
office 2010
Varsayılan

Korhan Bey çok teşekkür ederim. Tam istediğim de buydu zaten.
Altın Üye olmak istiyorum, ne gerekiyor acaba. Yardımcı olursanız sevinirim. İyi günler dilerim.

Bu mesaj en son " 07-04-2016 " tarihinde saat 23:58 itibariyle kadir78 tarafından düzenlenmiştir....
kadir78 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-04-2016, 00:17   #5
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,643
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Aşağıdaki linkte açıklamalar var.

Altın Üyelik
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-04-2016, 00:47   #6
kadir78
 
Giriş: 06/04/2016
Mesaj: 86
Excel Vers. ve Dili:
office 2010
Varsayılan

Korhan Bey, verdiğiniz kodlar işime yaradı fakat dosya ismini benim belirlediğim hücreden alması için ne yapmalıyım. Saygılar.
kadir78 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-04-2016, 01:32   #7
Korhan Ayhan
Moderatör
 
Korhan Ayhan kullanıcısının avatarı
 
Giriş: 15/03/2005
Şehir: ANTALYA
Mesaj: 22,643
Excel Vers. ve Dili:
OFFICE 2013-2016 PRO TR
Varsayılan

Kod içindeki aşağıdaki satırı düzenlemeniz gerekir.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Dosya_Adi = "Yedek_" & ThisWorkbook.Name
Aşağıdaki gibi olabilir.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Dosya_Adi = Sheets("Sayfa_Adı").Range("A1")
__________________
.
.
.

Soru sormadan önce forumumuzun aşağıdaki
bölümlerini incelediğinizde birçok sorunuza yanıt bulabilirsiniz.


Excel Dersanesi
Uygulamalı Excel Eğitimi
Excel İçin Örnek Uygulamalar
Video Dersane (***Altın Üyelere Özel***)

Lütfen sorularınızın çözümlendiğine dair geri dönüş mesajı yazınız...!
Lütfen yazım ve forum kurallarına uyalım...!
Lütfen sorularımızı açık ve net bir dille ifade edelim...!



FORUM KURALLARI
Korhan Ayhan Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-04-2016, 01:40   #8
kadir78
 
Giriş: 06/04/2016
Mesaj: 86
Excel Vers. ve Dili:
office 2010
Varsayılan

Üstad çok teşekkür ederim. İşe yaradı, çok sağolun.
kadir78 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-02-2017, 16:40   #9
cancan1221
 
Giriş: 26/01/2017
Şehir: balıkesir
Mesaj: 13
Excel Vers. ve Dili:
excel2007
Varsayılan

İyi çalışmalar,
bu kodda nasıl bir düzenleme yapalım ki pdf olarak kaydedelim.

Sub YEDEK_AL()
Dim Yol As String, Dosya_Adi As String

Application.ScreenUpdating = False
Dosya_Adi = "Yedek_" & ThisWorkbook.Name
Yol = "C:\YEDEK"
If Dir(Yol, vbDirectory) = "" Then MkDir (Yol)

Sheets(Array("Sayfa2", "Sayfa3", "Sayfa4", "Sayfa5", "Sayfa6", "Sayfa7")).Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Yol & "\" & Dosya_Adi, FileFormat:=52
ActiveWorkbook.Close 0
Application.DisplayAlerts = True
Application.ScreenUpdating = True

MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
End Sub
cancan1221 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-02-2017, 18:21   #10
igultekin2000
Altın Üye
 
Giriş: 05/09/2007
Şehir: istanbul
Mesaj: 454
Excel Vers. ve Dili:
ofis 2010
Varsayılan Günün tarihi

İyi akşamlar;
Kullanılabilecek bir makro, yedeklerken günün tarihini de otomatik ilave etmemiz mümkünmüdür?
yedeklemede makrolar yedeklenmiyor, olduğu gibi yedeklemek mümkün müdür.?

Bu mesaj en son " 05-02-2017 " tarihinde saat 19:35 itibariyle igultekin2000 tarafından düzenlenmiştir....
igultekin2000 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 07:50


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden