Макрос по условию

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос по условию (Макросы/Sub)

Макрос по условию

Anis625

Дата: Среда, 09.01.2019, 00:50 | Сообщение № 1

Группа: Заблокированные

Ранг: Ветеран

Сообщений: 674

Репутация: 31 ±

Замечаний: 20% ±

Excel 2013

Добрый вечер, ребята!

Попытался адаптировать макрос под текущую задачу: вывод окно поиска из списка по столбцам где в строке 3 написано ФИО. Раньше этот макрос на форуме помогли заточить под горизонтальное расположение таблицы:

[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Cells(Target.Row, 4) = "ФИО" And Target.Column > 4 Then Call dd: Cancel = True
End Sub

[/vba]

А под вертикальное расположение таблицы переделанный (мной) макрос не срабатывает:

[vba]

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Cells(Target.Column, 3) = "ФИО" And Target.Row > 3 Then Call dd: Cancel = True
End Sub

[/vba]

Подскажите, пожалуйста, где нужно было правильно исправить?