İki farklı Koşulda İçerdiği Metine Göre Değer Yazdırma

[MertkanDemir]

Herkese merhaba,

Daha önceden paylaştığım ve desteğini aldığım bir konunun biraz daha gelişmiş hali ile ilgili bir soru yöneltmek istiyorum. Esasında "Hücre içindeki içeridiği Metine Göre Değer Atama - Makro" konu başlığı altında @excelokyanus500 hocam bana yardımcı olmuştu. Benim buradaki sorum şu;

A sütununda belli hizmet kodlarım var. Örneğin; GRAUR123, GRAUR124 vb. İçerisinde "*GRAUR*" geçiyorsa B sütununa karşılık olarak "AMELİYAT" yazıyor. İstediğim GRAUR içeriyorsa, B sütununda ki değer de "AMELİYAT" ise karşılığında "Göğüs Cerrahisi" yazsın. Bu kodu excelokyanus500 hocam aşağıdaki şekilde iletti:

Sub Bariatrik()

Dim rng As Range

For Each rng In Range("A2:A111231")


If rng.Value Like "*GRAUR*" And rng.Offset(0, 1).Value = "AMELİYAT" Then
rng.Offset(0, 2).Value = "Göğüs Cerrahisi"

End If
Next

End Sub

Ben birden fazla daha koşul ekleyerek bu kurguyu çoğaltmak istiyorum. Eğer GRAUR içeriyorsa ve karşılığı Ameliyat ise Göğüs Cerrahisi, ayrı bir koşulda GRAPL içeriyor karşılığı Pediatrik ise Çocuk Patoloji yazsın şeklinde. Bu şekilde çok fazla koşulum mevcut.

İş yerinde dosya ekleme yapamıyorum şu an için eğer çalışma dosyası gerekirse lütfen bildirin.

Değerli destekleriniz için şimdiden herkese teşekkür ediyorum.

Saygılar..

 

[Mdemir63]

Selamlar
Aşağıdaki şekilde deneyiniz.

ElseIf rng.Value Like "*GRAPL*" And rng.Offset(0, 1).Value = "Pediatrik" Then
rng.Offset(0, 2).Value = "Çocuk Patoloji"

kırmızı kısımları değiştirerek istediğiniz kadar koşullar ekleyebilirsiniz.

Sub Bariatrik()
Dim rng As Range
      For Each rng In Range("A2:A111231")
            If rng.Value Like "*GRAUR*" And rng.Offset(0, 1).Value = "AMELİYAT" Then
                  rng.Offset(0, 2).Value = "Göğüs Cerrahisi"
            ElseIf rng.Value Like "*GRAPL*" And rng.Offset(0, 1).Value = "Pediatrik" Then
                  rng.Offset(0, 2).Value = "Çocuk Patoloji"
            End If
      Next rng
End Sub

 

[MertkanDemir]

Selamlar
Aşağıdaki şekilde deneyiniz.

ElseIf rng.Value Like "*GRAPL*" And rng.Offset(0, 1).Value = "Pediatrik" Then
rng.Offset(0, 2).Value = "Çocuk Patoloji"

kırmızı kısımları değiştirerek istediğiniz kadar koşullar ekleyebilirsiniz.

Sub Bariatrik()
Dim rng As Range
      For Each rng In Range("A2:A111231")
            If rng.Value Like "*GRAUR*" And rng.Offset(0, 1).Value = "AMELİYAT" Then
                  rng.Offset(0, 2).Value = "Göğüs Cerrahisi"
            ElseIf rng.Value Like "*GRAPL*" And rng.Offset(0, 1).Value = "Pediatrik" Then
                  rng.Offset(0, 2).Value = "Çocuk Patoloji"
            End If
      Next rng
End Sub

Desteğiniz için teşekkür ediyorum.

 

[Mdemir63]

Rica ederim.
İyi çalışmalar