VBA Magician required again

[mikemcbain]

I have had such success on this Forum that I will cheekily test your generosity once again!

Each day I import several hundred rows of data in columns A:K of a xlsm workbook interspersed randomly with blank rows and I must manually put today's Date into Column O:O of each row containing data.

Would some wizard produce a little VBA code for me that I can use to insert today's date into Column O:O?

I would like to add it to the end of the macro that imports the other data to this workbook.

I use Office 365 and Windows 10 and I am 82yo and starting to slow up.

Mike.

 

[jolivanes]

Change

If cell.Value <> "" Then cell.Offset(, 4).Value = Date

To

If cell.Value <> "" And cell.Offset(, 4).Value = "" Then cell.Offset(, 4).Value = Date

and see if that does what you need.

 

[Michael M]

So just change the number in red to the row you want to start the code

Sub MM1()
Dim cell As Range
For Each cell In Range("K[b][color=red]1[/color][/b]", Cells(Rows.Count, "K").End(xlUp))
If cell.Value <> "" Then cell.Offset(, 4).Value = Date
Next cell
End Sub

 

[mikemcbain]

THANK YOU EVERYONE!

Working like a charm this morning.

Mike.