Выделение ячеек

[Klaust]

Доброго времени суток.
Подскажите как сделать так чтобы при выделении одной ячейки одновременно выделялась другая ячейка (заранее установленная) в другом конце таблицы.
Спасибо.

[SAS888]

Посмотрите пример во вложении.
Подставьте адреса требуемых ячеек.

[Klaust]

Спасибо большое.
Вот теперь то что я хотел.

P.S. По умолчанию ячейки выделяются светло-голубым, что очень плохо заметно. Это можно как-то поменять?

[Klaust]

Проблему решил добавлением надстройки, появляется кнопка Cells.
Других вариантов нет?

[SAS888]

Сообщение от Klaust

Других вариантов нет?

Есть. См. вложение.

[Klaust]

Сообщение от SAS888

Есть. См. вложение.

Благодарю. Дай бог вам здоровья))

[Klaust]

Макрос от предыдущего отличается достаточно сильно)

[Klaust]

Сделал все как сказали (я так думаю).
Возникли следующие трудности:
1. Не корректно закрашиваются ячейки при выделении, например при выделении E2 или E3 все работает, а вот например P8, Q8 и тд. ничего не происходит хотя они прописаны в макросе. Как это исправить?
2. При выделении ячеек они закрашиваются, в моем случае красным, но когда выделение убираю то ячейка продолжает быть закрашенной пока я не выдели следующую. Можно ли это как-то исправить?
3. На всех ячейках в которых прописан макрос нельзя поставить гиперссылку (это для меня катастрофа) только не говорите что это не решаемо?

Спасибо заранее.

[SAS888]

1. Это потому, что макрос реагирует только на 1-ый столбец таблицы. Для того, чтобы выделялись любые ячейки таблицы, строку кода
If Intersect(Target, y.Columns(1)) Is Nothing Then Exit Sub
нужно заменить на
If Intersect(Target, y) Is Nothing Then Exit Sub
И еще: если окраска требуется не для каждой выделяемой ячейки таблицы (как в Вашем примере), то строку кода
x.Interior.ColorIndex = 3
нужно заменить на
If Not x Is Nothing Then x.Interior.ColorIndex = 3
2. Что значит "... но когда выделение убираю..."
Как Вы его убираете? Выделение другой ячейки таблицы приведет к новой окраске (если она прописана в макросе), либо к обесцвечиванию всех ячеек таблицы. Выделение ячейки вне таблицы оставит окраску без изменения. Вам это нужно убрать?
3. Почему Вы не можете создать гиперссылку? В прикрепленном примере я создал гиперссылку в ячейке "F3" на ячейку "C2" этого же листа. Объясните подробнее, в чем у Вас проблема.

Во вложении - доработанный по Вашим требованиям файл. Проверяйте.

[Klaust]

2. Что значит "... но когда выделение убираю..."
Отвечаю: в моём ранее присланном файле, к примеру если я выделяю ячейку E2 все нужные окрашиваются красным, потом выделяю ячейку F2 которая, не задействована ни чем, при это E2 остается гореть красным (но в Вашем присланном примере это уже исправлено).
3. Почему Вы не можете создать гиперссылку?
В присланном сейчас примере я не могу создать гиперссылку на папку в компьютере в той-же ячейке E2.