Как реализовать два IF каждому своё then, а Else общее.

[FiataliS]

Как реализовать два IF каждому своё then, а Else общее.

X = ActiveCell.Row

If Range("k" & X) = 5 And Range("f" & X & ":g" & X) Then

MsgBox "Ураа"

Exit Sub

Else
...
.......

В этом коде, при выполнении 2 го условия сообщение должно быть другое MsgBox "ААА нет" :-) и тоже Exit Sub

[DiemonStar]

на VBA:

If условие1 then
  ...
ElseIf условие2 then
  ...
Else
  ...
End If

на формулах:

=IF(условие1, действие1, IF(условие2, действие2, иначе))

[FiataliS]

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

на VBA:

If условие1 then
  ...
ElseIf условие2 then
  ...
Else
  ...
End If

на формулах:

=IF(условие1, действие1, IF(условие2, действие2, иначе))

Спасибо вам.

[Hugo121]

На select case кажется проще:

select case true
case uslovie1:работа1
case uslovie2:работа2
case else:работа если условия не выполнены
end select

[DiemonStar]

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

На select case кажется проще:

Не всегда. Select-Case работает при связанных условиях, а если условия не связаны, то делать через IF