При очистке "умной таблицы"макросом слетают формулы

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

При очистке "умной таблицы"макросом слетают формулы (Макросы/Sub)

Sancho

Дата: Пятница, 08.07.2016, 14:15 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 279

Репутация: 19 ±

Замечаний: 0% ±

2007, 2010, 2013

Всем привет!
Наткнулся на проблему при очистке макросом перед заполнением "умной таблицы" - слетают формулы, расположенные в столбце C, ссылающиеся на ячейки в "умной таблице" на #ССЫЛКА. причем те формулы которые расположены в той же строке на какую ссылается формула то все нормально. Если выделить столбец таблицы вручную и нажать клавишу del то все формулы не слетают.
Записал макрос на очистку перед заполнением кнопкой del получил Selection.ClearContents, подставил вместо Selection.Clear - все равно при очистке макросом формулы "слетают".

Каким еще способом можно очистить таблицу без потери формул?

К сообщению приложен файл: 12.xlsm (21.4 Kb)

Ответить

Саня

Дата: Пятница, 08.07.2016, 14:33 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

[vba]

Код

    ActiveSheet.Range(Cells(2, 13), Cells(Rows.Count, Cells(2, 13).Column).End(xlUp)).RemoveDuplicates Columns:=1, Header:=xlNo 'Cells(Rows.Count, 1).End(xlUp).Row
    ActiveSheet.Range(Cells(2, 13), Cells(Rows.Count, Cells(2, 13).Column).End(xlUp)).Copy  ' Cut       '<<< ИЗМЕНИЛ!
    Range("Таблица2[1]").Select

    ActiveSheet.Paste
    ActiveSheet.Range(Cells(2, 13), Cells(Rows.Count, Cells(2, 13).Column).End(xlUp)).ClearContents     '<<< ДОБАВИЛ!

[/vba]

формулы убились не из-за очистки, а из-за наката вырезанием на диапазон

Ответить

krosav4ig

Дата: Пятница, 08.07.2016, 14:36 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

а я пишу [vba]

Код

ActiveSheet.ListObjects(1).DataBodyRange.Clear

[/vba] и у мну ничего не слетает

UPD.
[vba]

Код

Sub Макрос1()
    Application.ScreenUpdating = 0
        With ActiveSheet.ListObjects(1)
            If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
            [1!O1:O33].AdvancedFilter xlFilterCopy, , [1!M1], True
            [1!M:M].SpecialCells(2, 23).Copy
            .HeaderRowRange(1, 1).PasteSpecial xlPasteValues
            [1!M:M].Clear
        End With
    Application.ScreenUpdating = True
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Пятница, 08.07.2016, 15:01

Ответить

Sancho

Дата: Пятница, 08.07.2016, 20:39 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 279

Репутация: 19 ±

Замечаний: 0% ±

2007, 2010, 2013

Цитата Саня, 08.07.2016 в 14:33, в сообщении № 2

формулы убились не из-за очистки, а из-за наката вырезанием на диапазон

да,... я когда уже отправил, курить пошел размышлять вдруг осенило отключить блок вставки и перестали слетать формулы, но уже не было возможности отписаться, что я неправильный вопрос задал. Прошу прощения... и спасибо за подсказки.

Сообщение отредактировал Sancho - Пятница, 08.07.2016, 20:40

Ответить

При очистке "умной таблицы"макросом слетают формулы (Макросы/Sub)

Страница 1 из 1
1