VB question

davidhall80

Well-known Member
Joined
Jul 8, 2006
Messages
663
I would like to find the word "Left" in column A and insert 6 limes beneath it. Thanks in advance
 

Excel Facts

Links? Where??
If Excel says you have links but you can't find them, go to Formulas, Name Manager. Look for old links to dead workbooks & delete.

Lewiy

Well-known Member
Joined
Jan 5, 2007
Messages
4,284
Try this:
Code:
Sub InsertLines()
Dim Limit As Long
Dim c As Long
Limit = Cells(Rows.Count, 1).End(xlUp).Row
For c = 1 To Limit
    If Cells(c, 1) = "Left" Then
        Rows(c + 1 & ":" & c + 6).Insert shift:=xlDown
    End If
Next c
End Sub
 

davidhall80

Well-known Member
Joined
Jul 8, 2006
Messages
663
Nice...it worked...cAn you explain this line...specifically the ":" part. Thanks


Rows(c + 1 & ":" & c + 6).Insert shift:=xlDown
 

Lewiy

Well-known Member
Joined
Jan 5, 2007
Messages
4,284
Certainly!

In order to refer to a range of rows, you need to use the “Rows()” function with a string value between the brackets which refers to the rows you want, i.e. if you want to refer to rows 1 to 10 it would look like:
Code:
Rows(“1:10”)
Note the quote marks around the reference.
Because of this, it means you can construct a string using variables but you must also still include the colon between the numbers. So, if variable a = 1 and variable b = 10 then you construct the string by saying:
“I want the value of variable a, then the colon, then the value of variable b” or in other words (using an ampersand between parts of the string):
Code:
a & “:” & b
So the final reference to rows 1 to 10 would look like:
Code:
Rows(a & “:” & b)

Hope that makes sense!
 

Forum statistics

Threads
1,181,056
Messages
5,927,864
Members
436,573
Latest member
CMR237

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top