процедура с параметром вызывает функцию

[subluna]

HelP! excel нужно сделать макрос на VBA. с языком знакомлюсь 2 дня. Есть срочная задача:
Дан а таблица с записями - лист1 (один из столбцов -"код"
графический объект "надпись"=значению из поля/столбца "код" - лист2
Нужно по клику на надписи вывести окно в котором отобразить данные с листа1 (строки таблицы) выбранные по условию "код".
алгоритм построила:
I процедуре передается параметр = значению" надпись"/"код"
II запускается функция перебор строк таблицы
III запускается окно (или textbox или msgbox)
IV в окно передается динамический список/таблица
V по клику ОК окно закрывается

II.I функции передается параметр "надпись"
по параметру перебираются строки с листа1 и при условии "надпись"="код" добавляются в динамический список/таблица

как это сделать!!! pls!

[VictorM]

Без примера файла (с Вашими наработками) никто ничего Вам не скажет.
Архивируйте файлик и прикрепите.

[Hugo121]

Добавляйте строки в массив (создайте заранее пустой на максимальный размер, или можно увеличивать одномерный с помощью Redim Preserve, если будете выбирать одно значение строки).
В конце данные массива выгружаете куда угодно (можно отобрать только заполненную часть).
Выводить думаю лучше в листбокс на форму. Впрочем в листбокс можно сразу данные и отбирать, без промежуточного массива.

[EducatedFool]

Hugo121, очень понравился ваш ответ
А вот работаю с Excel и VBA несколько лет, - и то с трудом понимаю, как воплотить в коде всё то, что вы написали.
Не уверен, что ТС сможет на основании вышесказанного что-то реализовать.

subluna, прочитал ваш пост дважды.
НИЧЕГО не понял.
Вы бы всё в своём файле Excel описали - глядишь, уже было бы готовое решение.

И самое главное - объясните, для чего всё это нужно.
Вдруг есть какой-то намного более простой вариант добиться желаемого...

Главное: зачем выводить записи именно в окно?
Это сложно в плане кода. Почему бы не вывести отфильтрованные записи на другой лист?

[Hugo121]

EducatedFool - да ну? Неужели так сложно выразился?
Поясню (для ТС) -
1. раз таблица дана, значит известно количество её строк
2. можно объявить массив нужного размера
3. перебор строк - нужное отбираем в этот массив (в переменной считаем количество отобранных строк, её же используем для заполнения массива)
4. любым способом извлекаем из массива отобранное, используя значение индексной переменной

Но проще конечно сразу копировать отобранные строки на другой лист.
А ещё проще поставить на лист фильтр

[EducatedFool]

Сделал пример для синих кнопочек:
http://excelvba.ru/XL_Files/Sample__...__18-37-20.zip

С текстбоксом (поле ввода) делается аналогично:
http://excelvba.ru/XL_Files/Sample__...__18-48-37.zip

[Hugo121]

Игорь, пример работает криво, если на первом листе отфильтровать например ALEKSOID'а
Надо было на фильтре код и строить, или на ColumnDifferences.

[EducatedFool]

Игорь, пример работает криво, если на первом листе отфильтровать например ALEKSOID'а

Не спорю.
А если поставить защиту на лист с результатом - ещё кривее будет работать.
И совсем криво, если удалить исходную таблицу

Это, так сказать, демо-версия.
Если в целом устроит - можно будет думать о доработке.

[subluna]

спасибо всем за живое участие!
у меня вот что вышло:

Sub FindererALL()
Dim FD, firstAddress, adrs, OriginalRange As String
FD = InputBox("Введите искомое польз.место")
If FD = "" Then Exit Sub ' если ESC - отказ от поиска
Dim c As Range: Set c = Range("C:C").Find(FD) 'ищет, если нету ничего, то выход из макроса
If c Is Nothing Then MsgBox "Искомые данные не найдены", vbExclamation: Exit Sub
firstAddress = c.Address
c.Select
OriginalStr = ""
Do
    adrs = adrs & vbLf & c.Address(0, 0)
    n = c.Row
    OriginalRange = OriginalRange & vbLf & Range("B" & n) & " " & Range("D" & n) & " " & Range("e" & n) & " " & Range("f" & n) & " " & Range("h" & n) & " " & Range("g" & n) & " " & Range("q" & n) & " " & Range("r" & n)
    Union(Selection, c).Select
    Set c = Range("c:t").FindNext(c)
Loop While c.Address <> firstAddress
MsgBox "Значение """ & FD & """ найдено в ячейках:" & adrs, vbInformation
MsgBox "Значению """ & FD & """ соответствуют" & OriginalRange, vbInformation
End Sub

но теперь нужно не в MsgBox вывести рез-ты а в комбо наверное, типа табличка с заголовками. Бу искать, гдет видела подобное решение.
а еще не могу найти чем получитьтекстовое значение объекта "Надпись"(ёксельный объект который синенькая кнопочка)...

[subluna]

вот файл вложила
там вторая процедура есть вот в ней не могу передать из активного листа (в этом примере "Отдел-ИТ") значение надписи процедуре (
и надо наверное в listBox'е отображать результат