Вывести данные первой ячейки столбца при выполнении условия

[kipish_lp]

Здравствуйте. Объясните пожалуйста, каким образом можно в VBA Excel описать следующее:
Если активный столбец С, то вывести значение (не важно куда, хотя бы в ячейку А по активной строке) первой ячейки данного столбца.
Иначе, значение первой ячейки столбца В.
Главное, чтобы не менялась активная строка.

[Dophin]

ничего не понятно

[SAS888]

В модуль требуемого листа вставьте код:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells(Target.Row, 1) = IIf(Target.Column = 3, [C1], [B1])
End Sub

[kipish_lp]

Спасибо, работает замечательно, но мне надо в макрос добавить. А тут на активном листе само выдается. У меня вообще-то данные в Word выводятся, просто для наглядности полученное значение смотрю в какой-нибудь ячейке (так выводится или нет). В общем, как это в макрос написать?

[SAS888]

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

ничего не понятно

+1. Теперь и я присоединяюсь.

[kipish_lp]

Процесс вывода в Word данных у меня работает. По каждой строке отдельный документ. Единственное, в зависимости от активного столбца выводить в одно поле либо данные ячейки С1, или, если активет др. столбец, ячейки А1. Но это все по кнопке. Кнопке назначен макрос. Извините, что пишу непонятно.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(Target.Row, 1) = IIf(Target.Column = 3, [C1], [B1])
End Sub

Отсюда строчку не вытащить, чтобы в макрос поставить.

[SAS888]

Замените Target.Row и Target.Column на ActiveCell.Row и ActiveCell.Column соответственно и используйте в общем макросе.

[kipish_lp]

Спасибо! Так и надо!