Günün tarihini kaydetmesin

[alitolga2000]

Merhabalar,

Private Sub TextBox69_change()
TextBox69.Font.Bold = False
If TextBox68 & TextBox69 = "" Then
TextBox182 = ""
TextBox183 = ""
TextBox184 = ""
Exit Sub
Else
If Not IsDate(TextBox69) Then
TextBox69.Value = Format(Now, "dd.mm.yyyy")
TextBox69.Font.Bold = True
Exit Sub
End If
TextBox182 = Kidem2((TextBox68), ((TextBox69)))
TextBox183 = Kidem1((TextBox68), ((TextBox69)))
TextBox184 = Kidem((TextBox68), ((TextBox69)))
End If
End Sub

yukardaki kodlarla textbox69 a günün tarihi yazılıyor.
ve aşağıdaki kodla kaydediyorum.

If TextBox69.Value = IsDate(TextBox69) Then
Cells(say + 1, 69).Value = CLng(CDate(TextBox69.Value)) * 1
Else
Cells(say + 1, 69).Value = TextBox69.Value
End If

eğer textbox69 dokuzdaki değer günün tarihi ise kaydetmemesini nasıl sağlarız.
yanlız elle girilmiş olan olabileceği için sadece formüllü olan bugünün tarihini kaydetmiyecek.
sağolun.

 

[Mahmut Kök]

aşağıdaki gibi deneyiniz.

If CDate(Format(TextBox69, "dd.mm.yyyy")) = CDate(Format(Date, "mm.dd.yyyy")) Then
MsgBox "kayıt yapamazsınız."
End If

 

[alitolga2000]

Kayıt yapamazdan ziyade kayıt yapacak ama hücreden getirdiği değilde kodlanmış olarak yazılan now ("dd.mm.yyyy") olursa hücreye kaydetmiyecek.