Inserting rows via macro

  • Thread starter Thread starter clane
  • Start date Start date
C

clane

Hello,

I am trying to insert a row in colum b below each cell that contains
1

thanks much

Chuc
 
Try this one

Sub test()
Dim Rng As Range
Dim findstring As String
findstring = "1"
Set Rng = Range("B:B").Find(What:=findstring, LookAt:=xlWhole)
While Not (Rng Is Nothing)
Rng.EntireRow.Insert
Set Rng = Range("B" & Rng.Row + 1 & ":B" & Rows.Count) _
.Find(What:=findstring, LookAt:=xlWhole)
Wend
End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Removing rows featuring certain words 3
Keeping formulas on an insert 1
Insert Row also adds formulas and moves cursor 2
Inserting a Row after finding a Name in colum 2
insert rows and copying cells in column b,c, and d into new rows 3
macro to insert row and type data 2
Inserting additional rows and only copying certain columns 1
DREAM FEATURE: A macro that moves a row but asks me where to move it 18

Back
Top