[Yardım]  Sayfanın Yedeğini Almak

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Sayfanın Yedeğini Almak

İleti#1)  massgrave » 09 Ağu 2019 00:06

Merhaba..
Bir buton aracılığı ile Sayfa1'in yedeğini almak istiyorum.
Butona tıklandığında Sayfa1'i C:\Yedek\ Konumuna yedeğin alındığı (adı) (tarih) ve (saati) yedeğin ismine vererek bu konuma farklı kaydetmeli ve uyarmalı.
Teşekkür ederim.
Kullanıcı avatarı
massgrave
Yeni Başlamış
 
Kayıt: 24 Haz 2019 19:50
Meslek: Yok
Yaş: 40
İleti: 63
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Sayfanın Yedeğini Almak

İleti#2)  Kasnic » 09 Ağu 2019 07:40

Merhaba,
YEDEK_DOSYA kontrol eder. Yoksa dosya oluşturur ve içine kaydeder. Varsa direkt içine kaydeder.

Kod: Tümünü seç
Sub YEDEKLE()
    If Not CreateObject("Scripting.FileSystemObject").FolderExists("C:\YEDEK_DOSYA") Then
    CreateObject("Scripting.FileSystemObject").CreateFolder ("C:\YEDEK_DOSYA")
    End If
    Sayfa1.Copy
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\YEDEK_DOSYA\" & ActiveSheet.Name & "_" & Format(Now(), "mm.dd.yy_hh.mm") & ".xlsx"
    ActiveWorkbook.Close
End Sub
Kullanıcı avatarı
Kasnic
Siteye Alışmış
 
Kayıt: 19 Nis 2018 15:39
Meslek: Satınalma
Yaş: 30
İleti: 160
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Sayfanın Yedeğini Almak

İleti#3)  massgrave » 09 Ağu 2019 09:16

Teşekkürler fakat yedek al dediğimde her seferinde UserForm'a bağlı orjinal excel sayfasınıda (yedeğin alındığı sayfa) getiriyor. Onu kapttığımızda programda kapanıyor. Yedeğin alındığı excel sayfasını nasıl saklayabiliriz.

Private Sub CommandButton7_Click()
YesNo = MsgBox(" C:\BUROYEDEK\ KONUMUNA YEDEK ALINACAKTIR. ONAYLIYOR MUSUNUZ?", vbYesNo + vbInformation, "YEDEK AL")
Select Case YesNo
Case vbYes
If Not CreateObject("Scripting.FileSystemObject").FolderExists("C:\BUROYEDEK") Then
CreateObject("Scripting.FileSystemObject").CreateFolder ("C:\BUROYEDEK")
End If
Sheet2.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\BUROYEDEK\" & ActiveSheet.Name & "_" & Format(Now(), "mm.dd.yy_hh.mm") & ".xlsx"
ActiveWorkbook.Close
End Select
End Sub
Kullanıcı avatarı
massgrave
Yeni Başlamış
 
Kayıt: 24 Haz 2019 19:50
Meslek: Yok
Yaş: 40
İleti: 63
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Sayfanın Yedeğini Almak

İleti#4)  massgrave » 09 Ağu 2019 09:33

Kod: Tümünü seç
Application.Visible = False

İle sorunu çözdüm teşekkürler.
Kullanıcı avatarı
massgrave
Yeni Başlamış
 
Kayıt: 24 Haz 2019 19:50
Meslek: Yok
Yaş: 40
İleti: 63
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google Adsense [Bot] ve 0 misafir

Bumerang - Yazarkafe