Как скопировать 01.10.2020 9:09:57 в яческу нижу нто только 01.10.2020 vba?

Question

[Hollib]

Здравствуйте
В ячейке А3 есть дата и время, дату надо перенести в ячейку А4 без времени
У меня есть код:

Sub Смещение()
Range("A4").Value = Range("A3").Value
End Sub

Визуально время показывает только в строке, но не в ячейке:


Поиск в интернете не дал четкого ответа :с
Думаю есть два варианта.
Первый: При копировании удалить время
Второй: Дать формат ячейки в которую копируем, что бы на выходе она сама убирала время.

Answer 1

[Дмитрий]

CDate(Format(d, "yyyy-mm-dd"))

Comments

[Hollib]

Sub Смещение()
Range("A4").CDate(Format(d, "yyyy-mm-dd")) = Range("A3").Value
End Sub

Это так должно выглядеть ? оО

[Дмитрий]

Hollib, Range("A4").Value = CDate(Format(Range("A3").Value, "dd.mm.yyyy"))

[Hollib]

Дима спасибо тебе большое !!!
Знал бы ты как долго я бил над этим голову

[Дмитрий]

Бро, учись искать нужную информацию. Две минуты в Гугл по запросу 'trim date vba'

Answer 2

[Григорий Боев]

А зачем тут VBA?
=ЦЕЛОЕ(A3)

Comments

[Hollib]

Ячейки лучше не трогать через формулу, там копирование и вставка постоянное действие будет