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.
Sub test()
Dim i As Integer
' starting to check from row 2
i = 2
With ActiveSheet
' 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
Loop
End With
End Sub
When you are managing a team, “how to be a good manager” is the “must”...
As manager, I am doing many reports, even when I was an ITIL consultant, I still needed to do many reports...
ITIL V3 is going to be obsolete...
Managing an IT service when I start a new company is not an easy task, particularly true, if the service...