ComboBox ve TextBoxlarla diğer sayfaya veri kaydı

[kelkitli]

Değerli Dostlar Selamlar,

Sub Kayıt()
On Error Resume Next
Application.ScreenUpdating = False
Set S1 = Sayfa5
S1.Select
UserForm1("TextBox1,TextBox9").Copy
S1.Select
Son_Satır = Range("B65536").End(3).Offset(1).Row
Range("A" & Son_Satır) = Son_Satır - 1
Range("B65536").End(3).Offset(1).Select
For a = 0 To 9
ActiveCell.Offset(0, a).Value = UserForm1.Controls("Textbox" & a + 0).Value
Next a
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=True
Application.CutCopyMode = False
S1.Select
Set S1 = Nothing
MsgBox "MAKBUZ KAYDI TAMAMLANDI"
End Sub

Bu kodlarla kayıt yapıyorum. Ancak bir de ComboBox var, B sütununa ComboBox1 ile birde uygun görülen bir sütuna kayıt tarihi (bu gün) kaydı ilave etmek istiyorum. Tarih son sütunda da olabilir.

 

[kelkitli]

Hayırlı geceler,
Dostlar işlem tamamlandı. Zahmet etmeyin.

Sub Kayıt()
On Error Resume Next
Application.ScreenUpdating = False
Set s1 = Sayfa5
s1.Select
Son_Satır = Range("B65536").End(3).Offset(1).Row
Range("A" & Son_Satır) = Son_Satır - 1
Range("B65536").End(3).Offset(1).Select
ActiveCell.Offset(0, 0).Value = UserForm1.ComboBox1.Value
ActiveCell.Offset(0, 1).Value = UserForm1.TextBox1.Value
ActiveCell.Offset(0, 2).Value = Format(Date, "dd.mm.yyyy")
ActiveCell.Offset(0, 3).Value = UserForm1.TextBox3.Value
ActiveCell.Offset(0, 4).Value = UserForm1.TextBox4.Value
ActiveCell.Offset(0, 5).Value = UserForm1.TextBox9.Value
s1.Select
Set s1 = Nothing
MsgBox "MAKBUZ KAYDI TAMAMLANDI"
End Sub