Macro Insert column with date of today

[Dimi70]

Hello,
I am very bad at Macro and unless some research and practice by myself I could not figure out.

For my work I extract data daily from system in excel and I would like to create a macro that input in column "V" the date of the extraction.
The number of row can be change so I would like to input the date only on the row that are not empty (based on column A).
A file is generated in a new excel document so I need to have a macro that I can use directly from those excel file.

Can you help me?

Thank you in advance for your help

 

[MikeVol]

Hi @Dimi70.
If I understood you correctly. You want to enter the extraction date in column "V" and enter the date only in those rows that are not empty (based on column A). Here is an option for you.

Option Explicit

Sub InsertDate()
    Dim i           As Long

    With ThisWorkbook.Worksheets("Sheet1")   ' "Sheet1" you can change the name of your sheet where you will insert the date

        Dim lastRow As Long
        lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        For i = 1 To lastRow

            If Not IsEmpty(.Cells(i, "A").Value) Then
                .Cells(i, "V").Value = Date
            End If

        Next i

    End With

End Sub

It was my pleasure to help you. Good luck.