View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.misc
Dave Peterson Dave Peterson is offline
external usenet poster
 
Posts: 35,218
Default Add new rows after specific rows

Same way it works in previous versions.

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

gaddis wrote:

how do I get this to work in 2007?
--
THANKS!
mg

"Bob Phillips" wrote:

Public Sub ProcessData()
Const TEST_COLUMN As String = "F" '<=== change to suit
Dim i As Long
Dim iLastRow As Long

With ActiveSheet

iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 1 Step -1
If .Cells(i, TEST_COLUMN).Value = "SHOW MOVIE_PLAYER" Then
.Rows(i + 1).Insert
End If
Next i
End With

End Sub


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Dipladenia" wrote in message
...
Hello!

I would like to add a new row after each row that contains the value "SHOW
MOVIE_PLAYER" in column F (that is, column F contains a number of
different
values, and I just want a new row after the ones with that specific
value).

I COULD just insert a new row manually, but thereĀ“s about 500 of them...

Can anyone help me with this?

Thanks
/Dipladenia





--

Dave Peterson