kser
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день, профессионалам.
Снова обращаюсь к вам за помощью.
Суть вопроса такова: Ежедневно делается рассылка уведомлений в 26 регионов.
Есть файл, в котором 27 страниц, на первую странице помещаются данные из которых формируются (посредством работы фильтрами, и переносом на страницу региона) уведомления. После разноса данных по страницам, копия страницы отравляется в регион (посредством макроса, в адаптации которого под конкретную ситуацию, оказал еоценимую помощь psiho, за что ему огромное человеческое СПАСИБО).
На данный момент стоит задача автоматизировать разнесение данных по страницам, (так чтоб любой даже неподготовленный человек смог обработать данные и отправить уведомление).
Я по недопониманию вопроса посчитал, что можно просто записать макрос (штатными средствами EXCEL), но оказалось всё не так просто.
Ниже макрос записанный штатными средствами EXCEL, но есть вопросы которые не знаю как решить:
Т.к. уведомления рассылаются нарастающим итогом, нужно чтоб информация за следующий день, добавлялась после данных внесенных днём ранее (т.е начиная после последней не пустой ячейки).
Как указать макросу, что данные должны вставляться на страницу с первой незанятой строки, а так же как указать макросу что копировать данные при работе с фильтрами нудно со 2 несвободной строки?
Код:
Sub ОБРАБАТЫВАЕМ()
Selection.AutoFilter Field:=3, Criteria1:="БЕЛГОРОД"
Rows("1769:1802").Select
Selection.Copy
Sheets("Бегород").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("ДАННЫЕ ПО EMS Report").Select
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=2, Criteria1:="Владивосток"
Selection.AutoFilter Field:=3, Criteria1:="ВЛАДИВОСТОК СЦ"
Rows("135:199").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Владивосток").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("ДАННЫЕ ПО EMS Report").Select
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=2, Criteria1:="Волгоград"
Selection.AutoFilter Field:=3, Criteria1:="ВОЛГОГРАД СЦ"
ActiveWindow.SmallScroll Down:=-6
Rows("208:237").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Волгоград").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("ДАННЫЕ ПО EMS Report").Select
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=2, Criteria1:="Воронеж"
Rows("238:281").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Воронеж").Select
Rows("2:2").Select
ActiveSheet.Paste
Sheets("ДАННЫЕ ПО EMS Report").Select
ActiveWindow.SmallScroll Down:=-18
Selection.AutoFilter Field:=2
ActiveWindow.SmallScroll Down:=-294
Rows("2:65000").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub
|
|
Всего записей: 18 | Зарегистр. 20-12-2005 | Отправлено: 15:44 22-02-2012 | Исправлено: kser, 20:29 22-02-2012 |
|
