Добрый день еще раз. Извините за повтор, постараюсь исправиться.
Итак проблема. Нужно начиная с 15го столбца и интервалом 14 столбцов, кликая на любую яцейку в диапазоне вызывать процедуру. Предварительно, нет возможности знать, что таких кликатебельных столбцов будет известное значение. Желательно что бы до конца файла была такая возможность. Использовать ниже преведенный код 100500 раз можно, но если нужно будет не 14 а 15 интервал, переписывать буквы вручную долгое и ошибочное занятие.
Итак проблема. Нужно начиная с 15го столбца и интервалом 14 столбцов, кликая на любую яцейку в диапазоне вызывать процедуру. Предварительно, нет возможности знать, что таких кликатебельных столбцов будет известное значение. Желательно что бы до конца файла была такая возможность. Использовать ниже преведенный код 100500 раз можно, но если нужно будет не 14 а 15 интервал, переписывать буквы вручную долгое и ошибочное занятие.
Код |
---|
If Intersect(Target, Лист8.Range("D4:D10000")) Is Nothing Then |