[Solved] Add 1 day to todays date whenever value gets repeated
Use Application.Countifs: Sub Add_date2() Dim ws As Worksheet Set ws = ActiveSheet ‘better to set the actual sheet WorkSheets(“Sheet1”) With ws Dim lastRow As Long lastRow = .Cells(Rows.Count, 1).End(xlUp).Row Dim iCntr As Long For iCntr = 2 To lastRow If .Cells(iCntr, 1) <> “” Then .Cells(iCntr, 2) = Date + Application.CountIfs(.Range(.Cells(2, 1), .Cells(iCntr, 1)), .Cells(iCntr, … Read more