Metin içerisinde bulunan kelime ve karakterleri ayırmak

[Mehmet Sait]

Merhaba,

Metin kısmında joker karakterler olarak isimlendirdiğimiz soru işareti(?) ve yıldız işareti(*) ve içerisinde geçen Türkçe kelimeleri ayırmak mümkün mü ?

Örnek metin : GOBEK SALATAICEBERG,KIVIRCIK LETTUCE, ARMUT FRESH PEARS,BEYAZ LAHANA

Yardımlarınız için teşekkür ederim.

 

[Korhan Ayhan]

Verdiğiniz örneğe göre görmek istediğiniz sonuç nedir?

 

[Mehmet Sait]

Hocam,

Örnek : GOBEK SALATAICEBERG,KIVIRCIK LETTUCE, ARMUT FRESH PEARS,BEYAZ LAHANA WHITE CABBAGE

Görmek istediğim : ICEBERG,LETTUCE,FRESH PEARS,WHITE CABBAGE,

Yardımlarınız için teşekkür ederim.

 

[Korhan Ayhan]

Bu durumda Türkçe kelimeleri başka bir alanda listelemek gerekir. Çünkü Excel bir kelimenin Türkçe ya da başka bir dilde yazıldığını sanırım anlamaz. En azından ben öyle bir yöntem bilmiyorum diyelim.

Başka alanda oluşturacağınız liste döngüye alınarak sonuca gidilebilir.

 

[Mehmet Sait]

Hocam

Başka alanda liste uluşturmak olabilir her defasında yeni kelimeler ekleyebilirim.

 

[Korhan Ayhan]

Verileriniz "A" sütununda olsun.

Listenizi ise "K" sütununda oluşturun.

Sonrasında verilerinizi yedekleyerek aşağıdaki kodu deneyiniz.

Option Explicit

Sub Turkce_Kelimeleri_Temizle()
    Dim Aranan As Range, Son As Long
    
    Son = Cells(Rows.Count, "K").End(3).Row
    
    For Each Aranan In Range("K1:K" & Son)
        If Aranan.Value <> "" Then
            Range("A:A").Replace Aranan.Value, "", xlPart
        End If
    Next
    
    MsgBox "Türkçe kelimeler temizlenmiştir.", vbInformation
End Sub

 

[Mehmet Sait]

Hocam, Kelime bazında doğru çalıştı ancak, listeye bir de * ekleyince A sütununun tümünü sildi.

 

[Korhan Ayhan]

Yıldız (*) herşey anlamına geldiğinden tüm verinizi silecektir.

Eğer yıldız karakterini kaldırmak istiyorsanız başına tilde (~) sembolü ekleyip deneyiniz.

Aşağıdaki gibi uygulayınız.

~*

 

[Mehmet Sait]

Yıldız (*) herşey anlamına geldiğinden tüm verinizi silecektir.

Eğer yıldız karakterini kaldırmak istiyorsanız başına tilde (~) sembolü ekleyip deneyiniz.

Aşağıdaki gibi uygulayınız.

~*

~* denedim olmadı bul ile temizlerim.

Emekleriniz ve yardımlarınız için teşekkür ederim.

 

[Korhan Ayhan]

Uygulamalı dosya ektedir.

 

[Mehmet Sait]

Uygulamalı dosya ektedir.

Teşekkür ederim hocam.