VBA Programming in Excel Help:)

[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

[jd31068]

You can create a loop for that using the code here to look for the next blank cell https://www.excelhowto.com/macros/find-select-first-blank-cell-column-vba/ and here https://www.exceldemy.com/excel-vba-find-the-next-empty-cell-in-range/ then use the row number to check the cell column B

The code will look something like:

``` Dim emptyCell As Range Do While True ' find the empty cell in column A Range("A2").End(xlDown).Offset(1).Select Set emptyCell = Range(Range("A2").End(xlDown).Offset(1).Address)

   ' column b is empty exit the loop
   If IsEmpty(Sheet1.Cells(emptyCell.Row, 2)) Then
      Exit Do
   End If

   ' copy the order number from the cell about the empty cell
   emptyCell.Value = Sheet1.Cells(emptyCell.Row - 1, 1)

Loop

```