Şimdi Ara

excel otomatik farklı kaydetme

Bu Konudaki Kullanıcılar:
2 Misafir - 2 Masaüstü
5 sn
8
Cevap
0
Favori
814
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • arkadaşlar. excel de çalışırken çeşitli sebeplerle aksaklıklar olabiliyor. kurtarıyor kurtarmasına ama 5 - 6 dakika öncesini kurtarmış oluyor. bana anlık kurtarma gerekiyor.

    Şimdi istediğim olay şu. ben çalışırken 1 dakikada bir otomatik olarak belirlediğim bir klasöre belgeyi farklı kaydetsin.

    çok araştırdım ama böylesine ihtiyaç duyulan bir şeyi yapan bir yazı video bulamadım.

    Yardımlarınızı bekliyorum.



  • aşağıdaki makroyu kullanın.
    kayıt aralığı 1 dakika olarak ayarlandı
    ancak bilgisayar yavaşsa biraz daha yavaşladığını hissedebilirsin.
    çünkü bilgisayara sürekli kontrol edeceği yeni bir iş veriliyor.
    hızlı bilgisayarda yavaşlama hissedilmez.
    kodlar biraz daha geliştirilebilir ancak basit hali işinizi görecektir.

    kayıt klasörü ve adını
    DosyaADI = "c:\KAYIT\dosya_" & KayitNo & ".xls"
    satırından değiştirebilirsin.


    Sub OtomatikKaydet() 
    ' makro: Mesut Akcan
    ' akcanSoft.com
    KaydetmeAraligi = 1 'dakiha
    Do
    If KayitZamani < Minute(Time) Then
    'KayitNo = KayitNo + 1
    KayitNo = Replace(Time, ":", "")
    DosyaADI = "c:\KAYIT\dosya_" & KayitNo & ".xls"
    ActiveWorkbook.SaveAs Filename:=DosyaADI
    KayitZamani = Minute(Time)
    End If
    DoEvents
    Loop
    End Sub



    < Bu mesaj bu kişi tarafından değiştirildi akcan -- 11 Şubat 2016; 11:09:51 >
  • üstteki kodlar dakika 00 olduktan sonra kaydetmiyor.
    kodlar değiştirildi. aşağıda:

    Sub OtomatikKaydet() 
    ' makro: Mesut Akcan
    ' akcanSoft.com
    KaydetmeAraligi = 1 'dakika
    Do
    Dakika = Minute(Time)
    If KayitZamani = 59 And Dakika = 0 Then KayitZamani = -1
    If KayitZamani < Dakika Then
    'KayitNo = KayitNo + 1
    'KayitNo = Replace(Time, ":", "")
    KayitNo = Year(Now) & Right("0" & Month(Now), 2) & Right("0" & Day(Now), 2) & "_" & Right("0" & Hour(Now), 2) & Right("0" & Minute(Now), 2) & Right("0" & Second(Now), 2)
    DosyaADI = "c:\KAYIT\dosya_" & KayitNo & ".xls"
    ActiveWorkbook.SaveAs Filename:=DosyaADI
    KayitZamani = Minute(Time)
    End If
    DoEvents
    Loop
    End Sub



    < Bu mesaj bu kişi tarafından değiştirildi akcan -- 10 Ekim 2015; 19:49:30 >
  • quote:

    Orijinalden alıntı: akcan

    üstteki kodlar dakika 00 olduktan sonra kaydetmiyor.
    kodlar değiştirildi. aşağıda:

    Sub OtomatikKaydet() 
    ' makro: Mesut Akcan
    ' akcanSoft.com
    KaydetmeAraligi = 1 'dakika
    Do
    Dakika = Minute(Time)
    If KayitZamani = 59 And Dakika = 0 Then KayitZamani = -1
    If KayitZamani < Dakika Then
    'KayitNo = KayitNo + 1
    'KayitNo = Replace(Time, ":", "")
    KayitNo = Year(Now) & Right("0" & Month(Now), 2) & Right("0" & Day(Now), 2) & "_" & Right("0" & Hour(Now), 2) & Right("0" & Minute(Now), 2) & Right("0" & Second(Now), 2)
    DosyaADI = "c:\KAYIT\dosya_" & KayitNo & ".xls"
    ActiveWorkbook.SaveAs Filename:=DosyaADI
    KayitZamani = Minute(Time)
    End If
    DoEvents
    Loop
    End Sub


    teşekkürler ..işe yaradı. fakat şöyle bir şey yapmamız mümkünmü. şimdi bu kodla hep farklı dosyalar şeklinde kaydediyor ya. ilk exceli farklı kaydetse sonrakileri hep onun üzerine kaydetse.mümkünmü böle bişi
  • Tabii
    Sub OtomatikKaydet() 
    ' makro: Mesut Akcan
    ' akcanSoft.com
    AsilDosyaADI = ActiveWorkbook.FullName
    KaydetmeAraligi = 1 'dakika
    Do
    Dakika = Minute(Time)
    If KayitZamani = 59 And Dakika = 0 Then KayitZamani = -1
    If KayitZamani < Dakika Then
    'KayitNo = KayitNo + 1
    'KayitNo = Replace(Time, ":", "")
    KayitNo = Year(Now) & Right("0" & Month(Now), 2) & Right("0" & Day(Now), 2) & "_" & Right("0" & Hour(Now), 2) & Right("0" & Minute(Now), 2) & Right("0" & Second(Now), 2)
    DosyaADI = "c:\KAYIT\dosya_" & KayitNo & ".xls"
    ActiveWorkbook.SaveAs Filename:=DosyaADI
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=AsilDosyaADI
    Application.DisplayAlerts = True
    KayitZamani = Minute(Time)
    End If
    DoEvents
    Loop
    End Sub
  • quote:

    Orijinalden alıntı: Adamszalai

    quote:

    Orijinalden alıntı: akcan

    üstteki kodlar dakika 00 olduktan sonra kaydetmiyor.
    kodlar değiştirildi. aşağıda:

    Sub OtomatikKaydet() 
    ' makro: Mesut Akcan
    ' akcanSoft.com
    KaydetmeAraligi = 1 'dakika
    Do
    Dakika = Minute(Time)
    If KayitZamani = 59 And Dakika = 0 Then KayitZamani = -1
    If KayitZamani < Dakika Then
    'KayitNo = KayitNo + 1
    'KayitNo = Replace(Time, ":", "")
    KayitNo = Year(Now) & Right("0" & Month(Now), 2) & Right("0" & Day(Now), 2) & "_" & Right("0" & Hour(Now), 2) & Right("0" & Minute(Now), 2) & Right("0" & Second(Now), 2)
    DosyaADI = "c:\KAYIT\dosya_" & KayitNo & ".xls"
    ActiveWorkbook.SaveAs Filename:=DosyaADI
    KayitZamani = Minute(Time)
    End If
    DoEvents
    Loop
    End Sub


    teşekkürler ..işe yaradı. fakat şöyle bir şey yapmamız mümkünmü. şimdi bu kodla hep farklı dosyalar şeklinde kaydediyor ya. ilk exceli farklı kaydetse sonrakileri hep onun üzerine kaydetse.mümkünmü böle bişi

    Alıntıları Göster
    olmuyor hocam.

    ActiveWorkbook.SaveAs Filename:=DosyaADI

    kısmında hata veriyor. ben hiç bilmiyorum bu makro eklemeyi.
    biraz eksiğim açıkçası. bana biraz detaylı anlatabilirseniz sevinirim.
    yaptıklarım şöyle

    1-sizin göndermiş olduğunuz kodları eksiksiz kopyalıyorum.
    2-excelde alt+f11 yapıp insert modüle diyorum.
    3-kodlarınız buraya yapıştırıyorum.
    4-masaüstüne kayıtlı exceller diye bir dosya açıyorum. dosya konumunu kopyalıyorum ve sizin kodlarınızdaki dosya adı bölümüne yapıştırıyorum. yani şöyle oluyor = DosyaADI = "C:\Users\xxxx\Desktop\kayıtlı exceller_" & KayitNo & ".xls"
    5-ardından ctrl+s yapıyorum. ve karşıma kaydetme seçenekleri çıkıyor . aynen şöyle yazıyor: makro içermeyen çalışma kitabı olarak kaydetmeye devam etmek için eveti tıklayın.
    6- ben hayırı tıklıyorum. run time error 1004 yazıyor.debug dediğimde şu satırı sarıya boyuyor = ActiveWorkbook.SaveAs Filename:=DosyaADI

    nerede hata yapıyorum.



    < Bu mesaj bu kişi tarafından değiştirildi Adamszalai -- 11 Şubat 2016; 22:41:34 >
  • excel 2007 üzeri ise
    makro içerdiği için dosya uzantısını xlsm olarak belirleyin

    Sub OtomatikKaydet() 
    ' makro: Mesut Akcan
    ' akcanSoft.com
    AsilDosyaADI = ActiveWorkbook.FullName
    KaydetmeAraligi = 1 'dakika
    KayitKlasoru = "c:\KAYIT"

    Do
    Dakika = Minute(Time)
    If KayitZamani = 59 And Dakika = 0 Then KayitZamani = -1
    If KayitZamani < Dakika Then
    'KayitNo = KayitNo + 1
    'KayitNo = Replace(Time, ":", "")
    KayitNo = Year(Now) & Right("0" & Month(Now), 2) & Right("0" & Day(Now), 2) & "_" & Right("0" & Hour(Now), 2) & Right("0" & Minute(Now), 2) & Right("0" & Second(Now), 2)
    DosyaADI = KayitKlasoru & "\dosya_" & KayitNo & ".xlsm"
    ActiveWorkbook.SaveAs Filename:=DosyaADI
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=AsilDosyaADI
    Application.DisplayAlerts = True
    KayitZamani = Minute(Time)
    End If
    DoEvents
    Loop
    End Sub
  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.