Автоматически очистить диапазон ячеек.

[agregator]

Здравствуйте, уважаемые программисты. Подскажите как автоматически очистить диапазон ячеек (например [D3:F10,H3:K10]), после очистки диапазона ячеек (например [C3:C10]). Типа такого кода (он нормально работает при очистке одной ячейки):

Private Sub Worksheet_Change(ByVal Target As Range)
'если изменения в диапазоне C3:C200
If Not Intersect(Target, Range("C3:C200")) Is Nothing Then
If Target(1, 1).Value = 0 Then
Target(1, 2).ClearContents
Target(1, 3).ClearContents
Target(1, 4).ClearContents
Target(1, 6).ClearContents
Target(1, 7).ClearContents
Target(1, 9).ClearContents
Else
Target(1, 4).Value = Format(Now(), "dd.mm.yy") & " 8:00"
End If
End If
End Sub

[EducatedFool]

А если так попробовать?

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Intersect(Intersect(Target, [C3:C200]).SpecialCells(xlCellTypeBlanks).EntireRow, [d:f,h:k]).ClearContents
End Sub

[agregator]

Здравствуйте, EducatedFool. В вашем примере все работает правильно, а в моей книге при очистке ячейки [C3] очищается диапазон ячеек [D:K] и при очистке ячеек [C3:C4] очищается диапазон ячеек[D3:K4]. Подскажите как это исправить?

[EducatedFool]

при очистке ячеек [C3:C4] очищается диапазон ячеек[D3:K4]. Подскажите как это исправить?

Я это специально сделал - видимо, неправильно понял задание.
Думал, что надо очищать ячейки (кроме столбца G) во всех строках, в которых удаляется значение в 3-м столбце...

В вашем примере все работает правильно

В вашем примере всё работает в точности также, как и в моём: http://excelvba.ru/XL_Files/Sample__...__11-06-42.zip

[agregator]

EducatedFool. Извиняюсь за непонятный вопрос, мне нужно, чтобы при очистке ячейки [C3] очищался диапазон ячеек [D3:F3,H3:K3]), а при очистке диапазона ячеек [C8:C11] очищался диапазон ячеек[D8:F11,H8:K11] и т. п. при очистке диапазона ячеек [C2:C6] очищался диапазон ячеек[D2:F6,H2:K6], а при очистке ячейки [C11] очищался диапазон ячеек [D11:F11,H11:K11]). Так можно?

[EducatedFool]

Так можно?

Так всё и работает. И в моём примере, и в вашем.

[agregator]

EducatedFool, не пойму в чём дело, вставляю в таблицу в http://excelvba.ru/XL_Files/Sample__...__11-06-42.zip свои значения и при очистке ячейки [C3] очищается вся таблица. Что, у меня не так?

[EducatedFool]

Не знаю, что не так, но вот такой код будет работать нормально:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Intersect(Intersect(Intersect(Target, [C3:C200]), _
                        Target.Worksheet.UsedRange.SpecialCells(xlCellTypeBlanks)).EntireRow, _
                        [d:f,h:k]).ClearContents
End Sub

[agregator]

EducatedFull, спасибо, работает как надо.