Hücre içindeki metni bulup silme

[ismailayan]

Herkese günaydın arkadaşlar.

Excel çalışmamda 2 hücre içinde (A,B hücresinde) adres ve ilçe/şehir isimleri var...

benim amacım b hüxresindeki ilçe/şehir ismini a hücresinde bulup silmesini istiyorum...

Örnek

A B
----------------------------------------- -----------------------
Yeni mh.çeşme sk. sefaköy/Küçükçekmece sefaköy/küçükçekmece
umut mh.kahve sk. Küçükçekmece küçükçekmece

örnekte göründüğü gibi B hücresindeki metni bulup A hücresinden silmesini istiyorum.

bu konuda bana yardımcı olurmusunuz?

 

[AS3434]

Şöyle yapabilirsiniz.

A1 hücresi orjinal metin, B1 hücresi çıkartılacak metin, C1 hücresine

=Yerinekoy(a1;b1;"")

yazın.

 

[ismailayan]

formülün bir kısmı çalıştı ama çoğunluğu olmadı

dosyayı size gönderiyorum...

yada ben size tam olarak anlatamadım.

 

[AS3434]

İlk gönderdiğim formül Büyük/Küçük harf duyarlıydı.

Formülü şöyle yazın,

=YERİNEKOY(YAZIM.DÜZENİ(A1);YAZIM.DÜZENİ(B1);"")

Büyük/Küçük hark duyarlılığını ortadan kaldırır. Ayrıca Formül birebir eşleşen verileri değiştirir.

Bir kısım verileriniz birbiri ile uyuşmuyor.
Güzelkent/Eryaman/Ankara ana metin
Eryaman/Güzelkent/Ankara değişecek metin gibi.

"/" işareti farklıları var. Ana metinde olmadığı halde,değişecek metinin "/Denizli" olması gibi.

Bazı verilerinizin yerleri kaymış.

Değişmeyen metinlerinize bakarsanız aradaki farkları görürsünüz.

 

[Seyit Tiken]

Soruyu anlayıp anlayamadığı tam olarak bilmiyorum. kodun izahı : Gelen InputBox ile A sütununda silinecek veri yazılıp okeyleniyor > hem hedef veriyi hemde sağındakini siliyor. Olay bu.

Sub Düğme1_Tıklat()
On Error GoTo hata
s = InputBox("Silinecek Değeri Giriniz")
Range("a1:a100").Find(s).Select
Selection = Empty
ActiveCell.Offset(, 1) = Empty
hata:
Exit Sub
End Sub