Код |
---|
Sub ПЕРЕНОС() ' ' ПЕРЕНОС Макрос ' ' Range("A2:F3").Select Selection.Copy Sheets("Маршрутные листы.").Select Range("M3").Select ActiveSheet.Paste Sheets("Заказы.").Select Range("A4:F4").Select Application.CutCopyMode = False Selection.Copy Sheets("Маршрутные листы.").Select Range("G3").Select ActiveSheet.Paste Sheets("Заказы.").Select Range("A5:F6").Select Application.CutCopyMode = False Selection.Copy Sheets("Маршрутные листы.").Select ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 9 Range("S3").Select ActiveSheet.Paste Sheets("Заказы.").Select Range("A7:F8").Select Application.CutCopyMode = False Selection.Copy Sheets("Маршрутные листы.").Select ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 Range("A3").Select ActiveSheet.Paste End Sub |
Как сделать, что бы нужные мне строки перенеслись по кнопке в нужный диапазон? ориентиром для переноса должны служить дата в ячейках "H" и Имя водителя в ячейке "E"
Таблиwа динамичная, нужно что бы заказы по дате отгрузке и водителю отправлялись по своим полочкам, прошу помощи
Прикладываю файл, как примерный образец.