Приветствую. Есть столбец с датой. необходимо копировать значение из другой ячейки, если дата больше 1 декабря 2018 года и меньше 31 декабря 2018 года. Ни как не пойму как делать. Дата в формате 31.12.2018. Формат стоит как дата.
Sub Macro1()
Dim i As Long, LastRow As Long, DateStart As Date, DateFinish As Date
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
DateStart = "01.12.2018"
DateFinish = "31.12.2018"
Application.ScreenUpdating = False
For i = 1 To LastRow
If Cells(i, 3) > DateStart Then
If Cells(i, 3) < DateFinish Then Cells(i, 4).Copy Cells(i, 8)
End If
Next
Application.ScreenUpdating = True
End Sub
пока не смог проверить скрипт. возникла проблем. файл весит 1мб а занимает всю оперативку 4гб. я так понял проблема в выпадающих списках. как их удалить? Через Данные > Проверка данных ничего не удаляется.
Скрипт конечно хорошо. А как выполнить следующую задачу: Есть Лист1 в столбце С дата, в столбце D числа. Необходимо найти среднее значение чисел в столбце D, но только в диапазоне дат с 1 по 31 декабря 2018 года (столбец С) и скопировать данное значение в лист 2. Я пытаюсь приспособить формулу для листа 2