Otomotik makro

[arslan]

iyi çalışmalar arkadaşlar

Açılıştan 1 dakika sonra makro otomatik çalışabilirmi

 

[bedersu]

Merhaba,
Aşağıdaki kodu auto_open olarak kaydedin.benim mesaj ismini verdiğim makroya da 1 dakika sonra çalışmasını istediğiniz makronun ismini yazın.Kitap açıldıktan 1 dk sonra istediğiniz makro çalışacaktır.Kolay gelsin:

Sub auto_open()
Dim duraksama, başla, dur
duraksama = 60
başla = timer
Do While timer < başla + duraksama
DoEvents
Loop
dur = timer
Call mesaj
End Sub

Sub mesaj()
MsgBox "1 Dakika geçti"
End Sub

 

[rcekinir]

Sayın arslan
Aşağıdaki kodları bir module yazarsan dediğin olur.
Eğer kitabında zaten auto_open makrosu varsa o zaman aşağıdaki auto_open içindeki kodları var olan auto_open makrosunun içine yaz

Sub auto_open()
sure = Now + TimeSerial(0, 1, 0)
Application.OnTime earliesttime:=sure, procedure:="Makromuz", schedule:=True
End Sub
Sub Makromuz()
MsgBox ("Kitap Açılalı 1 Dakika Oldu")
End Sub

Kolay gelsin.

 

[arslan]

Arkadaşlar ilginize ve yardımlarınıza teşekkürler
Kodlar işimi gördü

 

[arslan]

Arkadaşlar Afedersiniz
sanırım yanlış anlatmışım
Makro her bir dakikada otomotik yenileme yapıyor
Benim istediğim
Exceli açınca Makronun bir dakika sonra bir defaya mahsus açılmasını istiyorum tekrardan yenileme yapmasın.

 

[rcekinir]

Sayın arslan
Ben sorunuzu sizin dediğiniz gibi anladım.Ve kodları sadece açılıştan 1 dakika sonra ve sadece bir kez çalışacak şekilde hazırladım.Denediğimde de dediğim gibi çalışmıştı.
Þimdi tekrar denedim yine sadece bir kere çalışıyor.
Acaba siz farklı bir işlem mi yapıyorsunuz merak ettim.
Yazdığım kodları bir module yazacaksınız o kadar.Çalışması lazım.Çünkü Defalarca denedim.
Tekrar deneyip sonucu bildirirseniz memnun olurum.
kolay gelsin

 

[arslan]

Haklısınız ya sorun benden kaynaklanıyor
ben makroyu userform active ye yazmıştım oradanda başka bir makroyu çalıştırsın diye oradan bi döngü kurmuş simdi çözüldü.
buna bi ekleme daha gerek duyuyorum bu günün vede geçmiş tarihide bulursa çalışsın diye acaba düzenlememe yardımcı olabilirmisiniz.
Ara sıra fazladan verdiğimiz rahatsılzlıklar için umarım affediyorsunuzdur

 

[rcekinir]

Sayın arslan
Yeni isteğinizi anlayamadım
Bu günün vede geçmiş tarihide bulursa çalışsın dan kastınız nedir biraz daha açarsanız yardımcı olabiliriz.Bugünün vede geçmiş tarihi nerede bulacak.Kolay gelsin.

 

[arslan]

Eksik göndermişim
Aşsagıdaki makro için demiştim günün tarihini bulunca çalışıyor.
Geçmiş tarihide bulunca çalışsın istiyorum.

Sub Uyarı()
Sheets("deneme").Select
On Error GoTo 10
Sheets("deneme").[D1150].Find(Date).Select
sat = Sheets("deneme").[D1150].Find(Date).Row
Hatırlatma.Label1 = Sheets("Deneme").Cells(sat, 10)
Hatırlatma.Label2 = Sheets("Deneme").Cells(sat, 8)
Hatırlatma.Label3 = Sheets("deneme").Cells(sat, 9)
Hatırlatma.Show
10 End Sub