UserForm для очистки разделов бланка

[BDA2011]

Прошу помощи уважаемых форумчан!

есть некий бланк с кучей объединенных заполняемых данными ячеек в разных местах листа, бланк условно можно разделить на несколько разделов.. есть потребность очистить эти заполняемые ячейки по выбору пользователя вызвав UserForm и поставив галочки CheckBox на против нужного раздела нажать кнопочку CommandButton и выбранные разделы будут очищены....
хотелось бы но не получается:
галочку поставил раздел выбран, нужна возможность выбирать несколько разделов, сняв галочку с ошибочно выбранного раздела он не очищается, очистка происходит только после нажатия кнопки..

додумался только вот так

[doober]

Это весь код вашей формы.Лишнее удалите

Private Sub CommandButton1_Click()
If CheckBox1.Value Then
Range("B2:I2,D3:I3").ClearContents
End If

If CheckBox2.Value Then
   Range( _
        "K7:R7,F9:M9,D12:J12,K12:Q12,R12:X12,Y12:AE12,A13:G13,H13:N13,O13:U13,V13:AB13" _
        ).ClearContents
End If

If CheckBox3.Value Then
 Range("B17:AC30").ClearContents
End If

If CheckBox4.Value Then
 Range("D33:AE33,A34:AE34,A35:AE35,A36:AE36,A37:AE37,A37:AE37").ClearContents
End If

If CheckBox5.Value Then
 Range( _
        "B2:I2,D3:I3,K7:R7,F9:M9,D12:J12,K12:Q12,R12:X12,Y12:AE12,A13:G13,H13:N13,O13:U13,V13:AB13,B17:AC30,D33:AE33,A34:AE34,A35:AE35,A36:AE36,A37:AE37,A37:AE37" _
        ).ClearContents
End If
    Unload UserForm1
End Sub

[BDA2011]

Огромное Спасибо!

[nilem]

Сообщение от doober

Это весь код вашей формы.Лишнее удалите...

Не, это слишком просто
А если с селектами? Вот часть кода:

Private Sub ertert()
Dim i As Byte
For i = 1 To 4
    If Me.Controls("CheckBox" & i) Then
        If rSel Is Nothing Then
            Set rSel = Range(Me.Controls("CheckBox" & i).Tag)
        Else
            Set rSel = Union(rSel, Range(Me.Controls("CheckBox" & i).Tag))
        End If
    End If
Next i
If Not rSel Is Nothing Then rSel.Select
End Sub

Заинтересовались? См. файл...

[BDA2011]

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

[nilem]

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

[doober]

Николай,я не люблю(ненавижу) селекты.

[BDA2011]

doober в Вашем примере например если нужные ячейки заливать цветом а после нажатия кнопки очистить они освобождаются от данных и от заливки тоже..

правда книга в оригинале защищена, пользователи любят влезть туда куда не надо

[BDA2011]

типа такого

Range("B2:I2,D3:I3").Interior.Color = vbRed

[BDA2011]

вот так (см. файл)
правда есть одна некорректность если выбрать сначала "разделы" а потом выбрать "всё " и снять галку "всё" то цвет всех нужных ячеек становится белым хотя галки по разделам стоят ... и наоборот тоже самое