hatırlatma makrosu

[elvis]

textbox1 e yazılı tarihe uyan veya büyük olan değerleri a sütununda aramak

Arkadaşlar! aşağıda yazmış olduğum kodu benim istediğim şekilde düzenleyebilir misiniz? Ben uğraştım ancak yapamadım. Konu şu;
not isimli bir sayfa var, a sütununda tarihler, b sütununda da yazılan notlar var. Userform açıldığında; otomotik olarak (userformda textbox1 isimli kutucuğa sistem tarihi gelecek) textbox1'deki yazılı tarihten büyük veya eşit olması durumunda not isimli sayfanın a sütunundaki tarihleri tarayacak, uyan kısımları msgbox olarak gösterecek.

For a = 1 To [a65536].End(3).Row
If Val(Range("a1:a" & a)) >= Val(textbox1.value) Then MsgBox "BUGÜN YAPILACAK İŞİN VAR" & Cells(a, "b")

Next

Şimdiden yardımlarınız için teşekkür ediyorum.

 

[Recep İpek]

Aşağıdaki şekilde deneyiniz.

Private Sub UserForm_Initialize()
TextBox1.Value = Format(Date, "dd.mm.yyyy")
For a = 2 To [a65536].End(3).Row
If CDate(Cells(a, "a")) >= CDate(TextBox1.Value) Then MsgBox "BUGÜN YAPILACAK İŞİN VAR. " & Chr(10) & Chr(10) & Cells(a, "a") & "-" & Cells(a, "b"), vbCritical + vbOKOnly + vbInformation, "UYARI"
Next
End Sub

 

[elvis]

Çok teşekkür ediyorum Üstad.