Adding a row

  • Thread starter Thread starter Don McNeil
  • Start date Start date
D

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
 
modify to suit

Sub addafterfind()
x = InputBox("Number to find")
[a31:a40].Find (x)
Rows(x + 1).EntireRow.Insert
End Sub
 
Don Guillett said:
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)
Don McNeil said:
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
Click to expand...
Click to expand...
 
Back
Top