Snasui Excel Forum

Code: Select all

Private Sub Save_Click()
Dim ws As Worksheet
Dim addto As Range

Set ws = Sheet3
Set addto = ws.Range("a65356").End(xlUp).Offset(1, 0)
With ws
addto = texDate.Value
addto.Offset(0, 1).Value = Type1.Value
addto.Offset(0, 2).Value = ID_code.Value
addto.Offset(0, 3).Value = Description.Value
addto.Offset(0, 4).Value = Price.Value
addto.Offset(0, 5).Value = Number.Value
End With

texDate.Value = Format(Date, "Medium Date")
Type1.Value = ""
ID_code.Value = ""
Description.Value = ""
Price.Value = ""
Number.Value = ""
End Sub

Code: Select all

Private Sub texDate_Enter()
curdate = Now
texDate.Value = Format(Date, "medium date")

End Sub

Code: Select all

texDate.Value = Format(Date, "DD/MM/YYYY") & Format(Time(), "HH:MM:SS")