Помогите, пожалуйста, разобраться со следующей бедой: есть два кода, один кнопкой чистит данные в указанных ячейках, второй - переименовывает лист по содержанию ячейки. Оба кода выполняются на одном листе. Переименование листа происходит без проблем, при попытке очистить данные указанных в коде ячейке происходит ошибка выполнения кода, т.е. ничего код не чистит. В отдельности на разных листах оба кода работают нормально! Какой то конфликт происходит! Пример прилагаю! Заранее благодарю за любую оказанную помощь!
Код на переименование листа:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("C1") Then ' подсвечивается эта строка при ошибке
If Target.Value <> "" Then
If Len(Target.Value) < 30 Then
Target.Parent.Name = Target.Value
End If
End If
End If
End Sub
Код на очистку данных:
Код
Private Sub CommandButton1_Click()
Range("B11:E110").Select
Selection.ClearContents
Range("L11:O110").Select
Range("L110").Activate ' лишняя строка, убрал, но ошибка остается
Selection.ClearContents
Range("V11:Y110").Select
Selection.ClearContents
Range("AD1").Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1")) Is Nothing Then '(подсвечивается эта строка при ошибке)
If Target.Value <> "" Then
If Len(Target.Value) < 30 Then
Target.Parent.Name = Target.Value
End If
End If
End If
End Sub
Private Sub CommandButton1_Click()
Range("B11:E110, L11:O110, V11:Y110").ClearContents
End Sub
Согласие есть продукт при полном непротивлении сторон