Zamanlı Veri Aktarımı ?

[ozgurpeh]

Arkadaşlar farklı iki çalışma arasında günün belli saatleri arasında sayfalar kapalıda olsa nasıl otomatik veri aktarabiliriz ? Böyle birşey yapılabilir mi?

 

[N.Ziya Hiçdurmaz]

Yanıt

Örneği inceleyip kendinize uyarlayınız.

Sub AUTO_OPEN()
Application.OnTime Now + TimeValue("00:01:00"), "TEST"
End Sub
Sub TEST()
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
For SUT = 1 To S1.[A65536].End(3).Row
SONSAT = S2.[A65536].End(3).Row
S2.Range("A" & SONSAT + 1 & ":C" & SONSAT + 1) = S1.Range("A" & SUT & ":C" & SUT).Value
Next
End Sub

 

[ozgurpeh]

Örneği inceleyip kendinize uyarlayınız.

Sub AUTO_OPEN()
Application.OnTime Now + TimeValue("00:01:00"), "TEST"
End Sub
Sub TEST()
Set S1 = Sheets("Sayfa1")
Set S2 = Sheets("Sayfa2")
For SUT = 1 To S1.[A65536].End(3).Row
SONSAT = S2.[A65536].End(3).Row
S2.Range("A" & SONSAT + 1 & ":C" & SONSAT + 1) = S1.Range("A" & SUT & ":C" & SUT).Value
Next
End Sub

Güzel Bir Paylaşım Fakat ;
Dosya açıldıktan sonrta sanırım 1 dakika sonra atıyo bunu bilgisayarın saatine göre belli bir saat veremzmiyiz mesela hergün saat 17:00 de gibi

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil deneyiniz.

Sub AUTO_OPEN()
Application.OnTime TimeValue("21:05:00"), "TEST"
End Sub

 

[baydeniro]

Sayın V.Basic For Applications, paylaşım için çok teşekkürler. Harika bir kod.

 

[N.Ziya Hiçdurmaz]

Bişey değil.