Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Information Required on Insertion of series
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Information Required on Insertion of series
One way:
Public Sub Fill_in_red() Dim i As Long Dim dTemp As Double With Sheets(1).Columns(1) For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1 dTemp = .Cells(i).Value - 1 Do Until dTemp <= .Cells(i - 1).Value .Cells(i).EntireRow.Insert Shift:=xlShiftDown .Cells(i).Value = dTemp .Cells(i).Font.ColorIndex = 3 dTemp = dTemp - 1 Loop Next i End With End Sub In article . com, "Akash" wrote: 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Required information in a cell | New Users to Excel | |||
Information Required | Excel Programming | |||
Required Information | Excel Discussion (Misc queries) | |||
Changing series information for approximately 60 series in a workb | Charts and Charting in Excel | |||
Can't quite get this syntax to bring in the required information. | Excel Programming |