Top.Mail.Ru
Ответы

Нужна помощь в написании макроса

Нужен макрос для эксель для условия при выборе значения из выподающего списка должен искать в этом же столбце такое же значение на всех листах книги и выводить строки с этим значением на отдельный лист

По дате
По рейтингу
Аватар пользователя
Мудрец
9лет

это лучше сюда http://www.excelworld.ru/forum/

Аватар пользователя
Мудрец
9лет

С клавиатуры записываете маленький макрос добавления нового листа.
Команду создания перепишете в свою программу-макрос..
Также поступаете, когда не знаете как на VBA оформить какие-то другие действия

Полученное значение из списка запомнить в переменной. Скорее всего в вашей форме, по результату события.
Есть и другие замысловатые способы. Можно также скопировать в буфер от руки.
Затем когда будет работать ваша программа, в ней можно добавить команду вставки из буфера
этого значения на первый лист и прочтя его с листа
Знач= Sheets(1).Range("A1").Value запомнить в переменной Знач.
Можно затем с учетом этого значения подпрограммкой-макросом переименовать первый лист, чтобы было видно, на вкладке, результаты какого поиска здесь помещены.
Организуете цикл перебора листов со второго (первый левый новый лист не читаете, на него будете писать) и столбцов.

Sub tes68698()
Dim nList As Variant
Dim nRow As Variant
nList = Workbooks(1).Sheets.Count 'число листов. в данной книге.
nRows = Sheets(5).Rows.Count 'число строк на листе. пятом слева направо
Debug.Print nList, nRows
''' Циклы

End Sub