поправить функцию

[Iskin]

Помогите поправить функцию в заданном примере.

Для функции отрабатывает Модуль 11.

[SAS888]

Функция у Вас правильная, а вот диапазон задан неверно. В ячейке "L275" вместо формулы

=ЕСЛИ(ЕПУСТО(A275);"";InRow(B275:B280))

должна быть формула

=ЕСЛИ(ЕПУСТО(A275);"";InRow(B275:B276))

[Iskin]

Дело в том, что мне надо, что бы функция сама определяла сколько номеров перенести в строчку.
т.е. брать номера движков из столбца до тех пор, пока не появиться новый номер ящика и т.д.

[SAS888]

Можно использовать такую функцию:

Function InRow(N As Range) As String
    Dim x As New Collection, s As String, Cell As Range
    If IsEmpty(N) Then Exit Function
    For Each Cell In Range(N.Next, Cells(N.End(xlDown).Row - 1, N.Next.Column))
        If Cell.EntireRow.Hidden = False Then
            On Error Resume Next
            x.Add Cell.Value, CStr(Cell.Value)
            If Err = 0 Then s = s & ", " & Cell Else On Error GoTo 0
        End If
    Next
    If s <> "" Then InRow = Right(s, Len(s) - 2)
End Function

где в качестве аргумента N нужно задавать адрес ячейки с номером упаковочного места, при условии, что все его VIN находятся в соседнем правом столбце. Теперь достаточно, например, в ячейку "L275" вместо Вашей формулы поместить формулу

=InRow(A275)

[Iskin]

спасибо! все получилось!

[EugeneS]

альтернативный вариант макросом, имя макроса: collitem

[Iskin]

Спасибо всем!