Struggling with VLOOKUP OR IF statement

[MikeJHHT]

I apologize if this sounds confusing in advance,

Column K contains a concatenate for the warehouse software i use for entering sales orders based off the first truck number.
Column R adds additional sales orders with the same truck number so it wont repeat step 1 which is K.

When i copy the sales order information into excel, it will fill in column B and D.

For every same customer, the truck numbers will be the same (unfortunately my example shows D11 should be with truck # 755 but customer service entered the name differently...

Is it possible if there is only truck number 750, column U will show (k2), but if there are more 750's it will add each additional cell from R

for example U2, should be =K2&R2&R3&R4&R5&R6&R7&R8&R9 (which is the start of the concatenate(K2) followed by the additions in (R)

also, im entering the truck numbers manually based off the similar customer names, is there a statement that would automate this?

Ive been struggling to search using the right terminology to get exactly what im looking for.
Thankyou as always for your time.

 

[mumps]

It is hard to work with a picture. Could you use the XL2BB add-in (icon in the menu) to post a screenshot of your data which also includes the expected results in column U.

 

[MikeJHHT]

mass.shiplist.project.xlsx
	W	X
18
19
20
21
22
WILL CALLS

 

[MikeJHHT]

not sure if that worked right

 

[MikeJHHT]

mass.shiplist.project.xlsx
	A	B		D				H		J	K	L	M	N	O		Q	R	S	T	U
1	TRUCK #	SO'S		CUSTOMER							BEGINNING OF TRUCK SETUP							ADDITION TO SAME TRUCK #
2	750	J68944		1137 J & O DISTRIBUTING						START	010;200708;750;01;Y;25;S;J68944;T1;16:30;END						ADD	S;J53329;T1;16:30;END
3	751	J53329		1171 WOOD HEAT LLC							010;200708;751;01;Y;25;S;J53329;T1;16:30;END							S;J59359;T1;16:30;END
4	751	J59359		1171 WOOD HEAT LLC							010;200708;751;01;Y;25;S;J59359;T1;16:30;END							S;J60322;T1;16:30;END
5	751	J60322		1171 WOOD HEAT LLC							010;200708;751;01;Y;25;S;J60322;T1;16:30;END							S;J62989;T1;16:30;END
6	751	J62989		1171 WOOD HEAT LLC							010;200708;751;01;Y;25;S;J62989;T1;16:30;END							S;J63874;T1;16:30;END
7	751	J63874		1171 WOOD HEAT LLC							010;200708;751;01;Y;25;S;J63874;T1;16:30;END							S;J65429;T1;16:30;END
8	751	J65429		1171 WOOD HEAT LLC							010;200708;751;01;Y;25;S;J65429;T1;16:30;END							S;J67573;T1;16:30;END
9	751	J67573		1171 WOOD HEAT LLC							010;200708;751;01;Y;25;S;J67573;T1;16:30;END							S;J69102;T1;16:30;END
10	751	J69102		1171 WOOD HEAT LLC							010;200708;751;01;Y;25;S;J69102;T1;16:30;END							S;J60850;T1;16:30;END
11	752	J60850		8010 AMBLER FIREPLACE AND PATIO							010;200708;752;01;Y;25;S;J60850;T1;16:30;END							S;J63490;T1;16:30;END
12	753	J63490		8506*1 ALBER'S FIREPLACE, INC							010;200708;753;01;Y;25;S;J63490;T1;16:30;END							S;J63551;T1;16:30;END
13	753	J63551		8506*1 ALBER'S FIREPLACE, INC							010;200708;753;01;Y;25;S;J63551;T1;16:30;END							S;J63861;T1;16:30;END
14	753	J63861		8506*1 ALBER'S FIREPLACE, INC							010;200708;753;01;Y;25;S;J63861;T1;16:30;END							S;J66136;T1;16:30;END
15	753	J66136		8506*1 ALBER'S FIREPLACE, INC							010;200708;753;01;Y;25;S;J66136;T1;16:30;END							S;J63307;T1;16:30;END
16	754	J63307		A1347 KRINGS STOVES & FIREPLACES							010;200708;754;01;Y;25;S;J63307;T1;16:30;END							S;J57749;T1;16:30;END
17	755	J57749		A8010 AMBLER FIREPLACE & PATIO							010;200708;755;01;Y;25;S;J57749;T1;16:30;END							S;J59601;T1;16:30;END
18	755	J59601		A8010 AMBLER FIREPLACE & PATIO							010;200708;755;01;Y;25;S;J59601;T1;16:30;END							S;J60067;T1;16:30;END
19	755	J60067		A8010 AMBLER FIREPLACE & PATIO							010;200708;755;01;Y;25;S;J60067;T1;16:30;END							S;J60347;T1;16:30;END
20	755	J60347		A8010 AMBLER FIREPLACE & PATIO							010;200708;755;01;Y;25;S;J60347;T1;16:30;END							S;J60407;T1;16:30;END
21	755	J60407		A8010 AMBLER FIREPLACE & PATIO							010;200708;755;01;Y;25;S;J60407;T1;16:30;END							S;;T1;16:30;END
22
23
WILL CALLS

Cell Formulas
Range	Formula
B2:B21,D2:D21	B2	=paste!A1
K2:K21	K2	="010;"&TEXT(TODAY()+1,"yymmdd")&";"&A2&";01;Y;25;S;"&B2&";T1;16:30;END"
R2:R21	R2	="S;"&B3&";T1;16:30;END"

 

[mumps]

Your screenshot in Post #5 was fine. It would be helpful if you could post a revised screenshot with the expected results in column U.

 

[MikeJHHT]

unfortunately im not sure what statement would be proper for U
but it should look like this for example U2, should be =K2&R2&R3&R4&R5&R6&R7&R8&R9

which the statement if possible would pull the topping truck number from K and the following same truck numbers from R

 

[mumps]

is it possible if there is only truck number 750, column U will show (k2), but if there are more 750's it will add each additional cell from R
for example U2, should be =K2&R2&R3&R4&R5&R6&R7&R8&R9 (which is the start of the concatenate(K2) followed by the additions in (R)

I just wanted to see what the results would look like in column U when only one truck number was present in column A and when duplicate truck numbers are present in column A. Could you give me what the contents of U2 would look like for Truck #750 and what U3 would look like for Truck #751, etc.

 

[MikeJHHT]

mass.shiplist.project.xlsx
	U	V
1	TRUCK	CODE
2	750	010;200708;750;01;Y;25;S;J68944;T1;16:30;END
3	751	010;200708;751;01;Y;25;S;J53329;T1;16:30;ENDS;J59359;T1;16:30;ENDS;J60322;T1;16:30;ENDS;J62989;T1;16:30;ENDS;J63874;T1;16:30;ENDS;J65429;T1;16:30;ENDS;J67573;T1;16:30;ENDS;J69102;T1;16:30;END
4	752	010;200708;752;01;Y;25;S;J60850;T1;16:30;ENDS;J59601;T1;16:30;ENDS;J60067;T1;16:30;ENDS;J60347;T1;16:30;ENDS;J60407;T1;16:30;ENDS;;T1;16:30;END
5	753	010;200708;753;01;Y;25;S;J63490;T1;16:30;ENDS;J63551;T1;16:30;ENDS;J63861;T1;16:30;END
6	754	010;200708;754;01;Y;25;S;J63307;T1;16:30;END
WILL CALLS

Cell Formulas
Range	Formula
V2	V2	=K2
V3	V3	=K3&R3&R4&R5&R6&R7&R8&R9
V4	V4	=K11&R17&R18&R19&R20&R21
V5	V5	=K12&R12&R13
V6	V6	=K16

 

[mumps]

Try:

Sub concat()
    Application.ScreenUpdating = False
    Dim LastRow As Long, truck As Range, arr As Variant, RngList As Object, Val As String, strVal As String, rng As Range
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    arr = Range("A2:A" & LastRow).Resize(, 18).Value
    Set RngList = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(arr, 1)
        Val = arr(i, 1)
        If WorksheetFunction.CountIf(Range("A:A"), Val) = 1 Then
            Range("U" & i + 1) = Val
            Range("V" & i + 1) = arr(i, 11)
        Else
            If Not RngList.Exists(Val) Then
                RngList.Add Val, Nothing
                Range("U" & i + 1) = Val
                With Cells(1, 1).CurrentRegion
                    .AutoFilter 1, Val
                    For Each rng In Range("R2:R" & LastRow).SpecialCells(xlCellTypeVisible)
                        If strVal = "" Then strVal = rng Else strVal = strVal & ";" & rng
                    Next rng
                    Range("V" & i + 1) = arr(i, 11) & ";" & strVal
                End With
            End If
        End If
        strVal = ""
    Next i
    Range("A1").AutoFilter
    Application.ScreenUpdating = True
End Sub