Kaydet butonuna "bugünün tarihi mi" sorgulaması?

[Emine Şahin]

Aşağıdaki kodların yardımı ile "kaydet" butonuma tıklıyorum ve verilerim ilgili excel hücrelerine kaydediliyor. Bu verilerimi listboxtan çift tıklama sureti ile tekrar çağırıp kaydediyor, düzeltiyor yahut arşive atıyorum. Burada eski tarih ile kaydedilmiş verilerim de eski tarihinde geliyor. Bazen unutulup tarih değiştirilmeden kaydedilebiliyor.
Çözüm olarak aşağıdaki "kaydet" kodlarıma "TextBox1" de bugünün tarihi mi diye kontrol ettirebilir miyiz?

Private Sub CommandButton1_Click()
If TextBox3.Text = Empty Then
MsgBox "Lütfen Alıcı Adı ve Soyadı Giriniz.", vbExclamation, "": Exit Sub
End If   ' BOŞ BIRAKILMASINI İSTEMEDİĞİNİZ YERLER İÇİN...

If TextBox4.Text = Empty Then
MsgBox "Alıcı Adres Bilgilerini Kontrol ediniz!", vbExclamation, "": Exit Sub
End If   ' BOŞ BIRAKILMASINI İSTEMEDİĞİNİZ YERLER İÇİN...

With Sheets("satış")
Satır = .Range("A65536").End(3).Row + 1 ' a sütunundaki son dolu satırı bulup bir sonraki satıra aşağıdaki işlemi yapar
.Cells(Satır, 1) = CDate(TextBox1.Value) 'birinci sütuna Textbox1 tarih formatında yazılır
.Cells(Satır, 2) = TextBox2 ' ikinci sutuna textbox2 yazar
.Cells(Satır, 3) = TextBox3
.Cells(Satır, 4) = TextBox4
.Cells(Satır, 5) = ComboBox1
.Cells(Satır, 6) = ComboBox2
.Cells(Satır, 7) = TextBox5.Value
.Cells(Satır, 8) = TextBox6.Value
.Cells(Satır, 9) = TextBox7.Value
.Cells(Satır, 10) = ComboBox3
.Cells(Satır, 11) = ComboBox4
.Cells(Satır, 12) = TextBox8
.Cells(Satır, 13) = ComboBox5
.Cells(Satır, 14) = ComboBox6.Value
.Cells(Satır, 15) = ComboBox7
.Cells(Satır, 16) = ComboBox8
.Cells(Satır, 17) = ComboBox9
.Cells(Satır, 18) = ComboBox10
.Cells(Satır, 19) = ComboBox11.Value
.Cells(Satır, 20) = TextBox9
.Cells(Satır, 21) = TextBox10.Value

For i = 2 To 10
Controls("Textbox" & i).Value = ""
Next
ListBox1.RowSource = "A1:U" & [a65536].End(3).Row
'liste kutusunun satır kaynagının hangi hücreler olduğu belirtiliyor.
End With
deger1 = 0
MsgBox "KAYIT İŞLEMİ TAMAMLANDI", , ""
End Sub

 

[Excelmy]

Uygulama yapınız.

If CDate(TextBox1) <> Date Then
MsgBox "Tarih Bugüne Ait Değil"
Exit Sub
End If