Function FindMaterials(objCell As Range)
Dim objRange As Range
Dim strValue As String
Application.Volatile
strValue = ""
For Each objRange In ThisWorkbook.Sheets.Item("Materials").UsedRange.Rows
With objRange.Cells
If .Item(1, 1).Value = objCell.Item(1, 1).Value Then
strValue = strValue & .Item(1, 2).Value & " " & .Item(1, 3).Value & vbLf
End If
End With
Next
If Len(strValue) <> 0 Then
strValue = Left(strValue, Len(strValue) - 1)
End If
FindMaterials = strValue
End FunctionПереименуйте рабочий лист с исходными данными в «Materials». Вставьте в рабочую книгу модуль. Добавьте в этот модуль подобный текст:
Option Explicit
Function FindMaterials(objCell As Range)
Dim objRange As Range
Dim strValue As String
Application.Volatile
strValue = ""
For Each objRange In ThisWorkbook.Sheets.Item("Materials").UsedRange.Rows
With objRange.Cells
If .Item(1, 1).Value = objCell.Item(1, 1).Value Then
strValue = strValue & .Item(1, 2).Value & " " & .Item(1, 3).Value & vbLf
End If
End With
Next
strValue = Left(strValue, Len(strValue) - 1)
FindMaterials = strValue
End FunctionИспользуйте указанную пользовательскую функцию на рабочем листе в ячейках второго столбца, указав аргументом пользовательской функции ячейку, содержимое которой будет искаться в первом столбце переименованного листа «Materials», например:
=FindMaterials(A1)P.S. Если не совладаете — пишите, выложу готовый пример.
]]>А у меня тупик, вообще не могу понять как это можно сделать...
если выбирать одно значение то формула
=ЕСЛИОШИБКА(ВПР(Лист1!А1;Лист2!А:С;2;0);"")работает и устраивает на 100%, но цель что бы объединяло все данные
]]>объект1 объект1 объект1 объект2 объект2 объект2 объект3 объект3 объект3
Есть файл Excel в котором два листа: первый лист таблица, на второй лист привязан тестовый документ с данными которые записываются на второй лист в три столбца: название объекта - материал - паспорт
Смысл в том что бы при определенном значении одной из ячеек на листе 1 (название объекта) в соседнюю ячейку записывались все значения материалов и паспортов соответствующие с листа 2 соответствующие объекту.
подсказали вот такой скрипт:
Public Function ListByDate(cDate, rLookupRange,iReturnCol1, iReturnCol2)
iRowCount = rLookupRange.sheet.usedrange.rows.count
ListByDate=""
for each cell in rLookupRange.Columns(1).cells
if cell.value2=cDate.value2 then
ListByDate=ListByDate+cells(cell.row,iRe turnCol1)+cells(cell.row,iReturnCol2) = vbNewLine
end if
if cell.row>iRowCount
Exit function
End if
Next
End Functionно он мне выдает ошибки при работе с ним.
Помогите разобраться.
]]>