satır sonundaki belli kelimeri silme

[saphyr]

Merhaba arkadaşlar.

suan elimde 20.000 adet adres datası bulunmakta. datanın D sutununda adresler bulunmakta. Bu sütunun en son satırında adreslerin il leri bulunmakta. ben bu sondaki illeri silmem gerekli. denediğim yöntem şu şekilde.

Filtre uygulama bölümünden özel i seçip .ile biter seçip istanbul diyorum. istanbul ile bitenlerin tamamı ekrana geliyor "bul değiştir" i kullanıp istanbul olan illeri siliyorum ama sorunum burda başlıyor. adres içerisinde istanbul geçen her kelime yi siliyor.
örn. xxxx sok xxxx cad. istanbul yolu bağcılar istanbul

benim satırın en sonunda yer alan istanbul kelimesini silmem lazım yardımlarınızı burda rica ediyorum... teşekkürler

 

[Ömer]

Merhaba,

Kısaca D sütunundaki verilerde, son boşluktan sonra gelen kelimeyi mi silmek istiyorsunuz.

.

 

[saphyr]

dosyadan ufak bir örnek ektedir.

 

[saphyr]

son boşluktan sonra gelen kelimeden kastınız tam olarak nedir anlamadım ama

deneme sok. istanbul yolu denem cad. no:5 ataşehir istanbul

en sonra yer alan illeri silmem gerekli

 

[Vedat Özer]

Merhaba,

Bul/Değiştir ile denedim bir türlü yapamamadım,
Formülle bir çözüm elde ettim pek sağlıklı olmadı açıkcası

e1 Hücresine,

=YERİNEKOY(D1;"İSTANBUL";"")

Yapıştırın.

 

[Ömer]

Module kopyalarak çalıştırınız.

Sub SonSozcukSil()
 
    Dim hcr
    Dim i As Long, j As Integer, son As Integer, Sozcuk As String
 
    For i = 1 To Cells(Rows.Count, "D").End(3).Row
        hcr = Split(Cells(i, "D"), " ")
        Sozcuk = ""
        For j = 0 To UBound(hcr) - 1
            Sozcuk = Sozcuk & " " & hcr(j)
        Next j
        Cells(i, "D") = Trim(Sozcuk)
    Next i
 
End Sub

Yalnız kodlardaki çalışma mantığı son boşluktan sonraki değerleri sil şeklinde olduğu için kodu ikinci kez çalıştırdığınızda problem olacaktır.

Yalınız problem olmaması için yardımcı sütun kullanılarak sorun aşılabilir. Eğer ikinci kez kullanma durumu varsa hangi sütunu yardımcı olarak kullanacağımızı yazarsanız ona göre bir düzenleme yapabilirim.

.