• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

İsteğe bağlı yedekleme

M

mehmetkoca

Katılım
29 Kasım 2008
Mesajlar
215
Excel Vers. ve Dili
excel 2003 türkçe
Arkadaşlar aşağıdaki kod yardımıyla excel sayfasını masaüstünde bir klasöre yedekliyorum.Yapmak istediğim bu koda bir ekleme yaparak , eğer aynı isim ve numaralı dosya yedeklenmişse Msg box çıkıp ( Bu dosya daha önce yedeklenmiştir , yinede yedeklemek istiyormusunuz) şeklinde uyarının çıkıp hayır denilince işlemin iptal edilmesi , evet deyince ise eski dosyanın üzerine yedekleme yapması.

Yardımlarınız için şimdiden teşekkürler.Saygılarımla.



Kod: 
Sub Yedek_Al()
    Dim Dosya_Yolu As String, Dosya_Adı As String
    
Application.ScreenUpdating = False
    Sheets("BİLDİRİM").Select
    Sheets("BİLDİRİM").Copy
     
    Dosya_Adı = Range("L1").Value & " - " & Range("L4").Value & " - " & Range("L2").Value & ".xls"
    ActiveWorkbook.SaveCopyAs Filename:="C:\Documents and Settings\ADMIN\Desktop\BİLDİRİM DOSYASI" & Application.PathSeparator & Dosya_Adı
    ActiveWorkbook.Close 0
    Sheets("BİLDİRİM").Select
Application.ScreenUpdating = True
    MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
End Sub
 
Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Kod: 
Option Explicit
 
Sub Yedek_Al()
    Dim Dosya_Yolu As String, Dosya_Adı As String
    
    Application.ScreenUpdating = False
    Sheets("BİLDİRİM").Select
    Sheets("BİLDİRİM").Copy
     
    Dosya_Adı = Range("L1").Value & " - " & Range("L4").Value & " - " & Range("L2").Value & ".xls"
    Dosya_Yolu = "C:\Documents and Settings\ADMIN\Desktop\BİLDİRİM DOSYASI" & Application.PathSeparator & Dosya_Adı
        
    If Dir(Dosya_Yolu) <> "" Then
        If MsgBox("Bu dosya daha önce yedeklenmiştir !" & vbCrLf & "Yinede yedeklemek istiyor musunuz ?", vbCritical + vbYesNo, "Dikkat !") = vbNo Then
            MsgBox "İşleminiz iptal edilmiştir.", vbInformation
            Exit Sub
        Else
            GoTo Devam
        End If
    Else
        GoTo Devam
    
Devam:
        ActiveWorkbook.SaveCopyAs Filename:=Dosya_Yolu
        ActiveWorkbook.Close 0
        Sheets("BİLDİRİM").Select
        Application.ScreenUpdating = True
        MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
    End If
End Sub
 
buna benzer bir soru

sn. mehmetkoca çalışma kitabını yedeklemek istemiş ben de şunu yapmak itiyorum çalışma kitabın da ki herhangi bir sayfanın bir kopyasını aynı kitabın son sayfasına kopyalayıp eklemesi ve adını da o gün ki tarih (sadece yıl olarak) ile kaydetmesi kopyalama işlemini yapıyorum ama isim konusunda takıldım isim verirken nasıl bir yol izlemeliyim
ilginiz için teşekkürler
 
Selamlar,

Sn. reelabuzer aşağıdaki kodu kullanabilirsiniz.

Kod: 
Option Explicit
 
Sub SAYFA_KOPYALA()
    On Error GoTo Son
    Sheets("Sayfa1").Copy After:=Sheets(Worksheets.Count)
    ActiveSheet.Name = Year(Date)
    Exit Sub
Son:
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    MsgBox Err.Description
End Sub
 
Sayın Korhan Ayhan Üstadım ; çok teşekkür ederim.Sayenizde sorun çözülmüştür.Saygılarımı sunuyorum...
 
benim de buna benzer bir problemim var ama daha zoru sanırım şimdiden yardımlarınız için teşekkürler, öncelikle sunu söyleyeyim makro konusunda cok az bilgim var,
her sheette günlk veriler olacak üstteki örnek gibi ama
benm gunluk olarak yeni bir sheet kopyalıyacak tabi ben istersem verilerde değişiklik yapabilmeliyim, ve asıl problem bu 30 gunluk sheetlerddeki belirli hücrelerin hepsini toplayabilmeliyim yani 1 aylık toplam sonucu bulucak.
net anlatamamıs olabilirim, biliyorum cok sey istiyorum
yardımlarınız için cok tesekkürler.
 
