Sayfa her dakika kendini Otomatik F9 YAPMASI

[sensizsoldum]

Merhaba
Her dakikada kendini otomatik F9 yapan bir makro lazım. Makro kaydet ile butonlu yapıyorum, ama bana dediğim gibi her dakikada otomatik F9 yaparak sayfanın kendisini yenilemesi gerekiyor. Excelin özelliklerinde var mı bilmiyorum ama sanırsam makro ile olacak gibi.

 

[Merhum İdris SERDAR]

.

Sub Hesapla()
    Calculate
    Application.OnTime Now + TimeValue("00:01:00"), "Hesapla"
End Sub

.

Not: Düzeltildi.

 

[sensizsoldum]

Merhaba Sayın Yurttaş,
Hocam bu makro butonsuz olabilir mi, her dakika otomatik kendi yapmalı bu işlemi !

 

[Merhum İdris SERDAR]

Merhaba Sayın Yurttaş,
Hocam bu makro butonsuz olabilir mi, her dakika otomatik kendi yapmalı bu işlemi !

.

Bir kere çalıştırmanız yeterli.

.

 

[sensizsoldum]

istediğim gibi değil. ben yine manuel olarak F9 yapıyorum

 

[Merhum İdris SERDAR]

istediğim gibi değil. ben yine manuel olarak F9 yapıyorum

.

İyi. İstediğiniz gibi değilse, kullanmazsınız olur biter.

Zaten hep dikkatimi çekmiştir. Sizin konular sündükçe sünüyor, uzadıkça uzuyor...

Konudan keyif almaktan çok bir eziyete dönüşüyor.

Kusura bakmayın, bu işte ben yokum.


.

 

[mustafaine1]

Asagidaki sekilde denermisiniz.

Public Kos_zaman As Double
Public Const Zaman = 60
Public Const Kosulacak = "Hesapla"

Sub Hesapla()
    Kos_zaman = Now + TimeSerial(0, 0, Zaman)
    Application.OnTime EarliestTime:=Kos_zaman, Procedure:=Kosulacak, _
        Schedule:=True
Calculate
End Sub

 

[sensizsoldum]

Merhaba
yok arkadaşım bu da olmadı. Yani şunu istiyorum. dakikada otomatik F9 yapsın istiyorum. kodu ekledim kapa aç yaptım. yine aynı şekilde... manuel olarak f9 yapıyorum.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu boş bir modüle uygulayıp deneyiniz.

Sub AUTO_OPEN()
    Application.OnTime (Now + TimeValue("00:01:00")), "HESAPLA"
End Sub
 
Sub HESAPLA()
    SendKeys "{F9}"
    AUTO_OPEN
End Sub

 

[uzmanamele]

Merhaba

syn yurttas'ın kodunu bu şekilde deneyiniz.

Sub Hesapla()
    Calculate
    Application.OnTime Now + TimeValue("00:01:00"), "Hesapla"
End Sub

 

[sensizsoldum]

Merhaba,
İlgi ve alakanızdan doluya hepinize ayrı ayrı teşekkür ederim. Ben ek ekliyorum. Hepsini denedim kodların ama çözüme gidemedim. G2 hücresindeki zamanın sürekli olarak güncel görünmesini istiyorum. Ayrıca. Zaman sıfırlandığında Bir ezan MP3 ekleyip çalmasını istiyorum. Eminim hepimizin ihtiyacı olacaktır buna diye düşünüyorum.

 

[talebeyim]

Merhaba,
İlgi ve alakanızdan doluya hepinize ayrı ayrı teşekkür ederim. Ben ek ekliyorum. Hepsini denedim kodların ama çözüme gidemedim. G2 hücresindeki zamanın sürekli olarak güncel görünmesini istiyorum. Ayrıca. Zaman sıfırlandığında Bir ezan MP3 ekleyip çalmasını istiyorum. Eminim hepimizin ihtiyacı olacaktır buna diye düşünüyorum.

Eee pes yani Sensizoldum tek tek kelime ile pes.
Yahu arkadasların herbirinin verdiği kodun basına auto open uygulasan hepsi aynı işi görüyordu, birde o kadar adamı uğraştırmışsın Yurttaşında kalbini kırmışsın.

Yahu mubarek hadi hiçbirisini denemedin, Korhanın kodunudamı denemedin ya?

adam yemeği pişirmiş hazır hale getirmiş sen ağzına sokmayı becerememişsin,

Sub AUTO_OPEN()
    Application.OnTime (Now + TimeValue("00:01:00")), "HESAPLA"
End Sub

Ya bak yukarıdaki kodu al, Modüle kopyala sen hepsini sheete kopyalıyorsun...
Sonra kaydet kapat tekrar aç ve sadece 1.dk geçmesini bekle güncelliyorya işte zamanı.

Ya neyse hayırlı iftarlar ya.

 

[uzmanamele]

Merhaba,
İlgi ve alakanızdan doluya hepinize ayrı ayrı teşekkür ederim. Ben ek ekliyorum. Hepsini denedim kodların ama çözüme gidemedim. G2 hücresindeki zamanın sürekli olarak güncel görünmesini istiyorum. Ayrıca. Zaman sıfırlandığında Bir ezan MP3 ekleyip çalmasını istiyorum. Eminim hepimizin ihtiyacı olacaktır buna diye düşünüyorum.

