Soru Yedekten Geri Yükleme

[ultraslan38080]

Arkadaşlar elimde DOSYA klasörü içinde bir tane makrolu PROGRAM.xlsm ve burdan yedek aldığım BİLGİLER.xlsx dosyası mevcut.

Ben DOSYA klasörünü hangi klasör ve hangi bilgisayarda kullanırsam kullanayım, klasör içindeki program ve yedeğini aldığım excellere hiçbir şekilde dokunmamak şartıyla;
PROGRAM.xlsm içindeki commandbutona bastığımda, BİLGİLER.xlsx içindeki verileri geri yüklemesini istiyorum.

Yedek almayı yaptım ama geri yüklemeyi yapamadım. Yardımcı olur musunuz?

https://dosya.co/49mel73cxqr1/DOSYA.rar.html

 

[mc_exrem]

Üzgünüm bu konuda yardımcı olamayacağım çünki ben de sayfadan dstk alıyorum

 

[ultraslan38080]

Üzgünüm bu konuda yardımcı olamayacağım çünki ben de sayfadan dstk alıyorum

Anladım. Teşekkür ediyorum sağolun.Umarım ilgilenen ve cevap veren bir arkadaşımız olur.

 

[askm]

Yedek alma işlemi için hangi kodları kullanıyorsunuz? Öneri olarak
1- Yedek almadan önce Bilgiler sayfasındaki bilgileri yedek adında yeni bir sayfaya yükler oradan verileri alabilirsiniz.
Aşağıdaki kodlar ile Bilgiler sayfasını Yedek sayfasına kopyalamış olursunuz. Yedekten alırken de tam ters işlemi yapmış olacaksınız.

Sub deneme()
Sheets("BİLGİLER").Cells.Copy Sheets("Yedek").Range("A1")
End Sub

2. Open yöntemi ile Bilgiler sayfasını açıp ilgili Sheets("Sayfa1").Cells.Copy Sheets("Yedek").Range("A1") yazabilirsiniz.

 

[askm]

2. Yöntem için kodlar

Private Sub CommandButton1_Click()
On Error Resume Next
Dim Dosya As String
Application.ScreenUpdating = False
Dosya = ThisWorkbook.Path & "\BİLGİLER.xlsx"
Workbooks.Open Dosya
Sheets("Sayfa1").Cells.Copy ThisWorkbook.Sheets("BİLGİLER").Range("A1")
ActiveWorkbook.Close False
Application.ScreenUpdating = True
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

 

[ultraslan38080]

2. Yöntem için kodlar

Private Sub CommandButton1_Click()
On Error Resume Next
Dim Dosya As String
Application.ScreenUpdating = False
Dosya = ThisWorkbook.Path & "\BİLGİLER.xlsx"
Workbooks.Open Dosya
Sheets("Sayfa1").Cells.Copy ThisWorkbook.Sheets("BİLGİLER").Range("A1")
ActiveWorkbook.Close False
Application.ScreenUpdating = True
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

Bu kod çalıştı. Size çok teşekkür ediyorum.

 

[askm]

Rica ederim. Kolay gelsin.