Selamlar,

Sn. thylol_hot,

Forumumuza hoşgeldiniz.

İstedikleriniz zor şeyler değil. Hatta forumda bununla ilgili örneklerde var. Siz ilk olarak sayfa+kopyalama şeklinde arama yapın ve çıkan konuları inceleyin. İstediğiniz tarzda bir çalışma bulamazsnız örnek dosya ekleyip nasıl bir işlem yapmak istediğinizi detaylıca açıklayın. Elimizden geldiğince destek olmaya çalışırız.
 
Hoşbulduk, ilginiz için teşekkür ederim, dediğiniz şekilde arama yaptım ama istediğim sonucu bulamadım ama benim asıl sorunum aynı excel dosyasının farklı sheetlerinden verileri bir sayfada toplatabilmek bununla ilgili ne yapmam gerekir size örnek bir dosya gönderebilirim isterseniz.
 
Selamlar,

Ayrı bir başlık açıp örnek dosya ekleyerek sorunuzu sorabilirsiniz.
 
Sn. Korhan AYHAN yardımlarınız için teşekkürler isteğimi hallettiniz.
şöyle bir şey daha sorsam çok mu olurum acaba:(

çalışma kitabına diyelimki sheet7 den sonra belirli aralıklar ile sheet ler eklenecek ben bunları bir sayfa userform üzerine ekleyeceğim bir ComboBox ile açabilirmiyim (eklenen her sheet ComboBox ta görünmesi gerekli ekstra bir işlem yapmadan)
ilginiz için şimdiden ok teşekkürler
 
sn. hocalarım uğraşlarım sonunda istediğimin bir kısmını yapmayı başardım ComboBox aistediğim şekilde sayfa ları ekleyip tıkadığım sayafanın da gösterilmesini sağladım aşağıda ki kodu kullanarak

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next
End Sub

ancak bu kod ile çalışma kitabında ki tüm sayfları ComboBox ta görüyorum benim istediğim ya belirlediğim sheet (sheet7) ten sonraki sayfaları veya isimleri rakamdan oluşan sayfaların ComboBox ta görünmesi
yardımlarınız için tekrar teşekkürler
 
Selamlar,

Birinci önerdiğim kod Sayfa7 den sonraki sayfaları ComboBox1 nesnesinde listeler.

Kod: 
Option Explicit
 
Private Sub UserForm_Initialize()
    Dim X As Integer, Sıra_No As Byte
 
    Sıra_No = Sheets("Sayfa7").Index
 
    For X = 1 To Sheets.Count
        If X > Sıra_No Then
            ComboBox1.AddItem Sheets(X).Name
        End If
    Next
End Sub


İkinci önerdiğim kod ise sadece sayfa ismi sayısal olan sayfaları ComboBox1 nesnesinde listeler.

Kod: 
Option Explicit
 
Private Sub UserForm_Initialize()
    Dim X As Integer
 
    For X = 1 To Sheets.Count
        If IsNumeric(Sheets(X).Name) Then
            ComboBox1.AddItem Sheets(X).Name
        End If
    Next
End Sub
 
sayın AYHAN ikinci önerdğiniz kodu denedim ve oldu ilgilendiğiniz için tekrar teşekkürler
 
Korhan Ayhan' Alıntı:
Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Kod: 
Option Explicit
 
Sub Yedek_Al()
    Dim Dosya_Yolu As String, Dosya_Adı As String
    
    Application.ScreenUpdating = False
    Sheets("BİLDİRİM").Select
    Sheets("BİLDİRİM").Copy
     
    Dosya_Adı = Range("L1").Value & " - " & Range("L4").Value & " - " & Range("L2").Value & ".xls"
    Dosya_Yolu = "C:\Documents and Settings\ADMIN\Desktop\BİLDİRİM DOSYASI" & Application.PathSeparator & Dosya_Adı
        
    If Dir(Dosya_Yolu) <> "" Then
        If MsgBox("Bu dosya daha önce yedeklenmiştir !" & vbCrLf & "Yinede yedeklemek istiyor musunuz ?", vbCritical + vbYesNo, "Dikkat !") = vbNo Then
            MsgBox "İşleminiz iptal edilmiştir.", vbInformation
            Exit Sub
        Else
            GoTo Devam
        End If
    Else
        GoTo Devam
    
Devam:
        ActiveWorkbook.SaveCopyAs Filename:=Dosya_Yolu
        ActiveWorkbook.Close 0
        Sheets("BİLDİRİM").Select
        Application.ScreenUpdating = True
        MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
    End If
End Sub
Genişletmek için tıkla ...

Günaydın buna benzer işlemi üç ayrı sayfayı tek kitabın içine nasıl yedekleriz ve kaydedecek olan yeri sormasını nasıl sağlarız. sabahtan beri formu inceliyorum sadece tek sayfa üzerinden yada tüm çalışma kitabından yapılıyor benim belirleyeceğim sayfalardan yedek almak istiyorum aynı kitabın içine bu konuda yardımcı olabilirseniz çok sevinirim şimdiden teşekkürler
 
Son düzenleme:
Korhan Ayhan' Alıntı:
Merhaba,

Aşağıdaki linki inceleyin. Güzel bir yedekleme uygulaması hazırlanmış. İşinize yarayabilir.

Parametrik Aktif Dosya Yedekleme Uygulaması ve Eklentisi
Genişletmek için tıkla ...

Paylaşım için teşekkürler ama buda komple yedek alıyor. benim 8 tane sayfam var ve bu sayfalardan sadece 3 tanesinin aynı kitap içerisinde mocrolaro silinmiş bir şekilde yedeğini almak istiyorum komple değil. Levent beyin çalışmasınada bakmıştım gerçektende ayrıntılı güzel bir çalışma. ama işime yaramadı. yada ben kullanamadım
 
onurcan1979' Alıntı:
Günaydın buna benzer işlemi üç ayrı sayfayı tek kitabın içine nasıl yedekleriz ve kaydedecek olan yeri sormasını nasıl sağlarız. sabahtan beri formu inceliyorum sadece tek sayfa üzerinden yada tüm çalışma kitabından yapılıyor benim belirleyeceğim sayfalardan yedek almak istiyorum aynı kitabın içine bu konuda yardımcı olabilirseniz çok sevinirim şimdiden teşekkürler
Genişletmek için tıkla ...

Aşağıdaki linkdeki dosyada (Seçilen sayfaları çalışma kitabı yap) düğmesine ait kodları inceleyin


http://www.excel.web.tr/f133/klasor-ve-dosya-olu-turma-secenekleri-t68040/post370019.html

http://www.excel.web.tr/f48/stenilen-sayfalary-farkly-kaydet-t91795.html
 
Merhaba,

Aşağıdaki linki inceleyiniz.

Aktif dosya yedekleme işlemleri

onurcan1979' Alıntı:
Paylaşım için teşekkürler ama buda komple yedek alıyor. benim 8 tane sayfam var ve bu sayfalardan sadece 3 tanesinin aynı kitap içerisinde mocrolaro silinmiş bir şekilde yedeğini almak istiyorum komple değil. Levent beyin çalışmasınada bakmıştım gerçektende ayrıntılı güzel bir çalışma. ama işime yaramadı. yada ben kullanamadım
Genişletmek için tıkla ...
 
halit3' Alıntı:
Aşağıdaki linkdeki dosyada (Seçilen sayfaları çalışma kitabı yap) düğmesine ait kodları inceleyin


http://www.excel.web.tr/f133/klasor-ve-dosya-olu-turma-secenekleri-t68040/post370019.html

http://www.excel.web.tr/f48/stenilen-sayfalary-farkly-kaydet-t91795.html
Genişletmek için tıkla ...

Halit hocam göndermiş olduğunu linki inceledim yedek alıyor fakat herdefasında bu kodu sarıya boyuyarak hata veriyor

For Each Dosya In CreateObject("Scripting.FileSystemObject").GetFolder(Klasor).Files

onun dışında tam istediğim gibi bunu da yardımınızla çöze bilirsem yedeklemede sorunum kalmıyor şimdiden teşekkürler

http://www.excel.web.tr/f48/stenilen...et-t91795.html
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst