Soru Bu çalışma sayfasını saat 03:00 da veya 07:00 da otomatik kaydet yapabilir miyiz?

[mukilyar]

arkadaşlar merhabalar,
excel üzerinden web den veri alıyorum.
aldığım bu verileri gün içerisinde farklı zamanlarda otomatik olarak kaydetmek istiyorum.
yardımcı olabilirmisiniz

 

[ÖmerBey]

Merhaba,
Vba'da ThisWorkbook bölümüne şu kodu:

Private Sub Workbook_Open()
Application.OnTime TimeValue("03:00:00"), "kayit"
Application.OnTime TimeValue("07:00:00"), "kayit"
End Sub

Boş bir modüle de şu kodu:

Sub kayit()
ThisWorkbook.Save
End Sub

kopyalayıp dosyanızı makro içeren dosya olarak kaydedip, kapatın ve yeniden açın.
İyi çalışmalar...

 

[mukilyar]

teşekkür ederim hocam
bir şey daha sormak istiyorum müsadenizle
acaba sa 03:00:00 daki verileri A123 diye bir dosya olarak
sa 07:00:00 daki verileri B123 diye ayrı bir dosya olarak kaydedebilirmiyim

 

[ÖmerBey]

Evet bu mümkün, sitede farklı kaydetme makro kodlarını bulabilirsiniz. Bu kodları dosyanıza uyarlayabilirsiniz. Bunu bizim yapabilmemiz için kaydetmek istediğiniz dosya türünü ve adını mesela yerine net olarak bilmemiz gerek.

 

[mukilyar]

Dosyada isminde sadece tarih ve saat yazacak hocam
Örnek 10.11.2018_03.00 1.kayıt
10.11.2018_07.00 2.kayıt
Dosyayıda Belgelerim klasörüne kopyalayacak
Şimdiden teşekkürler

 

[ÖmerBey]

kayit kodunu aşağıdaki ile değiştiriniz.

Sub kayit()
Dim yol As String, isim As String
yol = CreateObject("WScript.Shell").SpecialFolders("mydocuments") & "\"
isim = Format(Now, "dd.mm.yyyy_hh.mm") & Mid(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, "."), 50)
ThisWorkbook.Save
ThisWorkbook.SaveCopyAs yol & isim
End Sub

 

[mukilyar]

Hocam teşekkürler çalıştı
Son bir şey daha sorabilirmiyim
Şayet 30 da veya 1 sa aralıklarla gün boyu kayıt etmesini istesem workbook kodu ne olmalı acaba
Not: Muhakkak forumda vardır ancak ben göremedim. Belki yanlış aratıyorumdur.

 

[ÖmerBey]

Buyurunuz...

Private Sub Workbook_Open()
Dim a As Byte
For a = 0 To 23
    Application.OnTime TimeValue(a & ":00:00"), "kayit"
    Application.OnTime TimeValue(a & ":30:00"), "kayit"
Next
End Sub

 

[mukilyar]

Hocam tekrardan ilginize/yardımınıza teşekkür ederim.
Şu anda verilerimi 5,15 veya 30 da aralıklarla kaydedebiliyorum.
Müsaadenizle bir soru daha sormak istiyorum.
Bu kayıt ettiğim dosyalardaki verileri başka bir dosyaya otomatik aktarmanın bir yolu var mıdır acaba
Tüm bu aldığım verileri bir çalışma sayfasına aktarıp oradan analize devam etmek istiyorum.
Bunu yapabilir miyim.
Şimdiden teşekkürler

 

[mukilyar]

Hocam merhaba
Aldığım topladığım verileri bir çalışma sayfasına aktardım
Dosyayı 22.30.xlsm adıyla kaydediyor mesela
Bu dosyadaki verileri otomatik olarak alabiliyorum
Daha sonra ertesi gün 22.30.xlsm adıyla yeni verileri kaydediyor.
Ancak verileri topladığım sayfada veriler güncellenmiyor.
22.30.xlsm dosyasını açıp kapatınca veriler güncelleniyor.
Dosyayı açmadan yeni verileri nasıl aktarabilirim veya aktarabilirmiyim
teşekkür ederim