Координата ячейки в зависимости от ее содержания

[Questru]

В зависимости от содержания ячейки необходимо определить её координату - номер строки.
Столбец постоянен, то есть нужна координата "y".

Как это реализовать в Excel VBA?

[VictorM]

Sub Найти()
    Set IRange = Range("A1:A10") 'нужно будет определиться, где искать
    iText$ = "Образец" 'и что искать
    For Each iCell In IRange
        If iCell.Text = iText$ Then
            lRow = iCell.Row
            MsgBox lRow
        End If
    Next
End Sub

[Questru]

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

Sub Найти()
    Set IRange = Range("A1:A10") 'нужно будет определиться, где искать
    iText$ = "Образец" 'и что искать
    For Each iCell In IRange
        If iCell.Text = iText$ Then
            lRow = iCell.Row
            MsgBox lRow
        End If
    Next
End Sub

Большое спасибо! Помогло!!!!

[Questru]

Вопрос в догонку =)
Rows("4:4").Select - есть вот такое выделение
Как цифры заменить переменными?

[аналитика]

n=4
Rows(n & ":" & n).Select

[Questru]

Сообщение от аналитика

n=4
Rows(n & ":" & n).Select

большое спасибо - помогло
но раз пошла такая пьянка вот еще один вопрос

Где косяк?

For n = 5 To LastRow
Cells(n, 23).FormulaLocal = "=ЕСЛИОШИБКА((ВПР((ПСТР(B" & n & ",1,10)),'" & iPath & "[2011 LOL Pick list_(Full).xlsx]Sheet1'!$H$3:$AE$782,3,0)),"")"
Next n

выдает такую ошибку

[VictorM]

Ошибка определения приложения/объекта
Не находит чего-то

[аналитика]

на Руси аргументы у функций точкой с запятой разделяются --> (;)

[Questru]

Сообщение от аналитика

на Руси аргументы у функций точкой с запятой разделяются --> (;)

написал так

For n = 5 To LastRow
Cells(n, 23).FormulaLocal = "=ЕСЛИОШИБКА((ВПР((ПСТР(B" & n & ";1;10));'" & iPath & "[2011 LOL Pick list_(Full).xlsx]Sheet1'!$H$3:$AE$782;3;0));"")"
Next n

не помогло!

[аналитика]

замени это

;"")"

на это

;"""")"

и скобок у тебя излишне, нет, это все работает,но зачем писать:
(((1+3)))/5