ЕСЛИ ПОИСК НОМЕРА

Question

Я пытаюсь заполнить IF(ISNUMBER(SEARCH( в VBA для автоматического заполнения ячеек, когда пользователь вводит код в ячейку.

При этом я получаю ошибку.

Код, который я сейчас использую:
Range("J19") = Evaluate("IF(ISNUMBER(SEARCH(""IWA"",""I19"")),""IWA"",""Not Working"")")

У меня есть 3 листа для поиска и сопоставления, поэтому, если I19 содержит IWA или IWK, мне нужно посмотреть этот конкретный лист. На данный момент я получаю НЕ работает как результат формулы.

У кого-нибудь есть идеи?

Спасибо

Answer 1

Используя метод проб и методов, я использовал код If / ElseIf, как показано ниже:

Sub MatchI19()
If Range("J19").Value = "IWA" Then
Range("K19").Value = "IWA"
ElseIf Range("J19").Value = "IWK" Then
Range("K19").Value = "IWK"
ElseIf Range("J19").Value = "IWVD" Then
Range("K19").Value = "IWVD"
End If
End Sub
Sub IndexMatchI19()
If Range("K19").Value = "IWA" Then
Range("L19") = "=INDEX(IWA!C:C,MATCH(I19,IWA!E:E,0))"
Range("M19") = "=INDEX(IWA!B:B,MATCH(I19,IWA!E:E,0))"
Range("N19") = "=INDEX(IWA!F:F,MATCH(I19,IWA!E:E,0))"
ElseIf Range("K19").Value = "IWK" Then
Range("L19") = "=INDEX(IWK!C:C,MATCH(I19,IWK!E:E,0))"
Range("M19") = "=INDEX(IWK!B:B,MATCH(I19,IWK!E:E,0))"
Range("N19") = "=INDEX(IWK!F:F,MATCH(I19,IWK!E:E,0))"
End If
End Sub