[решено] Excel - копирование выбранных строк на другой лист

[linkwy]

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

Кое как сделал макрос, что бы это делалось по изменению ячейки, но это неудобно, т.к. можно промазать и добавить ненужное, а как удалить по отмене значения "Назначено" я не знаю

Вот сам макрос
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 9 And Target.Row > 1 Then
If Target.Text <> "" Then
Target.EntireRow.Cells(1).Resize(, 8).Copy Worksheets("Назначения").Range("a" _
& Worksheets("Назначения").Rows.Count).End(xlUp).Offset(1)
End If
End If
End Sub


файлик прилагаю.


Заранее спасибо

[v12345]

Посмотрите код в прилагаемом файле. По-моему, это то, что вам нужно.

Если непонятна технология, поищите, что такое расширенный фильтр.

[linkwy]

Спасибо большое, прям то что доктор прописал!

[okshef]

v12345, знал о расширенном фильтре по диапазону условий, но не подозревал, насколько просто, а главное применимо в контексте.