arşivleme

[otelci01]

bir excel dosyasını herhangi bir klasöre bir makro tuşuyla arşivlemek istiyorum. ilginiz için şimdiden teşekkürler

 

[turk-x]

Merhaba;
Aşağıdaki kod işini görebilir.
CTRL+y tuşu ile dosyayı sizin seçtiğiniz klasöre yedekler.

Sub Yedekle()

If MsgBox("Yedekleme İşlemi Başlatılsın mı?", vbInformation + vbYesNo, "Bilgi Mesajı") = vbNo Then
Exit Sub
End If

   
    Dim Klasör As Object, Dizin As String, DosyaAdı As Variant
    Set Klasör = CreateObject("Shell.Application").BrowseForFoldeR(0, "Dosyanın yedekleneceği Klasörü seçin !", 1)
 
    If Klasör Is Nothing Then
        MsgBox "İşleme devam edebilmek için lütfen Klasör seçiniz !", vbExclamation, "Dikkat !"
        Exit Sub
    End If
Application.ScreenUpdating = False
  
    DosyaAdı = Date
    Dizin = Klasör.Self.Path & "\" & DosyaAdı & ".xls"
    
   Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3")).Select
   Sheets(Array("Sayfa1", "Sayfa2", "Sayfa3")).Copy
    ActiveWorkbook.SaveAs Filename:=Dizin
    ActiveWindow.Close
   
   Application.ScreenUpdating = True
   MsgBox "Yedekleme İşlemi tamamlanmıştır.", vbInformation
    
  
End Sub

 

[otelci01]

eline saglık bu cok güzel cok işime yarıyacak yanlız her kaydettiğimde yeni bir isim vermek istiyorum yada tarih vererek ayrı ayrı kaydetmesini istiyorum arşivlerken herhangi bir hücrenin bilgisini sayfa ismi olarak adlandırsın ve kaydetsin bunu da ekleyebilrmisin kodlara.
ilgin için şimdiden teşekkür ederim.

 

[turk-x]

Herhangi bir hücrenin bilgisi çalışma kitabının adı olarak kaydetmesini istersen
yukarıdaki kodlamadaki
DosyaAdı = Date
satırını
DosyaAdı = range("A1").text veya DosyaAdı=Sheets("Sayfa1").range("A1").text
şeklinde değiştirirsen A1 hücresi nin değerine göre sayfayı adlandırıp kaydeder.

yada

ekteki dosyadayı dene

 

[otelci01]

arkadasım cok teşekkur ederim cok işime yaradı eline saglık

 

[turk-x]

İşine yaradığına sevindim...