Require Macro

[Ron99]

Hello,

I need a simple macro code for the below

In Column "L" I have "TRUE" & "FALSE" . I need a macro where it should insert a new row below every "TRUE" value.

Thanks,
Ron...

 

[Rick Rothstein]

Give this macro a try...

[table="width: 500"]
[tr]
	[td]Sub InsertRowAfterEachTrueInColumnL()
  Dim R As Long, LastRow As Long
  LastRow = Cells(Rows.Count, "L").End(xlUp).Row
  For R = LastRow To 2 Step -1
    If CBool(Cells(R - 1, "L").Value) = True Then Cells(R, "L").EntireRow.Insert
  Next
End Sub[/td]
[/tr]
[/table]

 

[Ron99]

Thank you very much. It works...

 

[Ron99]

 

[Fluff]

If you're interested, here's a non looping approach

Sub InsertRows()
   With Range("L2", Range("L" & Rows.Count).End(xlUp))
      .Replace False, "me", xlWhole, , , , False, False
      .SpecialCells(xlConstants, xlLogical).Offset(1).EntireRow.Insert
      .Replace "me", False
   End With
End Sub

 

[Rick Rothstein]

If you're interested, here's a non looping approach

Sub InsertRows()
   With Range("L2", Range("L" & Rows.Count).End(xlUp))
      .Replace False, "me", xlWhole, , , , False, False
      .SpecialCells(xlConstants, xlLogical).Offset(1).EntireRow.Insert
      .Replace "me", False
   End With
End Sub

That code will not work correctly for multiple contiguous cells containing a TRUE value. To see this, put the following values in L1:L7 and run your code against it... all of the inserts will be applied to the first of the contiguous TRUE rows.

FALSE
FALSE
TRUE
TRUE
TRUE
TRUE
FALSE

 

[Fluff]

Excellent point Rick, hadn't noticed that.