Вставка гиперссылки в две разные ячейки с использованием одинаковых критериев

Question

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

Я хочу назначить ссылку на ячейку B18 и другую ссылку на ячейку C19.

Значение, которое оно ищет"HOMEREADY / HOMEPOSSIBLE".

Я пытался использовать другие критерии, но он игнорирует оператор elseif.

If Range("LoanProgram").Value Like "*READY*" Then
    ActiveSheet.Hyperlinks.Add Range("C18"), Address:="https://homeready.com, TextToDisplay:="HOMEREADY"

ElseIf Range("LoanProgram").Value Like "*Possible*" Then
    ActiveSheet.Hyperlinks.Add Range("C19"), Address:="freddiemac.com", TextToDisplay:="HOMEPOSSIBLE"

end if

Answer 1

Вы должны разделить свои условия на два If. В вашем исходном коде выполняется только один из двух If, хотя LoadProgram содержит и READY, и POSSIBLE.

If Range("LoanProgram").Value Like "*READY*" Then
    ActiveSheet.Hyperlinks.Add Range("C18"), Address:="https://homeready.com, TextToDisplay:="HOMEREADY"
End If

If Range("LoanProgram").Value Like "*Possible*" Then
    ActiveSheet.Hyperlinks.Add Range("C19"), Address:="freddiemac.com", TextToDisplay:="HOMEPOSSIBLE"
End if