Finding value using loop

Hello all,

Can someone assist me with the following? I'm kind of new at this excel vba stuff. I will attach the spreadsheet. i'm trying to loop through the data and find a date value. There is a finish date column that i want to loop through and find the last row for that month and then insert a blank row.

Hi

try this.

Sub aaa()
  For i = Cells(Rows.Count, "G").End(xlUp).Row To 3 Step -1
    If Month(Cells(i, "G")) <> Month(Cells(i - 1, "G")) Then
      Cells(i, "A").EntireRow.Insert shift:=xlDown
      Cells(i, "A").Resize(1, 8).Interior.ColorIndex = 6
      Cells(i, "A").NumberFormat = "@"
      Cells(i, "A").Value = Format(Cells(i + 1, "G"), "mmmm yyyy")
    End If
  Next i
End Sub

you may want to make sure the data is sorted by column G before you action.


rylo

that works great! thank you for your help...