Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Microsoft Office (Word, Excel, Outlook и т.д.) (http://forum.oszone.net/forumdisplay.php?f=115)
-   -   [решено] Excel - копирование выбранных строк на другой лист (http://forum.oszone.net/showthread.php?t=240697)

linkwy 16-08-2012 11:11 1971137

[решено] Excel - копирование выбранных строк на другой лист
 
Вложений: 1
Есть список медицинских препаратов препаратов на 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 16-08-2012 12:57 1971196

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

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

linkwy 16-08-2012 13:42 1971232

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

okshef 16-08-2012 21:14 1971470

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


Время: 22:15.

Время: 22:15.
© OSzone.net 2001-