Merhaba
Hiçbirini tutturamayınca, günlerden de ramazan, iftar ezanı herkese lazım olur diye zarf atmış arkadaş.
Ben bu zarfı açmayayım.

 

[sensizsoldum]

Merhaba Sayın uzman Hocam. art niyetli bir yorumu sizden hiç beklemiyordum. öte yandan diğer talebe arkadaşı kınıyorum.
İstediğiniz gibi övünüp alay edebilirsiniz meydanı size bıraktım.

 

[eseniks]

=EĞER($K$3>D2;"ALLAH kabul etsin..!";EĞER(C2>$K$3;"";D2-$K$3))

=EĞER($K$3<D2;"Tekrar deneyiniz..!";EĞER(C2>$K$3;"";D2-$K$3))

 

[uzmanamele]

Merhaba Sayın uzman Hocam. art niyetli bir yorumu sizden hiç beklemiyordum. öte yandan diğer talebe arkadaşı kınıyorum.
İstediğiniz gibi övünüp alay edebilirsiniz meydanı size bıraktım.

Merhaba

Övme de yerme de hakkımız!
Hakkımız olmayan sadece art niyet!
Siz alınacaksınız diye eleştiriden de çekinmem.
Bir art niyet varsa o da sizin yazdıklarınızdadır!

Belimizde kılıcımız kirmani
Taşı deler mızrağımın temreni
Hakkımızda Devlet Vermiş Fermanı
Ferman padişahın dağlar bizimdir

 

[sensizsoldum]

Merhaba,
Art niyetli olmadığımı eminim beni tanıyan herkes biliyor, buda sizin bakış açınızdır. Bunu küçükte olsa açıklamaya şunun yeteceğini düşünüyorum. Bu konuya yazılan tüm cevapları tek tek denedim, sonuç alamadım. Belki çalışmada bir problem var, belki ben yanlış bir şeyler yaptım. Ama bazı arkadaşlar gibi bir şeyleri biliyor gibi ezbere hareket etmiyorum. Buda çok iyi bilenin hatasız olmadığını anlatabiliyor. Dediğim gibi sizin bakış açınızdır. Şunu yapmanızı beklerdim.
Madem art niyetliyim, neden konuya ilgi gösteriyorsunuz. Bu konuyu es geçebilirdiniz. Sizden beklediğim buydu. Ama alay edercesine bir şeyleri yazmak gerçekten sizin ne hakkınız, nede harcınız. Öte yandan Sayın Talebeyim arkadaşı dikkate bile almak istemiyorum.
İyi çalışmalar.

 

[uzmanamele]

Merhaba,
Art niyetli olmadığımı eminim beni tanıyan herkes biliyor, buda sizin bakış açınızdır. Bunu küçükte olsa açıklamaya şunun yeteceğini düşünüyorum. Bu konuya yazılan tüm cevapları tek tek denedim, sonuç alamadım. Belki çalışmada bir problem var, belki ben yanlış bir şeyler yaptım. Ama bazı arkadaşlar gibi bir şeyleri biliyor gibi ezbere hareket etmiyorum. Buda çok iyi bilenin hatasız olmadığını anlatabiliyor. Dediğim gibi sizin bakış açınızdır. Şunu yapmanızı beklerdim.
Madem art niyetliyim, neden konuya ilgi gösteriyorsunuz. Bu konuyu es geçebilirdiniz. Sizden beklediğim buydu. Ama alay edercesine bir şeyleri yazmak gerçekten sizin ne hakkınız, nede harcınız. Öte yandan Sayın Talebeyim arkadaşı dikkate bile almak istemiyorum.
İyi çalışmalar.

Merhaba
Sizin ne niyette olduğunuzu umursamam!
Kimi dikkate alıp almayacağınız da umrumda değil.
Yanlış olan bir durum varsa ilgilisi cevap verecektir, gereken cevap verilmezse görmemezlikten de gelmem.
Kaldı ki siz beni art niyetli olmakla suçlarsanız ve devamında da posta koymaya kalkarsanız sizi tefe koyar çalarım! Asıl siz haddinizi bilin!

 

[sensizsoldum]

Merhaba,
Benim ne niyette olduğumu zaten umursamayın.
Hatta beni de hiç umursamayın, Ama yazdığım, konulara emin olmadan, hakkımda yorum da yapmayın.
Gelelim cevaba, konuya başından sonuna kadar yeniden göz attığınızda kimin daha hadsiz olduğunu eminim göreceksiniz. Bu arada tef bana küçük gelir

İyi akşamlar.

 

[uzmanamele]

Merhaba,
Benim ne niyette olduğumu zaten umursamayın.
Hatta beni de hiç umursamayın, Ama yazdığım, konulara emin olmadan, hakkımda yorum da yapmayın.
Gelelim cevaba, konuya başından sonuna kadar yeniden göz attığınızda kimin daha hadsiz olduğunu eminim göreceksiniz. Bu arada tef bana küçük gelir

İyi akşamlar.

Haklısınız, sizi umursamıyorum!
Haddini bilmez biriyle tartışmanın da alemi yok zaten.
Davul dengi dengine çalar!