SamarthSalunkhe
Board Regular
- Joined
- Jun 14, 2021
- Messages
- 103
- Office Version
- 2016
- Platform
- Windows
Hi All,
I am using below code to update current Date in column B, code is working fine but I want to add serial number after Date.
Can anyone help me with the correction in below code.
Thank you very much.
I am using below code to update current Date in column B, code is working fine but I want to add serial number after Date.
Can anyone help me with the correction in below code.
VBA Code:
Sub Update_Data()
Dim lr As Long
lr = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
If Not IsEmpty(Sheet2.Range("A2:A" & lr).Value) Then Sheet2.Range("B2:B" & lr).Value = Format(Date, "DDMMYYYY")
End Sub
Thank you very much.