Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
find row value, insert column
Hi everybody!
I'm trying to create a loop for a range of rows, find certain value, insert a column if there is a match and copy cells to that new column, if not a match go to next So far I have Sub InsertColumns () Sheets("data").Range("G15").Select 'I need to check row 15 to end Do If ActiveCell.Offset(0, 0).Value = "QC Std 2" Then ActiveCell.Offset(0, 0).Select Selection.EntireColumn.Offset(0, 1).Insert 'Range("H78", "H88").Copy Destination:=ActiveCell.Offset(-7, 0) ElseIf ActiveCell.Offset(0, 0).Value = "QC Std 3" Then ActiveCell.Offset(0, 0).Select Selection.EntireColumn.Offset(0, 1).Insert Else 'do nothing, go to next End If ActiveCell.Offset(0, 1).Select Loop Until IsEmpty(ActiveCell.Offset(0, 0)) End Sub Any help will be more than appreciated! -- gaba :) |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Insert Column after specific text title the new column and add for | Excel Discussion (Misc queries) | |||
Find something in column a then find if column B matches criteria | Excel Discussion (Misc queries) | |||
insert a blank column between each column in a data file | Excel Discussion (Misc queries) | |||
insert row / insert column command buttons | Excel Worksheet Functions | |||
Find First Non blank cell than find column header and return that value | Excel Worksheet Functions |