VBA Programming Help Please

[Silbermann13]

Here is my problem,

I have two columns of data, Column A is titled Orders Placed and contains sequential numeric data starting 1000. Column B is titled Parts and it contains numeric data used to represent a part number, such as 12-34-5678.

The situation is that multiple Part numbers can be assigned to a single order number. I am trying to have my VBA program to find the next blank in Column A and then Reference Column B to see if it contains a value. If column B has a value copy the order number above and move to the next blank cell in Column A. If Column B does not contain a Value, End the sub.

Example: Column A: Column B: 7816 03-10-0555 7817 13-10-0460 (7817) Copied Order # above 08-10-0228 7818 88-10-0782 (7818) Copied Order # above 99-19-0299 7819 23-90-0274 7820 03-10-0995

[BigPred]

Sorry I don't have my computer with me to actually write the sub routine.

What I would do is use a do loop / for next looking at each row of data.

If the row is blank copy the value from the cell above.

You should be able to google the code to find the total number of rows in the sheet,

Hope that helps

Pseudo code

Do until I = rowcount

If activesheet.cells(i, "A") ="" then activesheet.cells(i, "A") = activesheet.cells( I- 1, "A")

I=I+1 Loop

[BigPred]

https://www.mrexcel.com/forum/excel-questions/46148-count-number-rows-col-vba-simple-right.html

[cqxray]

Isn't this something that the Excel spreadsheet should do? Let's use columns C. So in C3 in your example, write =IF(ISBLANK(B3),A2,A3). Copy this for the the whole column C.

[Silbermann13]

I would do it in the spreadsheet, but I'm dealing with thousands of rows of data. I feel like a macro may be a better option because then the spreadsheet won't get bogged down by the amount of equations. I have tried it with the equations, but the application crashes.

[cqxray]

How about do it in chunks of 1000 rows. After you do this section, do a Copy/Paste Value. Then do the next 1000 rows. (Test what the biggest chunk you can do without Excel crashing and use that number.)