bir makronun 10 sn de bir sürekli çalışması

kelesh · 22 Mart 2007

hazırladığım bir makroyu başlattıktan sonra 10 sn de bir kendi kendine tekrar çalışmasını istiyorum bunun için nasıl bir kod eklemem gerekiyor yardım ederseniz sevinirim

bedersu · 22 Mart 2007

Merhaba,

Kodlar şu şekilde:

yeniden:
Dim duraksama, başla, dur
duraksama = 10
başla = timer
Do While timer < başla + duraksama
DoEvents
Loop
dur = timer
MsgBox "merhaba"
GoTo yeniden:

kelesh · 23 Mart 2007

biraz daha yardımcı olabilirseniz sevinirim bu konularda çok bilgili değilimde şimdi benim hazırladığım makroyu aşağıda görebilirsiniz sizin kodları buna nasıl ekleyecegim yada benim kodları sizinkine nasıl ekleyecegim aynen copy paste yapınca çalışmıyor da

benim istedigim olay kısaca bu makroyu bir kez calıştırınca 10 sn de bir kendi kendine ben durdurana kadar çalışması

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 23.03.2007 by Pc
'

'
Selection.Copy
Range("G5").Select
ActiveSheet.Paste
Rows("5:5").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
End Sub

ocamsul · 23 Mart 2007

kelesh' Alıntı:
benim istedigim olay kısaca bu makroyu bir kez calıştırınca 10 sn de bir kendi kendine ben durdurana kadar çalışması

Bu şekilde deneyin!!!

Kod:

Sub cal&#305;s()
yeniden:
Dim duraksama, ba&#351;la, dur
duraksama = 10
ba&#351;la = Timer
Do While Timer < ba&#351;la + duraksama
DoEvents
Loop
dur = Timer
MsgBox "merhaba"
GoTo yeniden:
Call Macro1
______________________________________________________
End Sub
Sub Macro1()
Sheets("Sayfa1").Select
Selection.Copy
Range("G5").Select
ActiveSheet.Paste
Rows("5:5").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
End Sub

baydeniro · 23 Mart 2007

Sayın kelesh. Sayın ocamsul güzel bir kod yazmış. Bunun uygulandığı basit bir dosyayı konuya ekler misiniz !!!

kelesh · 23 Mart 2007

hocam çalıştırabilsem koyacam da şöyle bir sorun var 10 sn de bir macro çalışığ ekrana merhaba yazısı getiriyo ama macro 1 i çalıştırmıyo yani sadece kendi çalısıyo

problemin nerde olduğunu bulamadım bir de kodun yarısı ing yarısı Türkçe oldu bu bi sorun yaratır mı

bedersu · 23 Mart 2007

merhaba,
msgbox "merhaba" yerine call makro1 yazın.Buradaki makro1 sizin çalışmasını istediğiniz makrodur.
Ben bu kodları gönderirken sizin çalıştırmak isrediğiniz makronun simini bilmediğim için mesaj çalıştırmıştım.Mesajın çalıştığı yerde sizin çalışmasını istediğiniz makronun ismini call ile çağırırsanız o makro çalışır.Call zaten çağırmak anlamına gelir.

Kodlarda zaten set ile ya da = ile bir atama yapmadıysanız Türkçe karakterler ya da kelimeler olmaz.Bu şekilde bir atamada da bir sorun olmaz.

kelesh · 23 Mart 2007

teşekkürler deneyip sonucu yazarım

nkumas · 18 Ağustos 2007

ya ben pek anlayamadım.. benim istedigim de bi excel dosyasının otomatik olarak tum worksheetlerini 10 sn de bir korumaya alması.

yani password kırıcı programlarla kırılmıs olsa bile 10sn de bir yeniden korumaya alınacagı icin bir ise yaramaz.Ancak Vba şifresi kırıp kodu duzeltmeleri gerekir diye dusunuyorum ama denemelerim basarısız. yardımcı olabilir misiniz? Su alttakine bi zamanlayıcı ekliycez sanırım

Public Const parole As String = "1234"
Sub protectme()
Dim wks As Worksheet, i%
For i = 1 To 3
Set wks = ThisWorkbook.Sheets(i)
wks.Protect parole
Next i
ThisWorkbook.Protect parole

End Sub

Korhan Ayhan · 18 Ağustos 2007

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Dosya açıldıktan 10 saniye sonra çalışmanızdaki tüm sayfalar otomatik olarak korumaya alınır ve uyarı mesajı ile kullanıcı uyarılır. Her 10 saniyede bir işlem tekrar edilir.

nkumas · 18 Ağustos 2007

oldu süper çok tesekkür ederim..

Vedat Özer · 6 Eylül 2017

Selamlar,

Korhan bey,

Dosya'ya ulaşamıyorum rica etsem tekrar yükleyebilirmisiniz.

Vedat Özer · 6 Eylül 2017

Aşağıdaki şekilde çözüme ulaştım.

Kod:

Private Sub fff()
yeniden:
Dim duraksama, başla, dur
duraksama = 10
başla = Timer
Do While Timer < başla + duraksama
DoEvents
Loop
dur = Timer
Call "Makro Adı"
GoTo yeniden:

End Sub

bir makronun 10 sn de bir sürekli çalışması

Administrator