Makro geri alınmıyor. Her kayıt ayrı excel

[gelibolu]

1. Bu gün düzenlediğim bir sayfada makroma basmam sonucu bazı bilgilerimi kaybettim. Geri al tuşu makroda çalışmıyor. makro ile yaptığımız bir işlemi geri almak mümkün mü?

2. yukarıdaki nedenden dolayı sayfada kaydet butonu ile çıkış yaptığımızda her kaydı
farklı bir excel kitabında kayıt yapabilir miyiz? Yani her kayıt işlemi için ayrı kopya..
örn: Kayıt1,kayıt2,kayıt3 .......

Yardımcı olacak arkadaşlara teşekkür ederim....

 

[asi_kral]

1. Bu gün düzenlediğim bir sayfada makroma basmam sonucu bazı bilgilerimi kaybettim. Geri al tuşu makroda çalışmıyor. makro ile yaptığımız bir işlemi geri almak mümkün mü?

2. yukarıdaki nedenden dolayı sayfada kaydet butonu ile çıkış yaptığımızda her kaydı
farklı bir excel kitabında kayıt yapabilir miyiz? Yani her kayıt işlemi için ayrı kopya..
örn: Kayıt1,kayıt2,kayıt3 .......

Yardımcı olacak arkadaşlara teşekkür ederim....

1. Sorunuzun yanıtı makroyu çalıştırmadan mümkün olduğunca yedek alıp yedek dosya üzerinde çalışmanız tavsiye olunur. Makro geri dönüş imkanı sağlamamakta.

2. Sorunuz ise dosyanızı gönderin kodu yazıp istediğiniz yere yedek dosya kaydı yaptıralım.

 

[gelibolu]

Esas dosyam işyerinde buna ekleyebilirseniz sevinirim. ilginize teşekkürler.

 

[asi_kral]

Esas dosyam işyerinde buna ekleyebilirseniz sevinirim. ilginize teşekkürler.

Dosyanızda kaydet butonu görmedim
Ayrıca bu dosyanın olduğu yere mi kayıt edilecek_?
Kayıt edilirken dosya adı ne olacak_?

 

[gelibolu]

1. bahsettiğim işlemi yapamadığım için kaydet eklememiştim.
2. evet dosyanın olduğu yere kaydedilecek. Kayıt edilirken dosyanın adını oto vermeliKAYIT1,
kayıt2,kayıt3 gibi her kayıtta farklı dosya atmalı mümkün müdür?

 

[asi_kral]

1. bahsettiğim işlemi yapamadığım için kaydet eklememiştim.
2. evet dosyanın olduğu yere kaydedilecek. Kayıt edilirken dosyanın adını oto vermeliKAYIT1,
kayıt2,kayıt3 gibi her kayıtta farklı dosya atmalı mümkün müdür?

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub çoğalt_1967()
'Konu       :   Dosyayı Kaydet
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
Range("AA1") = Range("AA1") + 1
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:=(ThisWorkbook.Path & "\" & "Kayıt" & Range("AA1")) & ".xls"
End Sub

Eki inceleyiniz.

 

[gelibolu]

Yardımların için çok teşekkür ederim üstadım budur...

 

[asi_kral]

Yardımların için çok teşekkür ederim üstadım budur...

Kolay Gelsin.