macro içine otamitik tarih eklenmesi

[agakin]

Merhaba arkadaşlar

Private Sub CommandButton1_Click()
Range("A3").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A3").Value = "" Then
Range("A3").Value = 1
Range("A3").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
xxxxxxxxxxx
ActiveCell.Offset(0, 2).Value = TextBox1.Text
ActiveCell.Offset(0, 3).Value = TextBox2.Text
ActiveCell.Offset(0, 4).Value = TextBox3.Text
ActiveCell.Offset(0, 5).Value = TextBox4.Text
ActiveCell.Offset(0, 6).Value = TextBox3.Text
ActiveCell.Offset(0, 7).Value = TextBox6.Text

MsgBox ("Kayıt Tamamlandı")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""

End Sub

xxxxxx olarak yazdığım kısma excel de tarih(B2) altına işlemin yapıldığı günü otomatik olarak ekletmek istiyorum. bunu nasıl yapacagız acaba nasıl bir kod gerekiyor texboxtan seçtiripte ekletebilirim php ciyim ben yeni olduğumu düşünün lütfen

 

[agakin]

arama yaparak tarih sorununu hallettim teşekkür ederim