Добрый день.
Нужна помощь.
Подглядел здесь макрос на очистку ячеек:

Sub sad()
Dim RowMax: RowMax = ActiveWorkbook.Worksheets("Лист2").Range("A:J").Find("*", , , xlWhole, xlByRows, xlPrevious).Row
Dim rng As Range
Set rng = ActiveWorkbook.Worksheets("Лист2").Range("A6:J" & CStr(RowMax))
rng.ClearContents
Set rng = Nothing
End Sub

Всё отлично работает.
Но при этом удаляются и формулы в этих ячейках!
Как сохранить формулы при очистке?
Очень нужно по работе.
Заранее благодарен.

Я бы с радостью...
У меня 15 столбцов,
каждые 30 секунд прибавляются значения.
Необходимо отслеживать динамику в определённые моменты времени.
Т.е. обнулять значения.

Спасибо, домой доберусь проверю.

Вместо
rng.ClearContents

поставь

rng.SpecialCells(xlCellTypeConstants).ClearContents




Пишет ошибка 400 ???

Должно работать!
Ошибка возникает только если в диапазоне rng нет констант, но не 400.
Скорее всего у вас проблема с диапазоном rng, хотя не уверен.
Хотите выложите файл с ошибкой.

Всё абсолютно правильно, это я туплю.
Просто не могу найти решения проблемы.
Попробую спросить с другой стороны.
Есть макрос:

Option Explicit
Public Const RateCellAddress1 = "$C$1"
Public Const RateCellAddress2 = "$C$1"
Public Const RateCellAddress3 = "$C$1"
Public Const RateCellAddress4 = "$C$1"
Public Const RateCellAddress5 = "$C$1"
Public Const RateCellAddress6 = "$C$1"
Public Const RateCellAddress7 = "$C$1"
Public Const RateCellAddress8 = "$C$1"
Public Const RateCellAddress9 = "$C$1"
Public Const RateCellAddress10 = "$C$1"
Public Const RateCellAddress11 = "$C$1"
Public Const RateCellAddress12 = "$C$1"
Public Const RateCellAddress13 = "$C$1"
Public Const RateCellAddress14 = "$C$1"
Public Const RateCellAddress15 = "$C$1"

Public Const RateSheetName1 = "Лист1"
Public Const RateSheetName2 = "Лист2"
Public Const RateSheetName3 = "Лист3"
Public Const RateSheetName4 = "Лист4"
Public Const RateSheetName5 = "Лист5"
Public Const RateSheetName6 = "Лист6"
Public Const RateSheetName7 = "Лист7"
Public Const RateSheetName8 = "Лист8"
Public Const RateSheetName9 = "Лист9"
Public Const RateSheetName10 = "Лист10"
Public Const RateSheetName11 = "Лист11"
Public Const RateSheetName12 = "Лист12"
Public Const RateSheetName13 = "Лист13"
Public Const RateSheetName14 = "Лист14"
Public Const RateSheetName15 = "Лист15"


Sub WatchChanges()

Trace

Application.OnTime Now + TimeValue("00:00:30"), "WatchChanges"
End Sub

Sub Trace()
Const ColumnWhereRegister1 = 1
Const ColumnWhereRegister2 = 2
Const ColumnWhereRegister3 = 3
Const ColumnWhereRegister4 = 4
Const ColumnWhereRegister5 = 5
Const ColumnWhereRegister6 = 6
Const ColumnWhereRegister7 = 7
Const ColumnWhereRegister8 = 8
Const ColumnWhereRegister9 = 9
Const ColumnWhereRegister10 = 10
Const ColumnWhereRegister11 = 11
Const ColumnWhereRegister12 = 12
Const ColumnWhereRegister13 = 13
Const ColumnWhereRegister14 = 14
Const ColumnWhereRegister15 = 15

Const ColumnTime = 16

On Error Resume Next

With Cells(Rows.Count, ColumnWhereRegister1).End(xlUp).Offset(1, 0)
.Value = Worksheets(RateSheetName1).Range(RateCellAddress1).Value
.Offset(0, ColumnWhereRegister2 - ColumnWhereRegister1).Value = Worksheets(RateSheetName2).Range(RateCellAddress2).Value
.Offset(0, ColumnWhereRegister3 - ColumnWhereRegister1).Value = Worksheets(RateSheetName3).Range(RateCellAddress3).Value
.Offset(0, ColumnWhereRegister4 - ColumnWhereRegister1).Value = Worksheets(RateSheetName4).Range(RateCellAddress4).Value
.Offset(0, ColumnWhereRegister5 - ColumnWhereRegister1).Value = Worksheets(RateSheetName5).Range(RateCellAddress5).Value
.Offset(0, ColumnWhereRegister6 - ColumnWhereRegister1).Value = Worksheets(RateSheetName6).Range(RateCellAddress6).Value
.Offset(0, ColumnWhereRegister7 - ColumnWhereRegister1).Value = Worksheets(RateSheetName7).Range(RateCellAddress7).Value
.Offset(0, ColumnWhereRegister8 - ColumnWhereRegister1).Value = Worksheets(RateSheetName8).Range(RateCellAddress8).Value
.Offset(0, ColumnWhereRegister9 - ColumnWhereRegister1).Value = Worksheets(RateSheetName9).Range(RateCellAddress9).Value
.Offset(0, ColumnWhereRegister10 - ColumnWhereRegister1).Value = Worksheets(RateSheetName10).Range(RateCellAddress10).Value
.Offset(0, ColumnWhereRegister11 - ColumnWhereRegister1).Value = Worksheets(RateSheetName11).Range(RateCellAddress11).Value
.Offset(0, ColumnWhereRegister12 - ColumnWhereRegister1).Value = Worksheets(RateSheetName12).Range(RateCellAddress12).Value
.Offset(0, ColumnWhereRegister13 - ColumnWhereRegister1).Value = Worksheets(RateSheetName13).Range(RateCellAddress13).Value
.Offset(0, ColumnWhereRegister14 - ColumnWhereRegister1).Value = Worksheets(RateSheetName14).Range(RateCellAddress14).Value
.Offset(0, ColumnWhereRegister15 - ColumnWhereRegister1).Value = Worksheets(RateSheetName15).Range(RateCellAddress15).Value
.Offset(0, ColumnTime - ColumnWhereRegister1).Value = Now
End With

End Sub

По 1-13 столбцам идут вычисления, 14-15 столбцы строятся два графика и в 16-ом фиксируется время.
Соответственно каждые 30 сек. прибавляется по одной строке.
Мне нужно периодически очищать значения в столбцах с 1-13, но так что бы в 14,15,16 столбцах
продолжали накапливаться значения (Пишутся графики по этим столбцам).

Что получается:
Делаю очистку с 1-13 столбцов, в 14-16 запись останавливается. И по всем 16 столбцам начинается всё заново (с первой строки). Только в 14-16 они накладываются на те записи, что уже были.

Помогите решить эту проблему (если вообще есть решение)...

Спасибо за советы и участие.
Буду думать дальше, а пока делать чистку вручную...

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