date stamp

[Mark_richardson28]

Does anyone know how to put a date stamp into an excel database. I am using the code

'find first empty row in database
iRow = ws.Cells(Rows.Count, 2) _
  .End(xlUp).Offset(1, 0).Row

Where it finds the first empty row in the datatabse. The Text boxes that the user inputs into then adds the values in from row B to L. leaving A blank for the date the values were inserted. How can i get it to automatically assign the date to the first available cell in row A of the database?

Many thanks

 

[Scott Huish]

I assume you mean Column A.

Perhaps:

ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Date

 

[Mark_richardson28]

Thanks. That helped a lot
does exactly what i was looking for it to do

Cheers