Удаление всего кроме формул

[Severny]

Добрый день!
Попробывал написать макрос который бы удалял все значения константы, текст, даты.

Sub УдалениеКромеФормул()
    Set IRange = Selection
    For Each ICell In IRange
        If ICell <> Formula Then ICell.ClearContents
    Next
End Sub

Работает, но как-то коряво. "Неформулы" удаляет, но когда в диапазоне только формулы то удаляет и формулу в первой ячейке.
Помогите усовершенствовать макрос. Или он в корне не правильный?
В идеале хочу создать макрос который бы удалял по формату ячейки (все что перечислено в "Формате ячейки" включно с собственным форматом). Но это на будущее, пока бы только с этим разобраться.

[kuklp]

Попробуйте проще(и быстрей):

Sub УдалениеКромеФормул() 
      on error resume next' Это если констант и так нету:-)
      Selection.SpecialCells(2, 23).ClearContents
End Sub

[Казанский]

> макрос который бы удалял все значения константы, текст, даты.

Sub УдалениеКонстант()
On Error Resume Next
Intersect(Selection.SpecialCells(xlCellTypeConstants), Selection).ClearContents
End Sub

Почему не просто

Selection.SpecialCells(xlCellTypeConstants).ClearContents

Потому что в этом случае, если выделена одна ячейка, будет обработан весь лист.

[Severny]

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

[Severny]

Подскажите, что в коде делает выделеное жирным?

Intersect(Selection.SpecialCells(xlCellTypeConstants), Selection).ClearContents

[EducatedFool]

что в коде делает выделеное жирным?

Ставим курсор на слово SpecialCells, и нажимаем F1
В справке всё подробно расписано.
http://www.ozgrid.com/VBA/special-cells.htm

[Severny]

Спасибо, будем разбираться!

[Severny]

Продолжая тему:

Sub ФормаУдаления()
    UserForm1.Show
    If (UserForm1.CheckBox1(1).Value = 1) Then
        On Error Resume Next
        Intersect(Selection.SpecialCells(xlCellTypeNumbers), Selection).ClearContents
    End If
    If (UserForm1.CheckBox2(1).Value = 1) Then
        On Error Resume Next
        Intersect(Selection.SpecialCells(xlCellTypeData), Selection).ClearContents
    End If
End Sub

Это форма для выбора в небольшой форме Даты или Числа, что удалять.
Форма выскакивает, но не удаляет

[kuklp]

Правильно не удаляет. Откуда ей знать какой Selection Вы имеете ввиду. На форме свои Selection. Без файла могу только посоветовать перед Selection указывать лист с Selection.

[Severny]

В файле я уже последовал Вашему совету, видать не правильно понял, потому что не удаляет.