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

[Questru]

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

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

Мне так легче формулу смотреть из-за скобок - если много вложений - бывает глаза с ума сходят =)
спасибо за помощь

Ну и для общего понимания
"""" - это значит эксель будет вставлять кавычки
"" - это значит эксель будет всавлять ничего
Правильно?

Как тут в репутацию плюсеги ставить?

[IgorGO]

а не пропущен ли случайно в самом начале ЕСЛИ(... и скобки посчитать правильно

согласен, на Руси издревле аргуметы в формулах разделялись ";"
если FormulaLocal - то ";"
если Formula - то ",". она потом каким-то чудесным образом (известным только Биллу Гейтсу) трансформируется в ";".

[аналитика]

попробуй это:

Sub f()
   Debug.Print Chr(34)
   Debug.Print "****************"
   Debug.Print "", 2
   Debug.Print """", 4
   Debug.Print """""", 6
   Debug.Print """""""", 8
End Sub

[n_"_out] = ([n_"_in] - 2)/2

[Questru]

Всем большое спасибо =) у меня все работает с запятыми - проблема была в кавычках по всей видимости

[Questru]

поторопился
Стал тестировать на другом файле - как оказалось данный макрос ищет обычным поиском.

Set IRange_3 = Range("D5:D" & LastRow_2)

iText_3$ = "BRACKET-AV"

For Each iCell In IRange_3

If iCell.Text = iText_3$ Then

lRow_3 = iCell.Row

End If

Next

И если в ячейке стоит BRACKET-AV MODULE и он стоит ниже искомого значения, то он макрос находит BRACKET-AV MODULE. Как сделать чтобы он искал точное совпадение BRACKET-AV?



Я в принципе могу попробовать по другому, но все упирается в строчку lRow_3 = iCell.Row - как iCell.Row заменить на номер j-той строки?

For j = 5 To LastRow_2

iText_3$ = "BRACKET-AV"

If Cells(j, 4).Text = iText_3 And Cells(j, 1).Value = 3 Then

lRow_3 = jCell.Row

End If

Next j

[IgorGO]

For j = 5 To LastRow_2
iText_3$ = "BRACKET-AV"
If Cells(j, 4).Text = iText_3 And Cells(j, 1).Value = 3 Then
  lRow_3 = j
  exit for
End If
Next j

[Questru]

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

For j = 5 To LastRow_2
iText_3$ = "BRACKET-AV"
If Cells(j, 4).Text = iText_3 And Cells(j, 1).Value = 3 Then
  lRow_3 = j
  exit for
End If
Next j

exit for - чтобы при найденном значении цикл дальше не крутить? Получается что все остальные совпадения он игнорирует?

[VictorM]

Как сделать чтобы он искал точное совпадение BRACKET-AV?

Вот так попробуйте

Sub tt()
    iText$ = "Образец"    'образец для поиска
    Dim iCell As Range
    Set IRange = Range("A1:A10")
    Set iCell = IRange.Find(What:=iText$, LookIn:=xlValues, LookAt:=xlPart)
    'Если необходимо использовать строгое соответствие, то замените константу xlPart на xlWhole
    If Not iCell Is Nothing Then
        iAddress$ = iCell.Address
        Do
            iRow& = iRow& + 1
            MsgBox iCell.Row
            Set iCell = IRange.FindNext(After:=iCell)
        Loop While Not iCell Is Nothing And iCell.Address <> iAddress$
    End If
End Sub

[Questru]

Cells(5, 23).FormulaLocal = "=ЕСЛИОШИБКА(ВПР(ПСТР(B5,1,10), '" & iPath & "[2011 LoL PIC list_(Full).xlsx]Sheet1'!$H$3:$AE$1500,3,0),"""")"
Range(Cells(5, 23), Cells(LastRow, 23)).Select
Selection.AutoFill Destination:=Range(Cells(5, 23), Cells(LastRow, 23)), Type:=xlFillValues

Выдает ошибку, как я понял из описания задаю неверно диапозон автозаполнения... Что делать?

[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

Сори что поднял тему. Но возник вопрос. Данный способ работает на 5+, если слова в ячейке написаны отдельно, то есть с пробелами.
А если в ячейке есть текст, приблизительно с таким содержанием -> CNE-PO99D9232KAYR
Как заставить работать макрос, чтобы в этом слове искал "PO", и, уже отталкиваясь от этого, начинал работать макрос.

И так уж получилось, что содержание ячейки чаще разные и по количеству символов и по местонахождению этих букв.