Добрый день всем. я обычно использую код такого типа. Все работает, претензий нет. Подробнее в файле. Спасибо.
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Лист8.Range("D4:D10000")) Is Nothing Then
If Intersect(Target, Лист8.Range("A4:A10000")) Is Nothing Then
If Intersect(Target, Лист8.Range("A1")) Is Nothing Then
Exit Sub
Else
frmSverka.Show
End If
Else
Nom = 8 + 1
Call PlusMinus
End If
Else
Call Malocenka
End If
End Sub
Тогда зачем тема создана, раз все работает? Если Вам лень описать проблему прямо в сообщении - как думаете, другим не будет лень качать файл неизвестно зачем? Вам бы правила сначала прочитать: о нике, о названии темы, о пояснении проблем.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы... Вот тут вы правы.
Мой вопрос: Можно как то циклом или другим приемом сделать вызов процедуры (одной и той же), нажимая на 15, 29, 43 и т.д. столбец с шагом 14 столбцов?
Код
If Intersect(Target, Лист8.Range("O4:O10000")) Is Nothing Then
If Intersect(Target, Лист8.Range("AB4:AB10000")) Is Nothing Then
If Intersect(Target, Лист8.Range("AQ4:AQ10000")) Is Nothing Then