Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with insert a row
I am looking for something that will search col. ,
then check for a value (like the word "Building") , insert a blank row above it. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with insert a row
You don't say which column so this works for Column A
Right click the sheet tab, view code and paste this in Sub atomic() For x = Range("A65536").End(xlUp).Row To 1 Step -1 If Cells(x, 1).Value = "Building" Then Cells(x, 1).Select Selection.EntireRow.Insert End If Next End Sub To make it work for another column change the A to the other letter and the 1 in (x,1) to the column Number (D for example is 4) Mike "Al" wrote: I am looking for something that will search col. , then check for a value (like the word "Building") , insert a blank row above it. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Cannot insert worksheet in exel - not available in insert menu | Excel Worksheet Functions | |||
insert row / insert column command buttons | Excel Worksheet Functions | |||
Macro to insert copy and insert formulas only to next blank row | Excel Programming | |||
Can I auto insert a worksheet when I insert a value in a cell. | Excel Worksheet Functions | |||
Insert cell/format/text/fontsize and auto insert into header? | Excel Programming |