Şimdi Ara

excel otomatik farklı kaydetme

Koronavirüs Özel
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
7
Cevap
0
Favori
448
Tıklama
Sayfaya Git:
Sayfa:
1
Giriş
Mesaj
  • Teğmen
    131 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.



    |
    |
    _____________________________
    çorbada bizim de kaşığımız olsun
  • Binbaşı
    1965 Mesaj
    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 >
    |
    |
    _____________________________
    Mesut Akcan | YouTube.com/mesutakcan Lütfen Abone Olunuz. | Blog: akcanSoft.com




  • Binbaşı
    1965 Mesaj

    ü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 >
    |
    |
    Bahsedilenler: hayatmallaşıncagüzel
    _____________________________
    Mesut Akcan | YouTube.com/mesutakcan Lütfen Abone Olunuz. | Blog: akcanSoft.com




  • Teğmen
    131 Mesaj
    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
    _____________________________
    çorbada bizim de kaşığımız olsun




  • Binbaşı
    1965 Mesaj
    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
    |
    |
    _____________________________
    Mesut Akcan | YouTube.com/mesutakcan Lütfen Abone Olunuz. | Blog: akcanSoft.com




  • Teğmen
    131 Mesaj

    quote:

    Orijinalden alıntı: refleksif24

    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 refleksif24 -- 11 Şubat 2016; 22:41:34 >
    |
    |
    Bahsedilenler: akcan
    _____________________________
    çorbada bizim de kaşığımız olsun




  • Binbaşı
    1965 Mesaj
    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
    |
    |
    _____________________________
    Mesut Akcan | YouTube.com/mesutakcan Lütfen Abone Olunuz. | Blog: akcanSoft.com




Sayfaya Git:
Sayfa:
1
Reklamlar
Mobilya Takımları
Bey Azura
SEO
kolayoto.com
192.168.1.1
Bu sayfanın
Mobil sürümü
Mini Sürümü

BR1
0,304
1.2.165

Reklamlar
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.