VBA delete row above if

[Sparda142]

Hello,


Im not great at vba so im looking for some help. Im looking say if in column A, Delete the row above if date value in A1 does not match the date value in A2

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD][/TD]
[TD]a[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD][TABLE="width: 105"]
<tbody>[TR]
[TD="class: xl66, width: 105, align: right"]8/1/2019 9:16[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD][TABLE="width: 105"]
<tbody>[TR]
[TD="class: xl66, width: 105, align: right"]7/22/2019 21:04[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD][TABLE="width: 105"]
<tbody>[TR]
[TD="class: xl66, width: 105, align: right"]7/22/2019 20:55[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD][TABLE="width: 105"]
<tbody>[TR]
[TD="class: xl66, width: 105, align: right"]7/22/2019 20:55[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD]5[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD][TABLE="width: 105"]
<tbody>[TR]
[TD="class: xl66, width: 105, align: right"]8/1/2019 9:16[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD]7[/TD]
[TD][TABLE="width: 111"]
<tbody>[TR]
[TD="class: xl66, width: 111, align: right"]8/1/2019 14:02[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]

 

[Rick Rothstein]

any luck?

See if this macros works for you...

Sub DeleteNonMatchingDates()
  Dim R As Long, Ar As Range
  For Each Ar In Columns("A").SpecialCells(xlConstants).Areas
    For R = 2 To Ar.Count
      If Int(Ar(1)) <> Int(Ar(R)) Then Ar(R) = "#N/A"
    Next
  Next
  Columns("A").SpecialCells(xlConstants, xlErrors).EntireRow.Delete
End Sub