Номер строки из ссылки

[27102014]

Всем доброго времени суток!
Давно не задавал вопросов, хватало своих познаний)
Такая проблема:
на листе1 в ячейке А1 формула - ссылка на лист2 ячейку В5.
Нужно из ссылки "=Лист2!B5" взять только номер строки - "5"

Требуется в макросе задать переменную - номер строки из ссылки

[IgorGO]

давно не отвечал на вопросы
=СТРОКА(Лист2!B5)
если это просто ссылка

и
=СТРОКА(ДВССЫЛ("Лист2!B5"))
если это текст

а макросом:
забрать последние цифры из строки - тут масса вариантов
от написания простенькой функции
до использования RegExpress, где будет 3 строки, создать RegExpress, присвоить значение маске, получить результат.

[SAS888]

Можно так:

NumRow = Range([A1].Formula).Row

[IgorGO]

не в бровь, а ... сами знаете

range(ССЫЛКА).row

[27102014]

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

Можно так:

NumRow = Range([A1].Formula).Row

Огромное спасибо, то что нужно!!!!
немного приспособил к своим нуждам

 
n = ActiveCell.Row
NumRow = Range(Cells(n, 4).Formula).Row

[SAS888]

Обратите внимание, что если в ячейке Cells(n, 4) формула отсутствует, то будет ошибка. Т. е. нужно предварительно проверять наличие формулы в ячейке.

[27102014]

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

Обратите внимание, что если в ячейке Cells(n, 4) формула отсутствует, то будет ошибка. Т. е. нужно предварительно проверять наличие формулы в ячейке.

Т.к. у меня все ссылки на другой лист, то проверка такая

 If UBound(Split(Cells(n, 4).Formula, "!")) > 0 Then

[SAS888]

Лучше так:

If Cells(n, 4).HasFormula Then