DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Belli olsun diye sarıya boyadığım sütünlara çift tıkladığım zaman açılan takvim yapmak istiyorum. (excell 20007 kullanıyorum.)
elinize kolunuza sağlık yurttaş hocam tam istediğim gibi olmuş. bir sakıncası yoksa bu işlemi nasıl yaptığınızıda anlatabirmisiniz .
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, [c2:c500]) Is Nothing Then Exit Sub
Takvim.Show
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
On Error GoTo hata
If CDate(Target.Value) > Date Then
MsgBox "Girdiğiniz Tarih Bu Günkü Tarihten Büyük!", vbCritical, ""
Target.Select
End If
hata:
End Sub
.
Excel'deki düzeyiniz vasatın üstünde ise;
1. Bir Form ekleyin.
2. Form'un üstüne Toolbox'tan Calender nesnesini ekleyin.
.
Merhaba; eklediğiniz dosyada bir mesaj alıyorum. aldığım mesajı resim olarak ekledim. Sorunu çözmemde yardımcı olursanız çok sevinirim. Şimdiden yarımlara çok teşekkürler.