10sn bekleme yaparken başka dosya kullanamıyorum

[svorm]

Merhaba,

Ekte belirttiğim dosyada yatığım makroda sayfa1 den sayfa2 ye veri alıyorum ve 10sn de bir verinin güncellenmesini sağlıyorum.
Fakat makro sürekli çalıştığı anda başka Excel dosyalarında çalışamıyorum. Direkt kum saati çıkıyor ve kilitliyor.
Bu konuda farklı bir yol konusunda yardımcı olabilirmisiniz. Dosya bu haliyle çok kullanışsız oldu.


Teşekkürler

 

[svorm]

bu konuda yardımcı olabilirmisiniz

 

[halit3]

Alternatif kod:
Çalıştır ve durdur makrolarını kullanın

Dim saat
Dim sat
Dim i

Sub durdur()
On Error Resume Next
Application.OnTime saat, "yilmaz", , False
End Sub

Sub calistir()
Set s1 = Sheets("Sayfa1")
sat = s1.Cells(65536, "A").End(xlUp).Row + 1
i = 6
yilmaz
End Sub

Sub yilmaz()

Dim s1 As Worksheet, s2 As Worksheet
Dim hcr As Range
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
If i = sat Then MsgBox "işlem tamam": durdur: End
a = s1.Cells(i, 1)
s2.Range("b1") = a
s2.Range("b2") = s1.Cells(i, 2)
s2.Range("b3") = s1.Cells(i, 3)
s2.Range("b4") = s1.Cells(i, 4)
s2.Range("e1") = s1.Cells(i, 7)
s2.Range("e2") = s1.Cells(i, 8)
s2.Range("e3") = s1.Cells(i, 9)
s2.Range("e4") = s1.Cells(i, 10)
Application.OnTime Now + TimeValue("00:00:10"), "yilmaz"
i = i + 1

End Sub