Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Копирование данных с одного листа на другой, переодически переносить данные определенному параметру
 
Вот сделала такой макрос.
Суть в том что надо строку переносить на другой лист, при условии что в одном из столбцов в етой строке находиться слово закрыто,
он его находит и переносит всю строку на другой лист, а с текущего листа удаляет.
При этом хотелось бы чтобы он строки копировал на новый лист друг за другом при повторении макроса.
Мне нужно просто автоматически перенаправлять закрытые заказы на отдельный лист всегда
Вот что получилось.. помогите поправить...

Код
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
Изменено: kleo90 - 31 Мар 2015 12:29:51
 
файл-пример приложите.
Работать надо не 12 часов, а головой.
 
Лучше на файле продемонстрируйте, какая структура таблицы, откуда надо убирать, и какая структура таблицы, куда надо переносить, в каком столбце появляется признак "закрыто" (всегда ли там "закрыто", или может бывает еще "Закрыто", или, не к обеду помянуть, "зак.")? :)
Кому решение нужно - тот пример и рисует.
 
Данные придумал сам. В следующая раз прилагайте файл пример.
С уважением,
Федор/Все_просто
 
Похожая ситуация.Но с примером. Нужно с листа "вручение" макросом перенести строки с "Николаевск-на-Амуре, Совгавань, Солнечный" на лист "внутриобластные" ниже уже заполненных.
Страницы: 1
Читают тему (гостей: 1)