Координатное выделение

[Hugo121]

С цветом сложнее, если Вы не хотите затирать исходную заливку, а выделение вот:

    rng = c & "8:" & c & "5000, B" & r & ":G" & r

Но нужно дополнительно поставить "защиту от дурака": если он кликнет вне этой зоны, то что-бы ничего не выделялось.

[Uralmaster]

те сделать и включить защиту листа вне зоны выделения так понял ?

[Hugo121]

Нет, нужно в начале кода отследить, где кликнул пользователь. И если клик не в нужной зоне - то выход из кода. Если в нужной - то соответственно срабатывает координатное выделение.

[Uralmaster]

еще несколько вопросов если можно
1.
rng = "B" & r & ":G" & r - это для диапазона B:G горизонтальное выделение
а нужно B8:G500 - что добавить - изменить?

2.
если 2 дипазона выделения по горизонтали?

rng = "B" & r & ":G" & r - это для диапазона B:G

а еще + плюсом диапазон по горизонтали K:N
- что добавить - изменить?

3.

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

Нет, нужно в начале кода отследить, где кликнул пользователь. И если клик не в нужной зоне - то выход из кода. Если в нужной - то соответственно срабатывает координатное выделение.

это не знаю как сделать

[IgorGO]

1. rng = "B8:G500"
2. union(rng, range("K:N")).select
3. надо знать за каким диапазаном "присматривает" процедура. допустим это диапазон rng, тогда:
If Intersect(rng, Target) Is Nothing Then exit sub

[Uralmaster]

сейчас попробую
вставляю rng = "B8:G500" вниз выделяется весь диапазон по клику
вставляю rng = "B8:G500" в начало
потом If Intersect(rng, Target) Is Nothing Then exit sub
не работает
запутался

If Target.Cells.Count > 1 Then Exit Sub 'макрос координатное выделение
rng = "B8:G500"
If Intersect(rng, Target) Is Nothing Then Exit Sub
    addr = ActiveCell.Address()
    x = Split(addr, "$")
    c = x(1)
    r = x(2)
    rng = c & "8:" & c & "5000, B" & r & ":G" & r 'пробовал ограничить диапазон по совету Hugo121
    Range(rng).Select
    cll = c & r
    Range(cll).Activate
End Sub

ругается на If Intersect(rng, Target) Is Nothing Then Exit Sub

[Hugo121]

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

еще несколько вопросов если можно
1.
rng = "B" & r & ":G" & r - это для диапазона B:G горизонтальное выделение
а нужно B8:G500 - что добавить - изменить?

2.
если 2 дипазона выделения по горизонтали?

rng = "B" & r & ":G" & r - это для диапазона B:G

а еще + плюсом диапазон по горизонтали K:N
- что добавить - изменить?

3.

это не знаю как сделать

По п.1. - отслеживать в начале кода, где выделение.
По п.2. - rng = "B" & r & ":G" & r & "," & "K" & r & ":N" & r

[Uralmaster]

По п.2. - rng = "B" & r & ":G" & r & "," & "K" & r & ":N" & r

два диапазона получаются

но если вне диапазона кликаешь-труба ... моргает все что можно
Application.ScreenUpdating = False не помогает

пробую так

If Target.Cells.Count > 1 Then Exit Sub 'макрос координатное выделение
Application.ScreenUpdating = False 'чтоб не моргало
    addr = ActiveCell.Address()
    x = Split(addr, "$")
    c = x(1)
    r = x(2)
    rng = "B" & r & ":G" & r & "," & "K" & r & ":N" & r  ' ограничить диапазон по совету Hugo121
If Intersect(rng, Target) Is Nothing Then Exit Sub
    Range(rng).Select
    cll = c & r
    Range(cll).Activate
Application.ScreenUpdating = True 'восстанавливаем Screen 
End Sub

затыкается на If Intersect(rng, Target) Is Nothing Then Exit Sub

[Uralmaster]

Set rng = Intersect(Target, Range("B8:G500,K8:N500"))
    If rng Is Nothing Then Exit Sub

вот это надо вставить

If Target.Cells.Count > 1 Then Exit Sub 'макрос координатное выделение
Application.ScreenUpdating = False 'чтоб не моргало
    addr = ActiveCell.Address()
    x = Split(addr, "$")
    c = x(1)
    r = x(2)
Set rng = Intersect(Target, Range("B8:G500,K8:N500"))
    If rng Is Nothing Then Exit Sub
    rng = "B" & r & ":G" & r & "," & "K" & r & ":N" & r  ' горизонтальное выделение 2-х диапазонов BG KN по совету Hugo121
If Intersect(rng, Target) Is Nothing Then Exit Sub
    Range(rng).Select
    cll = c & r
    Range(cll).Activate
Application.ScreenUpdating = True 'восстанавливаем Screen 
End Sub

все завелось
спасибо участникам форума за советы !

[Hugo121]

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