zamanı gelince

[sekand]

selamlar
daha önceden formdan aldığım ve değerli arkadaşlardan birinin yapmış olduğu dosyayı kendime uyarladım ve bi türlü o konuyu tekrar bulamadım.
ekteki dosyayı kendime göre uyarladım ancak bir türlü olmuyor istediğim benim belirtmiş olduğum terihte bana mesaj vermesi bu kadar basit ama :kafa:
saygılar

 

[Levent Menteşoğlu]

Sanırım aşağıdaki linki kasdediyorsunuz.

http://www.excel.web.tr/viewtopic.php?p=12206&highlight=#12206

 

[sekand]

hocam saygılar evet hocam bu link ve ordaki yazdığınız olayı de denemiştim ancak benim istediğim textbolardan giriş .ben textlerden girdiğimde formatlar değişiyor gerçi ekteki dosyada gördüğünüz gibi text format yapmışım ancak yinede birbirini tanımıyor ayrıca sub calis makrosu sayfa üzerinde işlem yapmama izin vermiyor bir hücreye veri girdiğimde makro duruyor
saygılar

 

[Levent Menteşoğlu]

Dosyanıza göre Userformdan girdiğiniz tarihi A2 hücresine yazacak,B2 hücresinede normal çalışma zamanı yazılacak, umarım doğru anlamışımdır. Peki zaman eşitlendiğinde nasıl bir mesaj çıkacak,bu mesajda ne yazacak,bunları netleştirirseniz yardımcı olmaya çalışalım.

 

[sekand]

sadece bu makroyu ben açıyışa koycam ve program çalışmaya başladığından itibaren sürekli kontrol edecek eger eşitlenirse sayfa1 deki c2 hücresinin değerin versin ben oraya başka textle veri gircem
mesela "günlüğünüzde c1 konulu işin zamanı gelmiştir."
yada sadece mesaj versin "zamını geldi " gibi
eklemeyi unuttum bunu xla olarak olmasını istemiyorum
saygılar

 

[sekand]

selamlar
biliyorum şansımı zorluyorum ama burada takıldım desem
saygılar

 

[Levent Menteşoğlu]

Ekte dosyanıza gerekli ilaveleri yaptım. Userformunuz açıldığında zaman işlemeye başlar. Userformdan tarihi ve saati gün ile aynı yapıp,dakikayı 1 dk sonrasına ayarlayıp randevu ekle butonuna basın. Ayarladığınız zamanı A1 hücresine yazılacaktır. Sonra 1 dk bekleyerek çalışmasını görebilirsiniz. Zaman eşitlendiğinde karşınıza bir msgbox çıkacaktır. Eğer dosya açılır açılmaz zamanın çalışmasını isterseniz bu durumda aşağıdaki kodu ilave etmeni yeterlidir. Bu durumda sayfadaki butona bağlı kod içindeki "call baslat" satırınıda silin.

[vb:1:349443817d]Sub auto_open()
Call baslat
End Sub
[/vb:1:349443817d]

Not:çalışan zaman ve çıkacak mesaj makronun içindedir.

 

[sekand]

selam levent bey
elinize sağlık güzel olmuş ancak küçük bir sorun var
ben bunu auto_open yaptığımda başka bir forma geçmek istediğimde hata veriyor yani o anda call başlat çalıştığı için bunu sonlandırmadan başka bir işe geçmiyor yani bu durumda formun sürekli açık olması gerekiyor gibi ben open makrosuna atayacaıım ama bu arada benim işlere bir sakıncası olmayacak
saygılar