Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Insert row
I want to use code to insert a row above a row where the first value found
in column D equals "G" I do not want to insert an empty row for each "G" found. Perhaps the code is similar to code I am already using where rows are deleted. Any help is appreciated. Pat Private Sub DeleteRows_Click() Dim X As Long Dim Y As Long Y = Range("A65536").End(xlUp).Row 'y= find the last non empty cell in column A For X = Y To 1 Step -1 'Lcase gets the lower case of the word If LCase(Cells(X, 1).Value) = "s" Then Rows(X).Delete End If Next X End Sub |
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 | |||
How can I insert a date with an icon (calendar) insert | Excel Discussion (Misc queries) | |||
Can I auto insert a worksheet when I insert a value in a cell. | Excel Worksheet Functions | |||
Insert Next? Or insert a variable number of records...how? | Excel Discussion (Misc queries) |