-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Userformda not girme
- Konbuyu başlatan pelin5353
- Başlangıç tarihi
Bunun iki yolu var şu an aklıma gelen.
Birincisi,userform üzerine saat ve tarih de koyup,OK tuşuna bastığında form gizlenir ve belirttiğin zaman tekrar gözükür.
İkincisi,userformdaki bilgileri excel'de gizli bir yere aktarırsın.Belirttiğin saat gelince userform çalışır ve UserForm_Initialize ile tekrar bilgiler yazıldığı yerden alınır.
İkincisi birincisine nazaran daha kullanışlı olur çünkü istediğiniz kadar not yazabilirsiniz.
Birincisi,userform üzerine saat ve tarih de koyup,OK tuşuna bastığında form gizlenir ve belirttiğin zaman tekrar gözükür.
İkincisi,userformdaki bilgileri excel'de gizli bir yere aktarırsın.Belirttiğin saat gelince userform çalışır ve UserForm_Initialize ile tekrar bilgiler yazıldığı yerden alınır.
İkincisi birincisine nazaran daha kullanışlı olur çünkü istediğiniz kadar not yazabilirsiniz.
udentr2002
Altın Üye
- Katılım
- 5 Kasım 2006
- Mesajlar
- 1,475
- Excel Vers. ve Dili
-
iş yerinde Office 365
evde Office 365
- Altın Üyelik Bitiş Tarihi
- 07-11-2024
sn bedersu hocam
Bunu daha açıklayıcı yazabilrmisin bir örnek yada pelin arkadaşımızın verdği örnek üzerinden bir açıklama yaparsan daha çok makbule geöçecektir aynı kod banada lazım olacak şimdiden teşekkkür ederim
Bunu daha açıklayıcı yazabilrmisin bir örnek yada pelin arkadaşımızın verdği örnek üzerinden bir açıklama yaparsan daha çok makbule geöçecektir aynı kod banada lazım olacak şimdiden teşekkkür ederim
kardeş istediğiniz gibi bir şey yapmaya çalışıp yaollarım ama şu an bir piyes yetiştirmem lazım ve daha benden cevap bekleyen 4-5 arkadaş var.hepiniz hakkınızı helel ed.n.İnşallah en kısa zamanda bir cevap yollarım.Tabi bu kadar ustanın içinde biri çıkıp da cevap vermezse 
Merhaba,
Kısıtlı zamanda şu şekilde bir şey yaptım.Siz geliştirebilirsiniz.A1'de saat çalışıyor.B2'de notun görünmesini istediğiniz tarih ve C2'de saati var.O saat geldiğinde Userform1 çalışıyor.Userform_initialize kısmına A2'deki notu alısanız küçük bir reminder yapmış olursunuz.Takıldığınız noktalarda yardımcı olmaya çalışırım.
Bu ilk notu silmek için de userform1.show kısmından hemen sonra ilk notun yazıldığı satırı tamamen silersiniz ve goto yeniden: deyip saati tekrar başlatırsanız ikinci notu da hatırlatır.
Do
DoEvents
[a1] = Format(Now, "hh:mm:ss")
e = (Month(Cells(2, 2)) - Month(Now)) * 30 * 24 * 60
f = (Day(Cells(2, 2)) - Day(Now)) * 24 * 60
g = (Hour(Cells(2, 3)) - Hour(Now)) * 60
h = Minute(Cells(2, 3)) - Minute(Now)
If h < 0 Then g = g - 60
i = e + f + g + h
If i <= 0 Then GoTo son:
Loop
son:
UserForm1.Show
Kısıtlı zamanda şu şekilde bir şey yaptım.Siz geliştirebilirsiniz.A1'de saat çalışıyor.B2'de notun görünmesini istediğiniz tarih ve C2'de saati var.O saat geldiğinde Userform1 çalışıyor.Userform_initialize kısmına A2'deki notu alısanız küçük bir reminder yapmış olursunuz.Takıldığınız noktalarda yardımcı olmaya çalışırım.
Bu ilk notu silmek için de userform1.show kısmından hemen sonra ilk notun yazıldığı satırı tamamen silersiniz ve goto yeniden: deyip saati tekrar başlatırsanız ikinci notu da hatırlatır.
Do
DoEvents
[a1] = Format(Now, "hh:mm:ss")
e = (Month(Cells(2, 2)) - Month(Now)) * 30 * 24 * 60
f = (Day(Cells(2, 2)) - Day(Now)) * 24 * 60
g = (Hour(Cells(2, 3)) - Hour(Now)) * 60
h = Minute(Cells(2, 3)) - Minute(Now)
If h < 0 Then g = g - 60
i = e + f + g + h
If i <= 0 Then GoTo son:
Loop
son:
UserForm1.Show
udentr2002
Altın Üye
- Katılım
- 5 Kasım 2006
- Mesajlar
- 1,475
- Excel Vers. ve Dili
-
iş yerinde Office 365
evde Office 365
- Altın Üyelik Bitiş Tarihi
- 07-11-2024
sn bedersu hocam
gerçekten vermiş olduğunuz kodu o örnek üzerinden açıklayıp kodlarla beraber yazıp gönderebilrmisiniz çok makbule geçecektir lütfenn
gerçekten vermiş olduğunuz kodu o örnek üzerinden açıklayıp kodlarla beraber yazıp gönderebilrmisiniz çok makbule geçecektir lütfenn