Posts by brobles

Sub atest() Dim LR As Long, i As Long
Dim R As Long




LR = Range("C" & Rows.Count).End(xlUp).Row For i = 10 To LR    


If Range("C" & i).Value > ([A7] + 31) Then        


Rows(i).Resize(1).Insert   


Exit For    
End If
Next i

-- I would then like to run the code below from the last row to the newly inserted row from above--

For R = Cells(Rows.Count, "C").End(xlUp).Row To (Cells(R, "C").Value) = 0 Step -1  
If Year(Cells(R, "C").Value) <> Year(Cells(R - 1, "C").Value) Then
Rows(R).Resize(2).Insert


Next

Hello all:

I have a VBA code that inserts a blank row after a date condition is met. What i would like to do next, is set the newly inserted blank row and the last row as my new range.

Could anyone help me out with this?

Thank you in advance.

Hello All:

I am looking for some much needed help on resolving an issue.

I would like a macro that loops through my rows, and inserts 1 row below the cell that is within 90 days of a cell value.

A7 = cell value being referenced

Column C has the dates in my spreadsheet. My range starts at row 9.

Any advice would be extremely appreciated

Thank you