Otomatik Kaydetme

[Paksoy]

Merhaba Arkadaşlar;
Excelde çalışırken her 30 saniye içinde çalışmış olduğum excel dosyasının otomatik olarak kendi kendine kaydetmesini yaptırmak istiyorum?
acaba mümkünmü sizce. çalışmak istediğim excel sayfasını açtığımda makroyu etkinleştir dediğimde otomatik 30 saniye içinde kaydetsin

 

[recep]

örnek işini görür mü

 

[Paksoy]

İyi akşamlar
benim istediğim sayfayı açıp çalışırkende 30 saniyede bir kaydetsin

 

[Zeki Gürsoy]

Sub Kaydet()
     ThisWorkbook.Save
End Sub

Sub Auto_Open()
      Application.OnTime Now+Timeserial(0,0,30),"Kaydet"
End Sub

 

[Paksoy]

Sub Autpen()
Application.OnTime Now+Timeserial(0,0,30),"Kaydet"
End Sub

Sayın anemos vermiş olduğunuz makroyu yeni makro olarak kaydettim ama
30 saniye sonra makro bulunamadı diyor

 

[Valuer]

Bu işi makrosuz 1 dakikada yapsak olmazmı. Araçlar<Seçenekler<Kaydet sekmesinden 1 dakika olarak yaparsan olur.

 

[Paksoy]

sayın valuer sizin dediğiniz bölüm kaydetmiyor kurtarıyor ben çalışırken 30 saniye sonra kaydetmesini istiyorum?
ben bi makro buldum ama o da kısayol ctrl+a yapmadan makro devreye girmiyor benim istediğim çalışma sayfamı açınca makroyu etkinleştir butonuna bastığımda otomatik olarak 30 saniyede bir kaydetmesini istiyorum ctrl+a tuşuna basmadan acaba yapmak istediğim konuyu anlatabildimmi

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Sub Kaydet()
ThisWorkbook.Save
Auto_Open
End Sub

Sub Auto_Open()
Application.OnTime Now + TimeSerial(0, 0, 30), "Kaydet"
End Sub

 

[Paksoy]

Sayın levent bey ;
teşekkür ederim derdime çare oldunuz tam istediğim gibi oldu
size iyi gecler dilerim.
bir de çok güzel bi excel forum tebrikler.

 

[Zeki Gürsoy]

Levent bey koddaki noksan&#305; tamamlam&#305;&#351;, k&#305;saca &#351;u &#351;ekilde de olabilir.

Sub Auto_Open()
Application.OnTime Now + TimeSerial(0, 0, 30), "Auto_Open"
End Sub

 

[Levent Menteşoğlu]

Sn anemos

K&#305;saltma mant&#305;&#287;&#305;n&#305;z &#231;ok g&#252;zel, yaln&#305;z yine eksik olmu&#351;.

Sub Auto_Open()
Application.OnTime Now + TimeSerial(0, 0, 30), "Auto_Open"
ThisWorkbook.Save
End Sub

 

[Zeki Gürsoy]

Günün yorgunluğundan olsa gerek. İyi geceler... :uyku:

 

[Mdemir63]

Sn anemos

Kısaltma mantığınız çok güzel, yalnız yine eksik olmuş.

Sub Auto_Open()
Application.OnTime Now + TimeSerial(0, 0, 30), "Auto_Open"
ThisWorkbook.Save
End Sub

Günaydınlar

levent hocam hem sizin hemde Sn: anemos un verdiği kodları Thiswoork un kod bölümüne yazdım fakat kaydetmiyor makro bulunamadı diyor

saygılar

 

[Levent Menteşoğlu]

Normal bir modüle yazacaksınız.

 

[otomatik1258]

herkeze kolay gelsin 2004 yılında açılmış bir konuya 2010 da cevap yazmak ne kadar doğru bilemiyorum ama umarım yardım edecek birisi vardır . şimdiden teşekkürker .
-siteye google den ulaştım . bende kayıt sorunu yaşıyorum 2010 sürümü kullanıyorum . 2010 da araçlar sekmesi yok yada ben bulamıyorum .
-bide "otomatik kurtarma " diye bir seçenek var onun görevi farklı sanırım 1 dk yı işaretlediğim halde nedense kayıt yapmıyor .
-benim işim geregi excel devamlı açık bazen kayıt tuşuna basmayı unutuyorum ve direk kapatıyorum bu da bazı verilen yok olmasına neden oluyor .
-umarım yardım edecek biri vardır . kolay gelsin selamlar .

 

[otomatik1258]

yadım plsz

 

[tt2424]

aynı konudan ben de müzdaripim . en son olarak yukarıdaki kodlamayı Makrolara ekledim .

 

[baydeniro]

Kod için çok teşekkürler.

 

[refleksif24]

farklı kaydetme şansı yok mu? mesela ben bir belge üzerinde çalışıyorken çalıştığım belgeyi belirlediğim bir klasörde 1 dakikada bir farklı kaydetsin.

 

[seydag.]

Excelde begeyi kapatırken otomatik olarak içeriği temizleme

Aşağıdaki gibi deneyin.

Sub Kaydet()
ThisWorkbook.Save
Auto_Open
End Sub

Sub Auto_Open()
Application.OnTime Now + TimeSerial(0, 0, 30), "Kaydet"
End Sub

Merhabalar Levent Bey,
Benim istediğim de tam tersi.
Benim belgemdeki butonlar sayesinde içeriği gerekli farklı belgelere aktarıyorum ve istiyorumki en sonda ana girişleri sağladığım belgemden çıkarken bana kaydedilsin mi diye sormasın ve içeriği otomatik temizlesin .
Açtığımda temiz bir sayfa ile karşılaşayım ama bu işlem otomatik olsun.
Bunu nasıl yapabilirim ?
Yardımcı olursanız çok sevinirim.