Вот сделала такой макрос.
Суть в том что надо строку переносить на другой лист, при условии что в одном из столбцов в етой строке находиться слово закрыто,
он его находит и переносит всю строку на другой лист, а с текущего листа удаляет.
При этом хотелось бы чтобы он строки копировал на новый лист друг за другом при повторении макроса.
Мне нужно просто автоматически перенаправлять закрытые заказы на отдельный лист всегда
Вот что получилось.. помогите поправить...
Суть в том что надо строку переносить на другой лист, при условии что в одном из столбцов в етой строке находиться слово закрыто,
он его находит и переносит всю строку на другой лист, а с текущего листа удаляет.
При этом хотелось бы чтобы он строки копировал на новый лист друг за другом при повторении макроса.
Мне нужно просто автоматически перенаправлять закрытые заказы на отдельный лист всегда
Вот что получилось.. помогите поправить...
| Код |
|---|
Sub Закрыто()'
' Макрос10 Макрос'
Columns("K:K").Select
Selection.AutoFilter
ActiveSheet.Range("$K$1:$K$1286").AutoFilter Field:=1, Criteria1:="Закрыт"
Columns("A:L").Select
Range("L1").Activate
Selection.Copy
Sheets("Закрытые заказы").Select
Range("A1" & Cells(Rows.Count, 1).End(xlUp).Row).Select
ActiveSheet.Paste
Sheets("Заказы поставщику").Select
Range("A1259:L1763").Select
Range("L1259").Activate
ActiveWindow.SmallScroll Down:=-390
Application.CutCopyMode = False
Selection.EntireRow.Delete
ActiveWindow.SmallScroll Down:=-42
Range("K1").Select
ActiveSheet.Range("$K$1:$K$1282").AutoFilter Field:=1
Range("B1").Select
Selection.AutoFilter
End Sub |
Изменено: - 31.03.2015 12:29:51
