metin içinde il ismi buldurma

[kneehot]

Arkadaslar merhaba. yapmak ıstedıgım bır metın ıcınde yazan ıl ısmını buldurup yan sutuna yazdırmak.ornek ekledım.ornek ıcınde tum ıllerın lıstesıde var.yardımlara sımdıden tesekkurler.

 

[mersilen]

Merhaba deneyin
Yalnız uyumluluk olsun diye il isimlerinide büyük harfe çevirdim.

Sub bull()
'On Error Resume Next
For i = 4 To 7
  For Each hucre In Range("G2:G82")
    hucre.Value = UCase(Replace(Replace(hucre.Value, "ı", "I"), "i", "İ"))
    If InStr(Cells(i, "D"), hucre) > 0 Then Cells(i, "F") = hucre
  Next
Next i
End Sub

 

[kneehot]

Merhaba deneyin
Yalnız uyumluluk olsun diye il isimlerinide büyük harfe çevirdim.

Sub bull()
'On Error Resume Next
For i = 4 To 7
  For Each hucre In Range("G2:G82")
    hucre.Value = UCase(Replace(Replace(hucre.Value, "ı", "I"), "i", "İ"))
    If InStr(Cells(i, "D"), hucre) > 0 Then Cells(i, "F") = hucre
  Next
Next i
End Sub

ilginiz için cok tesekkurler tam ıstedıgım gıbı calısıyor fakat 4 satırdan sonrasını yapmıyor. benden kaynaklanan bır hata mı var yoksa makromu o sekıl yazılmıs bılmıyorum.kontrol edebılırsenız cok sevınırım.

 

[kneehot]

Tamam sorunu buldum kolaymıs

For i = 4 To 7

burayı degıstırınce oldu

cok tesekkur edıyorum

 

[Erdem Akdemir]

Formülle yapmak isterseniz,

E4 hücresine, dizi formülüdür. CTRL+SHIFT+ENTER ile kapatın.

=BÜYÜKHARF(İNDİS($G$1:$G$82;KAÇINCI(DOĞRU;ESAYIYSA(MBUL(DEVRİK_DÖNÜŞÜM($G$1:$G$82);D4));0)))