One day I needed a macro to fill up automatically all empty cells of a column with a date but not before to check in another column, that the cells are not empty and of course, if the cells are empty, do nothing.
When I use the macro ?
To fill the cell with a date once checking that another cell is not empty.
How to create the macro ?
Read How to create, edit, hide and select a macro in an excel report
How to create the button to associate it with the macro ?
Read How to create a button and associated it to a macro in an excel report
How is the macro ?
Copy the code below and paste it into your macro. You will see my comments in green if exist so follow the help to adapt to your need.
Dim i As Integer
' starting to check from row 2
i = 2
' change the column number 1 (column A) by the column number to check if the cell is empty or not
' change11 by the number of row to check
Do While (Cells(i, 1).Value <> "") And (i < 11)
' change the column number 2 (column B) where to put the date
Cells(i, 2) = Int(DateSerial(Year(Date), Month(Date), Day(Date)))
i = i + 1