- Katılım
- 5 Mayıs 2023
- Mesajlar
- 12
- Excel Vers. ve Dili
- Microsof Excel 365
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..
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..