Hi,

I want to insert a row if the value in col.a and col. b of any specific row
is different.
Please help me out without least posssible chang in my code since as a
beginner i won't be able to grasp the changes easily


Also please tellme how to insert a row previous to the current row. my code i
think is inserting row after the current row
Sub Testinsert()

Dim x, y As Integer
x = ActiveCell.Row
x = 1

Do While Cells(x, 1).Value < " "
y = x + 1
If Cells(x, 1).Value < Cells(x, 2).Value Then
Cell.EntireRow.Insert
Cells(y, 1) = "a" 'assuming new inserted rowindex to be y(ie x+1)
Cells(y, 2) = "b"
End If
x = x + 1
Loop

End Sub

Thanks,thanks, thanks a lot

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200910/1