Datestamp using VBA?

Question

How do I put a date into a cell when you click a button and concatenate it with the current value
Dim NextID As Integer
Dim Today As Date
Today = Now
NextID = Range("a1") + 1
Range("a1") = NextID

so I want NextID + Todays date

so it enters in The NextID100107 for example
Range("b6") = NextID

Answer 1

LOL yeah, the VB language does support concatenation with bouth & and +, but with + you have to implicitly convert a value that is not a string: Range("a1") = NextID + cstr(today)

note that Now() will output also time, not only date.

Answer 2

change the NextID variable-type to Long. the Integer type cannot cope with number greater than 32767.


Sub adate()
Dim NextID As Long
Dim Today As Date
Today = Format(Now, "dd/mm/yy")
Range("A1") = Range("A1") + 1
NextID = Range("A1") + Today
Range("B6") = NextID
End Sub

Answer 3

Range("b6") = NextID & Today