| Home |
| Search |
| Today's Posts |
|
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
automatically insert a row
Thankyou very much, it works just as i hoped
"Bob Phillips" wrote: There should be no space before Data. And yes, the "C" refers to the column it is processing. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Rich Hayes" wrote in message ... Hi Bob Thanks for the quick response. Can you explain please what this is doing, i've just copied it into VBA and it is saying that it doesn't recognise Public Sub process dAta() Also in the statement If.cells(i, "c"). value etc . Does the "c" denote column or something else? Thanks Rich "Bob Phillips" wrote: Public Sub ProcessData() Const TEST_COLUMN As String = "A" '<=== change to suit Dim i As Long Dim LastRow As Long With ActiveSheet LastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row For i = LastRow To 1 Step -1 If .Cells(i, "C").Value = "RELT" Or .Cells(i, "C").Value = "OVOV" Then .Rows(i + 1).Insert .Rows(i).Copy .Rows(i + 1) .Cells(i + 1, "B").Value = "" End If Next i End With End Sub -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Rich Hayes" wrote in message ... Hello all If anyone can help me with this query i'd be very grateful. I'll try and explain it as simply as possible. I have the following data. Columns A, B,C and E are manually populated, columns D, and F are formulaic entry cells. Sample data (normally about 1500 rows of data) A B C D E F Cape Trust Discharge TCOV 50 55 a Cape Tavor Load RELT 60 54 d Aquabreeze Discharge OVOV 30 53 f Bet Performer Discharge TCTO 27 45 r If column C equals either RELT or OVOV i want to automatically add a new row beneath each which contains the same manual entry data as the row being copied (columns A, C and E), but also maintain the formula calc as in columns D and F. For column B which is a manual entry cell i'd like it to return a blank cell rather than return the data from the copied cell. i'm guessing this needs to be done as a macro, however, given my weakness with macros if any one can help i'd be grateful if you can be as detailed as possible. Many thanks in advance Regards Rich |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| how do I insert a blank row when a value changes, automatically | Excel Worksheet Functions | |||
| Automatically insert lines? | Excel Discussion (Misc queries) | |||
| automatically insert row | Excel Discussion (Misc queries) | |||
| automatically insert footer | Excel Discussion (Misc queries) | |||
| Insert date automatically | Excel Discussion (Misc queries) | |||
Threaded Mode
