hucrede belirli texte gore kod yazdirma

[emin.soydemir]

Merhabalar,

B kolonunda tanımlar listesi var. mesela general excavation yaziyorsa bu listede E kolonuna EXC yazsin. bunu Search ile yapıyorum ama. en az 20 farkli kosulum var. bu formulle yapmak cok uzun ve hata yapiyorum daha kolay bir yolu var mi acaba.

simdiden tesekkurler.

 

[emin.soydemir]

Yardım edecek biri olmalı

Arkadaslar bu islemi if ile yapıyorum ama 6 tane icice if i kabul etmiyor.

lutfen yardim.

Selam.

 

[Levent Menteşoğlu]

Koşulların tamamını verirmisiniz.

 

[emin.soydemir]

Merhaba Levent Bey

Merhaba Levent Bey,

oncelikle ilgilendiginiz icin cok tesekkur ederim.

ekte de goruldugu gibi;

mesela General excavation of backfill textinde "General excavation" varsa C hucresine GEN_EXC yazsin

Eger Excavation of core fill and transportation to another offshore location and place. textinde "Excavation of core" gorurse EXC yazsin.

yani ben en az 20 parametrelik bir sorgulama yapmak istiyorum.

ekteki ornekte iki tanesi icin yapmıstım.

simdiden tesekkurler.

Emin.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin. Diğer şartlarıda array ile oluşturulan dizilerin içine ekleyebilirsiniz.

Sub ara()
aranankelime = Array("General excavation", "Excavation of core", "sand")
karsilik = Array("GEN_EXC", "EXC", "SA")
For a = 1 To [b65536].End(3).Row
For b = 0 To UBound(aranankelime)
If InStr(UCase(Cells(a, "b")), UCase(aranankelime(b))) > 0 Then
Cells(a, "e") = karsilik(b)
Exit For
End If
Next: Next
End Sub

 

[emin.soydemir]

Cok tesekkur ediyorum

Ne diyeyim helal olsun. Emeginize minettarim.

Emin.

 

[emin.soydemir]

Satirin sonuna geldim

Levent Bey,

satir sonuna kadar yazdim. alt satiri kullanmak icin ne yapmaliyim.

selam.

Emin.