Доброго дня друзья!
Не думаю, что спрошу что-то новое, но не смог найти ничего простого доступного и понятного. А по сему, проявляю интерес:
Вот, у меня есть умная таблица со списком долгов по заявкам в поставку. В них добавляются новые строки из файлов свежих заявок при помощи планировщика.
Первая добавляется обычно нормально, а на следующей, формат даты обязательно слетает (нужен обычный краткий формат дд.мм.гггг. а становится мм.дд.гггг). А менеджер по продажам, которая приносит бабки, очень с...ка капризная и хочет чтобы все само настраивалось.))) Подскажите плиз! Вот исполняемый код:
Не думаю, что спрошу что-то новое, но не смог найти ничего простого доступного и понятного. А по сему, проявляю интерес:
Вот, у меня есть умная таблица со списком долгов по заявкам в поставку. В них добавляются новые строки из файлов свежих заявок при помощи планировщика.
Первая добавляется обычно нормально, а на следующей, формат даты обязательно слетает (нужен обычный краткий формат дд.мм.гггг. а становится мм.дд.гггг). А менеджер по продажам, которая приносит бабки, очень с...ка капризная и хочет чтобы все само настраивалось.))) Подскажите плиз! Вот исполняемый код:
Код |
---|
Sheets("заявка в поставку").Select lr = Cells(Rows.Count, 4).End(xlUp).Row arr = Range(Cells(8, 4), Cells(lr, 15)).Value Application.EnableEvents = False Application.Calculation = xlCalculationManual Set importWb = Workbooks.Open("Y:\Цены+Учет\УЧЕТ\Учет движения поставок ПЗПК роботизированный.xlsm", , False, , , 1234) Sheets("Долги").Select lRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(lRow, 1).Resize(UBound(arr), UBound(arr, 2)) = arr ......? вот сюда нужно добавить код importWb.Save importWb.Close Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic Path = "Z:\ЗАЯВКИ\Архив\ЗАЯВКИ в поставку\Отеч\2021\" ThisWorkbook.SaveAs Path & [C4] & "_" & [C5] & "_" & [C3] & ".xlsb" |
Как мне добавить сюда форматирование столбцов 2,12,19,20,22 умной таблицы ("Таблица5") в краткий формат даты (дд.мм.гггг)?
Заранее благодарен, как и за рекомендации по модернизации и оптимизации кода макроса.