Копирование дат, в формате даты

Пользователь

Сообщений: 67 Регистрация: 16.03.2015

03.11.2019 04:00:41

Здравствуйте!
Есть файлы которые приходят в определенном формате (пример прикрепляю, лист "новый")
Я бы хотел, чтобы значение даты бралось из ячейки C3 и копировалось в диапазон C8:C11 обязательно в формате даты, в итоге я бы хотел получить результат как на листе "Итог"

моя версия копирует текст, но преобразовать в формат даты не получается, ну и меняет С3, что нежелательно.

Код
Range("C3").Replace What:="Дата экзамена: ", Replacement:="" Range("C3").NumberFormat = "m/d/yyyy" Range("C8:C11") = Range("C3").Value

Прикрепленные файлы

1.xls (30 КБ)

k61

Пользователь

Сообщений: 2443 Регистрация: 21.12.2012

03.11.2019 06:26:37

Здравствуйте.

Код
Sub www() [c8:c11] = CDate(Split([c3], " ")(2)) End Sub

Изменено: k61 - 03.11.2019 06:28:54

Paha_Fil Пользователь Сообщений: 67 Регистрация: 16.03.2015	#3 04.11.2019 07:37:15 k61, Спасибо, то что нужно