Macro to Insert Row above QTY

[slohman]

i NEED A MACRO THAT WILL INSERT A ROW ABOVE IF THE WORD QTY IS FOUND IN COLUMN F.

 

[Hui]

Slohman


Try the following:

[pre]

Sub Insert_Row_on_Qty()

Dim c As Long
For c = Range("F1").End(xlDown).Row To 1 Step -1
If UCase(Cells(c, 6)) = "QTY" Then Cells(c, 6).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next

End Sub

[/pre]

Please also use lower case when posting

 

[slohman]

I need it to insert the entire row above, it is only changing column f

 

[Hui]

Whoops, here 'tis

[pre]

Sub Insert_Row_on_Qty()

Dim c As Long
For c = Range("F1").End(xlDown).Row To 1 Step -1
If UCase(Cells(c, 6)) = "QTY" Then Rows(c).Insert Shift:=xlDown
Next

End Sub

[/pre]

 

[slohman]

Sorry I think Im confusing you. I need it to keep the row that Qty is in and add blank row above as Qty is a heading

 

[Hui]

So you say - I need it to keep the row that Qty is in and add blank row above as Qty is a heading

But mean - I need it to keep the row that Qty is in and add blank row Below as Qty is a heading

[pre]

Sub Insert_Row_on_Qty()

Dim c As Long
For c = Range("F1").End(xlDown).Row To 1 Step -1
If UCase(Cells(c, 6)) = "QTY" Then Rows(c + 1).Insert Shift:=xlDown
Next

End Sub

[/pre]