Макрос превращения формулы в значения по условию

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

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

01.02.2019 16:12:31

Нужен макрос который делает копиПаст (вместо формулы значение) по условию: если дата забита(i:I) он срабатывает напротив этой даты(e:e).

Это нужно для уменьшения размера файла и предотвращения нежелательных действий формул

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

КопиПаст по услов.xlsm (13.1 КБ)

Михаил Витальевич С.

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

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

01.02.2019 16:24:06

В столбце "Е:Е" формула не нужна.
В модуль листа:

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("I:I")) Is Nothing Then
        Target.Offset(0, -4) = Format(Target.Value, "dd.mm.yyyy")
    End If
    Application.EnableEvents = True
End Sub

Dobepman Пользователь Сообщений: 148 Регистрация: 03.12.2017	#3 05.02.2019 15:36:59 Предложенный макрос переносит забиваемую дату из I:I в Е:Е. Не правильно видимо поставил вопрос. в Е:Е формула СЦЕПИТЬ поэтому там не только дата и это все нужно превратить из формулы в значение этакое Копи Паст Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Как это туда прикрутить подскажите пожалуйста Изменено: Dobepman - 07.02.2019 19:33:27