Страницы: 1
RSS
Rак определить, что ячейка входит в определенный диапазон?
 
Здравствуйте, уважаемые, форумчане!

Помогите, пожалуйста, разобраться со следующей бедой: есть два кода, один кнопкой чистит данные в указанных ячейках, второй - переименовывает лист по содержанию ячейки. Оба кода выполняются на одном листе. Переименование листа происходит без проблем, при попытке очистить данные указанных в коде ячейке происходит ошибка выполнения кода, т.е. ничего код не чистит. В отдельности на разных листах оба кода работают нормально! Какой то конфликт происходит! Пример прилагаю! Заранее благодарю за любую оказанную помощь!

Код на переименование листа:
Код
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
Изменено: Роман - 15.07.2019 21:55:43
 
Код
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
Согласие есть продукт при полном непротивлении сторон
 
Код
If Target.Address = Range("C1").Address Then
 
Спасибо большое! Оба варианта устранили ошибку!
 
Уточните название. Сейчас общее и не отражает проблему. Модераторы заменят
 
название темы:
как определить, что ячейка входит в определенный диапазон?

ответ:
с помощью функции Intersect
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1
Наверх