|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.03.2023, 10:30 | #1 |
Новичок
Джуниор
Регистрация: 24.03.2023
Сообщений: 1
|
Вставить значения без формул
Добрый день. Помогите, пожалуйста, поправить код.
Sub Свод() Dim sh As Worksheet With Sheets("Свод") .UsedRange.Offset(1).Clear For Each sh In ThisWorkbook.Worksheets If sh.Name <> "Свод" Then sh.AutoFilterMode = 0 sh.Range("$A$1").CurrentRegion.Auto Filter Field:=15, Criteria1:="=К выдаче" _ , Operator:=xlOr, Criteria2:="=444444" sh.Range("$A$1").CurrentRegion.Offs et(1).SpecialCells(12).Copy .[a65536].End(xlUp)(2, 1) sh.AutoFilterMode = 0 End If Next End With End Sub Сейчас он переносит строку с формулами, а нужно только значения. Как поправить? |
24.03.2023, 10:43 | #2 |
Участник клуба
Регистрация: 15.12.2009
Сообщений: 1,448
|
Код:
Бесплатная помощь: www.excelworld.ru
Платная помощь: serge_007.planetaexcel@mail.ru https://yoomoney.ru: 41001419691823 |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Требуется найти по маске и скопировать значения из одного файла и вставить в другой. | Luis32 | Microsoft Office Excel | 1 | 01.08.2016 07:37 |
Нужно найти MAX и MIN значения и вставить их в другую таблицу | Владимир П. | Microsoft Office Excel | 1 | 20.09.2011 20:35 |
Вставить и удалить значения, в диапазоне ячеек. | segail | Microsoft Office Excel | 9 | 02.07.2010 11:20 |
Как скопировать из диапазона значения без формул??? | Алексей11111 | Microsoft Office Excel | 3 | 12.11.2009 12:43 |
как скопировать значения ечеек без формул | komar73 | Microsoft Office Excel | 3 | 03.06.2009 21:43 |