I was wondering if it is possible to do a case select on the value of the cell not being equal to another cell. I have written it using an if statement, but was wondering if the same could be achieved using case select.
The code currently looks to see if the value in column a is equal to that in column g, and if it is not, then it inserts cells and puts a value in column g and i.
Mark
Code:
For Each Cell In Range("A2:A" & LR).Cells
If Cell.Value <> Cell.Offset(0, 6).Value Then
Range(Cells(Cell.Row, "c"), Cells(Cell.Row, "ab")).Insert
Cell.Offset(0, 6).Value = Cell.Value
Cell.Offset(0, 8).Value = Cell.Offset(0, 1).Value
End If
Next Cell
The code currently looks to see if the value in column a is equal to that in column g, and if it is not, then it inserts cells and puts a value in column g and i.
Mark