Копирование только значений

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

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

23.11.2021 11:25:51

Нужно подкорректировать макрос переноса строки на другой лист. Копирование строки выполняется с переносом правил условного форматирования, существующих на листе-источнике. Нужно чтобы копировались только значения. Макрос такой:

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 21 And Target.Count = 1 And Target.Cells(1) <> "" Then
Target.EntireRow.Cells(1).Resize(, 28).Copy Worksheets("Расчет").Range("a65000").End(xlUp).Offset(1)
Target.EntireRow.Delete
End If
End Sub

Дмитрий(The_Prist) Щербаков

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

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

Профессиональная разработка приложений для MS Office

23.11.2021 11:28:52

А запись макроса со вставкой только значений никак не помогает в решении вопроса?

Попробуйте - очень выручает.

Код
Target.EntireRow.Cells(1).Resize(, 28).Copy Worksheets("Расчет").Range("a65000").End(xlUp).Offset(1).Pastespecial xlPastevalues Application.CutcopyMode = false

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

Victorrr72 Пользователь Сообщений: 8 Регистрация: 15.04.2018	#3 23.11.2021 11:48:41 Да пробовал я, не получилось. Предполагал, что решение очень простое, но ума не хватило. Спасибо! Изменено: Victorrr72 - 23.11.2021 11:59:02