Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Marking Col. A if number matches
Help.
Working in Excel 2003, SP2. Am drawing a total blank as to how to accomplish the following: The end result is required to identify production Job Numbers in another report. The steps required, as I see it, are entered below the sample data. (I hope the columns show properly) A B C D HP-BOGIE-AIR-INSTALL 011F7-0016 HP-BOGIE-AIR-INSTALL 011F7-0016 011F7-0018 1 HP-STAGE-200 011F7-0017 HP-STAGE-200 011F7-0017 HP-STAGE-200 011F7-0017 HP-STAGE-200 011F7-0017 011F7-0019 HP-STAGE-200 011F7-0017 011F7-0020 HP-STAGE-200 011F7-0017 011F7-0021 HP-STAGE-200 011F7-0017 011F7-0022 HP-STAGE-200 011F7-0017 011F7-0023 HP-STAGE-200 011F7-0017 011F7-0024 HP-STAGE-200 011F7-0017 011F7-0025 HP-STAGE-200 011F7-0017 011F7-0026 HP-STAGE-200 011F7-0017 011F7-0027 HP-STAGE-200 011F7-0017 011F7-0028 HP-STAGE-200 011F7-0017 011F7-0029 HP-STAGE-200 011F7-0017 011F7-0030 HP-BOGIE-PAINT 011F7-0018 011F7-0031 HP-BOGIE-PAINT 011F7-0018 011F7-0032 HP-ROOF-ASSY 011F7-0019 HP-ROOF-ASSY 011F7-0019 Manually Select Stage (Column A, Row ?) to Start At Enter a '1' in Column A, at the required row (See Above) Option Explicit Sub JobNumberSelect() 1st Procedure Dim r As Range, lastrow As Long Set r = ActiveSheetUsedRange lastrow = r.Row + r.Rows.Count - 1 2nd Procedure Find 1st row in Column 'A', with a '1' in it. Read cell 'C', in same row Check next row for matching number If Found, put '1' in Column 'A' of that row If NOT Found check Next Row Check ALL rows to End (bottom) and mark with '1', if required 3rd Procedure Start at A1 Find first cell with a '1' in it (Call it START) "Check cell D. If a number in cell D, find occurance(s) of that number in column C and identify those row(s) with a '1' in column 'A'" Go to START +1 "Check cell D. If a number in cell D, find occurance(s) of that number in column C and identify those row(s) with a '1' in column 'A'" Go to START +2 "Check cell D. If a number in cell D, find occurance(s) of that number in column C and identify those row(s) with a '1' in column 'A'" Loop until last row 4th Procedure Insert WorkSheet at End "From sheet 1: All those rows that have a '1' in Column 'A', Copy the number from Column 'C' to sheet 2 (vertically)" "Eliminate any duplicate numbers (delete those rows, so no blank rows are created)" END SUB |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Add number before text that matches criteria | Excel Worksheet Functions | |||
Counting number of times data matches | Excel Worksheet Functions | |||
Returning the row number of a cell in a range that matches a given condition | Excel Programming | |||
How do I count number of cels the matches 2 conditions ? | Excel Worksheet Functions | |||
Get the row number that matches my value | Excel Programming |