hücre değerine göre makro çalıştırma

[selocanexcel]

Mevcutta Çalışan kod:
If Not Intersect(Target, Range("d3,d2")) Is Nothing Then
If Sayfa4.[d3&d2] = "ISO 9001:2015" & "Aşama1" Then

Beklenti Açıklaması:
Yukarıdaki kodda yapmak istediğim D2 hücresinde birden fazla seçeneği sorgulasın içlerinden biri eşleşiyorsa işlem yapsın istiyorum. aşağıdaki şekilde yazıyorum çalışmıyor doğrusu nasıl olur yardımcı olurmusunuz;
Çalışmayan örnek : If Sayfa4.[d3&d2] = "ISO 9001:2015" & "Aşama1&Aşama2&1.Gözetim&2.Gözetim" Then

 

[Ömer]

Merhaba,

Aşağıdaki yapıyı kullanabilirsiniz.

Select Case Sayfa4.[d3&d2]
    Case "x", "y", "z" 'eklenecek şartlar
    'şart sağlarsa çalışacak kodlar.
End Select

 

[Muzaffer Ali]

Merhaba.

Alternatif
Aşağıdaki gibi olmalı.

If Sayfa4.[d3&d2] = "ISO 9001:2015" & "Aşama1" or Sayfa4.[d3&d2] = "ISO 9001:2015" & "Aşama2" or Sayfa4.[d3&d2] = "ISO 9001:2015" & "1.Gözetim" or Sayfa4.[d3&d2] = "ISO 9001:2015" & "2.Gözetim" Then