On 4 Feb, 17:02, Cathy Landry
wrote:
Hi Sean,

This works beautifully......you Rock!!

Thank you sooooo much.
Cathy



"SeanC UK" wrote:
Hi Cathy,

No problem.

The column references are the four lines where I've defined variables using
Const. This makes the variable a constant value (although they are still
referred to as variables!) As column numbers in Excel are within the
limitations of an integer data type, I have declared them as integers, and
prefixed their names with int (and lng for Long data type for the row
variable for the first row of data).

Therefore, the invoice ID column I have is intIDCol, which I gave the value
of 1, which is obviously fine for you, and the description column, whish I
named intItemCodeCol, should be set to 7 for you. I have referred to the
concatenated string column as intConcatCol, and set it to 3, which I expect
you will wish to change!

If you have any problems let me know, especially if copying the code, I know
that the line spacing does not always show well, so if necessary I can space
out individual lines with an empty line between. I generally use Firefox and
I know that the line spacing doesn't appear correctly to me!

Good luck,

Sean.
--
(please remember to click yes if replies you receive are helpful to you)

"Cathy Landry" wrote:

Hi Sean,

I apologize for my late response! *I think your code will work much better
than a formula(s), but I do have a question and again apologize for my
limited knowledge of vba, but I'm not sure where I would input the column
references in your code. *Currently the invoice id is in col a and the descr
is in col g.

Thank you so much for your assistance.
Cathy- Nascondi testo citato

- Mostra testo citato -

Hi Cathy.
After the good Sean solution, try also this UDF:

Function FindNth(Valore As Variant, tabella As Range, _
col As Integer)
Dim i As Long
Dim trova As String
For i = 1 To tabella.Rows.Count
If tabella.Cells(i, 1) = Valore Then
trova = trova & " " & tabella.Cells(i, col)
End If
Next i
FindNth = trova
End Function

''According to your example:
'In C2: =IF(A2=A1;"";FindNth(A2,A2:B10,2))
' and copy down up to C10

Regards
Eliano