Information Required on Insertion of series
Public Sub ProcessData()
Const TEST_COLUMN As String = "A" '<=== change to suit
Dim i As Long
Dim iLastRow As Long
Dim iStart As Long
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step -1
Do While .Cells(i, TEST_COLUMN).Value < .Cells(i - 1,
TEST_COLUMN).Value + 1
.Rows(i).Insert
.Cells(i, TEST_COLUMN).Value = .Cells(i + 1,
TEST_COLUMN).Value - 1
.Cells(i, TEST_COLUMN).Interior.ColorIndex = 3
Loop
Next i
End With
End Sub
--
---
HTH
Bob
(there's no email, no snail mail, but somewhere should be gmail in my addy)
"Akash" wrote in message
ups.com...
I have a series of numbers
1234
1236
1239
1240
1243
1245
now i want that a row should get inserted autometically if the series
is not in line
like
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
More over i want that the text of the new Inserted row should be in
red color.
Is it possible.
Thanks in Advance
Regards
Akash
|