Adding a row

[Don McNeil]

Hello,
I need to add a row into my spread sheet after a specific
number appears in my spread sheet.

i.e. on Row 4 J10 = 6011
I would need a row added after Row 4

Thanks for your help.
Don

 

[Don Guillett]

modify to suit

Sub addafterfind()
x = InputBox("Number to find")
[a31:a40].Find (x)
Rows(x + 1).EntireRow.Insert
End Sub

 

[emosko]

modify to suit

Sub addafterfind()
x = InputBox("Number to find")
[a31:a40].Find (x)
Rows(x + 1).EntireRow.Insert
End Sub

--
Don Guillett
SalesAid Software
Granite Shoals, TX
(e-mail address removed)

Hello,
I need to add a row into my spread sheet after a specific
number appears in my spread sheet.

i.e. on Row 4 J10 = 6011
I would need a row added after Row 4

Thanks for your help.
Don