реакция на клик по ячейке

[ShamanK]

всем привет, сижу ломаю голову, скажите как можно сделать так:

есть 2 ячейки

А1 и В1

при клике по ячейке А1, в ячейке В1 должна появиться цифра 1 ( или вообще ЛЮБОЙ символ)

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

[The_Prist]

В модуль листа

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B1] = 1
End Sub

Макросы должны быть включены.

[ShamanK]

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

В модуль листа

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B1] = 1
End Sub

Макросы должны быть включены.

а если у меня так:

A1 B1
A2 B2
A3 B3
A4 B4

при нажатии на А1, ячейка В1 принимает значение 1
при нажатии на А3, ячейка В3 принимает значение 1
и тд..

[Евгений ГВС]

Тогда так:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Offset(0, 1) = 1
End Sub

[ShamanK]

Сообщение от Евгений ГВС

Тогда так:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Offset(0, 1) = 1
End Sub

спасибо, все получилось
только теперь другая проблема. теперь куда ни ткни на листе - на следующем столбце все стирается и вставляется единица ))

можно ли сделать так, что только если ты выделил в ОПРЕДЕЛЕННОМ диаппазоне ячейку, то в определенной ячейке в тойже строке высветится 1
и при этом если выделяешь ячейку вне это диаппазона - ничего не происходит

[Евгений ГВС]

Можно, например, так:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If ActiveCell.Column = 1  Then ' если нужно ограничить по строкам, то, к  примеру: And ActiveCell.Row > 2 And ActiveCell.Row < 10

ActiveCell.Offset(0, 1) = 1

End If

End Sub

[The_Prist]

Так правильней

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if target.column = 1 then target.Offset(0, 1) = 1
End Sub

[ShamanK]

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

Так правильней

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if target.column = 1 then target.Offset(0, 1) = 1
End Sub

Парни, большое спасибо!!!