Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub Загрузка_данных_о_партиях()
- 'удаляем первый лист с отключением запроса на подтверждение удаления
- Application.DisplayAlerts = False
- Sheets("Схема документа").Delete
- Application.DisplayAlerts = True
- 'Погнали копипастить
- Dim iLastRow As Long
- 'Вся эта хрень повторяется столько раз, сколько листов в книге
- 'не считая первого удаленного и Листа2 на который все копируется
- 'т.е. 7 раз (если заводов станет больше, просто увеличим количество
- 'повторений цикла). --
- ' |
- For s = 1 To 7 '<---
- 'Идем на лист 2 и выбираем нужную ячейку в конце списка
- Sheets("Лист2").Select
- Cells(10, 3).Select
- iLastRow = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row
- Cells(iLastRow + 1, ActiveCell.Column).Select
- 'Идем на Лист (п/н2) следующий за Листом2 и
- 'копируем нужный диапазон
- Sheets(2).Select
- Range("B10:U10").Select
- Range(Selection, Selection.End(xlDown)).Select
- Selection.Copy
- 'Идем обратно на страницу Лист2 и всавляем полученные с Листа(п/н2) данные.
- Sheets("Лист2").Select
- ActiveSheet.Paste
- 'Удаляем листы 3-9 из книги. Т.е. после каждого копипаста
- 'удаляем следующий за Лист2
- Application.DisplayAlerts = False
- Sheets(2).Delete
- Application.DisplayAlerts = True
- 'и по новой
- Next s
- 'ну и красоты ради вернемся обратно в начало таблицы
- Sheets("Лист2").Select
- Cells(10, 3).Select
- 'Сохраняем книгу как...
- Application.Dialogs(xlDialogSaveAs).Show "StandAlone" & "_" & Format(Date, "YYYYMMDD"), xlOpenXMLWorkbook
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement