VBA for Pallet Exploder

[VapeLizard420]

Hello All,

I am looking to create a macro that runs through a list of part numbers. Some of these part numbers are pallets that contain certain end items. I need to write a macro that identifies these pallets, and creates separate line items for each component of the pallet, then deletes the original pallet line so it is not counted twice.

I do not have the spreadsheet specifics at this time, but could anyone help me with a general approach to this? If you could just give me a list of things to look up how to do, that might be helpful.

Thanks all,

VapeLizard

 

[tonyyy]

VapeLizard420,

Welcome to the Board.

Generally, one approach would be to...

Define the range that contains the list of part numbers
Create a Loop through the range
Use an If statement to determine if the part number includes your end item criteria
If so, Insert blank rows to accommodate the new components
Add the new component data
Delete the original row

For example...

Sub SampleCode()
Dim LastRow As Long, i As Long
LastRow = Cells(Rows.Count, "A").End(xlUp).Row

For i = LastRow To 2 Step -1
    If InStr(Cells(r, 1).Value, "identifier") > 0 Then
        Rows(r.Row + 1 & ":" & r.Row + 3).Insert
        'code to add pallet components
        Rows(r.Row).Delete
    End If
Next i
End Sub

Cheers,

tonyyy

 

[VapeLizard420]

Thanks Tony, this is really great. I appreciate the help.

Cheers!

 

[tonyyy]

You're very welcome...