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 05-11-2013, 08:17   #1
simetri.
 
Giriş: 07/10/2013
Şehir: Anadolu
Mesaj: 169
Excel Vers. ve Dili:
2003 TR
Varsayılan Excel sayfalarını kitap olarak kayıt yapacak kod

Merhabalar, değerli forum sakinleri.

Aşağıdaki kod için yardımlarınızı bekliyorum lüfen.

Kod: Çalıştırıldığı kitaptaki tüm sayfaları

"C:\Günlük Yedek" yoluna kitap olarak kaydedecek.

(kitabın VBAProject kısmı dahil)
simetri. Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-11-2013, 11:20   #2
muygun
Özel Üye
 
muygun kullanıcısının avatarı
 
Giriş: 06/07/2004
Mesaj: 6,789
Excel Vers. ve Dili:
Excel-2003 Türkçe
Varsayılan sayfaları istenilen yere istenilen isimle kaydet-sil

Merhaba;
Eki inceleyin. Tam otomasyon olmasada Size fikir verecektir.
İyi çalışmalar.

Not: Kodlar Syn. halit3'ün çalışmasından alıntıdır.
Eklenmiş Dosyalar
Dosya Türü: zip simetri.-sayfaları istenilen yere istenilen isimle kaydet-sil.zip (13.9 KB, 25 Görüntülenme)
__________________
Excel-2003 - Türkçe

Bu mesaj en son " 05-11-2013 " tarihinde saat 11:22 itibariyle muygun tarafından düzenlenmiştir.... Neden: Başlık eklendi
muygun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-11-2013, 12:17   #3
simetri.
 
Giriş: 07/10/2013
Şehir: Anadolu
Mesaj: 169
Excel Vers. ve Dili:
2003 TR
Varsayılan

Merhaba sayın muygun.

Çok da uğraşmışsınız. Teşekkür ederim. Lakin benim istediğim kod bu değil.

Kod şu şekilde olacak:

xx adlı kitapta Sayfa1 Sayfa2 Sayfa3 şeklinde 3 sayfa var.

Kodu herhangi bir yerde tetiklediğimiz zaman.

( C sürücüsündeki Günlük Yedek klasösürün içinde )

Sayfa1 Sayfa2 Sayfa3 adında 3 tane kitap oluşacak.

xx adlı kitaptaki makro kodlarıda yeni oluşacak kitaba aktarılacak.

Yazdıklarımın haricinde silme vs başka birşey olmayacak.

İnşallah anlaşılır olmuştur.
simetri. Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-11-2013, 14:25   #4
halit3
Uzman
 
halit3 kullanıcısının avatarı
 
Giriş: 18/01/2008
Mesaj: 10,483
Excel Vers. ve Dili:
2003 excel türkçe
Varsayılan

Alternatif kod:

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub SAYFALARI_YEDEKLE()
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False

Set fLk = CreateObject("Scripting.FileSystemObject")
uzanti = fLk.GetExtensionName(ActiveWorkbook.Name) ' uzantı buluyor

Klasor = "C:\Günlük Yedek"
If fLk.FolderExists(Klasor) = False Then
MkDir Klasor
End If
ActiveWorkbook.Save

For i = 1 To ThisWorkbook.Sheets.Count
sayfa_adi = Sheets(i).Name
Dosya_adi = sayfa_adi & " " & Format(Now, "dd_mm_yyyy_hh_nn_ss")
Kayıt_Yeri = Klasor & "\" & Dosya_adi & "." & uzanti
fLk.CopyFile ThisWorkbook.FullName, Kayıt_Yeri

Dim WB As Workbook
Set WB = Workbooks.Open(Kayıt_Yeri)

For j = ActiveWorkbook.Sheets.Count To 1 Step -1
If sayfa_adi <> Sheets(j).Name Then
Worksheets(j).Delete
End If
Next

ActiveWorkbook.Save
ActiveWorkbook.Close
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.EnableEvents = True
MsgBox "işlem tamam"

End Sub
__________________





Forum Kuralları
halit3 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 05-11-2013, 18:38   #5
simetri.
 
Giriş: 07/10/2013
Şehir: Anadolu
Mesaj: 169
Excel Vers. ve Dili:
2003 TR
Varsayılan

Teşekkür ederim

Sayın Halit3 Hocam

Ellerinize sağlık.
simetri. Ç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 17:11


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