İsimlerdeki kelimeleri silme

[izcik]

Merhaba

Örnek dosyada
A sütununda isimler
B sütununda silinmesi gereken kelimeler
C sütununda da olması gereken hali vardır.

C sütununa gereken formülü ve-veya makroları rica ederim.

ornek.xls dosyasını indir - download

ornek.xls dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc

Teşekkürler

 

[Merhum İdris SERDAR]

.

Buradaki dosyayı inceleyin.

Hücreye Yazılmış Söz Dizininden Sözcük / Sözcükler Yazdırmak – Excel Gurusu

.

 

[izcik]

Sayın uzmanım tavsiye ettiğiniz dosyayı inceledim, fakat sanıyorum benim istediğim bu dosyada mevcut değil.

Zira bu dosyada belli kelime gruplar, rakam girilerekı eleniyor veya seçiliyor.


Benim örnek dosyada istediğim ise, A sütunundaki isimlerde, B sütunundaki elle girmiş olduğum (herhangi bir düzene, sıraya uymayan kelimeleri elemek. Yani A dan B yi çıkarmak.

Teşekkürler.

 

[Ziynettin]

KFT

Kodu boş module iliştirin.

Function ayir(hcr1 As Range, hcr2 As Range)
    Set dc = CreateObject("Scripting.Dictionary")
    a = Split(hcr1, " ")
    b = Split(hcr2, " ")
        For Each c In b: dc(UCase(c)) = "": Next c
    Set dx = CreateObject("Scripting.Dictionary")
    For Each c In a
        If c <> "" And Not dc.Exists(UCase(c)) Then dx(c) = ""
    Next c
    ayir = Join(dx.keys, " ")
End Function

formul ....=ayir(A2;B2).... şeklinde deneyiniz.

 

[izcik]

KFT

Kodu boş module iliştirin.

Function ayir(hcr1 As Range, hcr2 As Range)
    Set dc = CreateObject("Scripting.Dictionary")
    a = Split(hcr1, " ")
    b = Split(hcr2, " ")
        For Each c In b: dc(UCase(c)) = "": Next c
    Set dx = CreateObject("Scripting.Dictionary")
    For Each c In a
        If c <> "" And Not dc.Exists(UCase(c)) Then dx(c) = ""
    Next c
    ayir = Join(dx.keys, " ")
End Function

formul ....=ayir(A2;B2).... şeklinde deneyiniz.

Sayın Ziynettin, eksiksiz hatasız olmuştur. Çok teşekkürler, sağolunuz.

 

[Ziynettin]

Rica ederim.
İyi çalışmalar.

 

[baydeniro]

Ziynettin üstad öğrenmek açısından merak ettim. Buradaki kodlu çözümün YERİNEKOY formülüyle elde edilecek sonuçtan farkı nedir ?
=YERİNEKOY(A2;B2;"") ile de aynı sonuç elde edilebiliyor gördüğüm kadarıyla. Fark konusunda bilgi paylaşırsanız memnun olurum

 

[izcik]

Ziynettin üstad öğrenmek açısından merak ettim. Buradaki kodlu çözümün YERİNEKOY formülüyle elde edilecek sonuçtan farkı nedir ?
=YERİNEKOY(A2;B2;"") ile de aynı sonuç elde edilebiliyor gördüğüm kadarıyla. Fark konusunda bilgi paylaşırsanız memnun olurum

Sayın baydeniro, güzel bir alternatif çözüm oldu bahsettiğiniz formül. Hemen denedim ve oldu. Teşekkürler.

 

[baydeniro]

Sayın baydeniro, güzel bir alternatif çözüm oldu bahsettiğiniz formül. Hemen denedim ve oldu. Teşekkürler.

Rica ederim izcik, faydalı olmasına memnun oldum. Güle güle kullanın

 

[Korhan Ayhan]

@baydeniro,

Ziynettin üstad öğrenmek açısından merak ettim. Buradaki kodlu çözümün YERİNEKOY formülüyle elde edilecek sonuçtan farkı nedir ?
=YERİNEKOY(A2;B2;"") ile de aynı sonuç elde edilebiliyor gördüğüm kadarıyla. Fark konusunda bilgi paylaşırsanız memnun olurum

Önerilen fonksiyon karmaşık kelimeleri kaldıracağı için YERİNEKOY fonksiyonundan daha kullanışlı olacaktır.

Test etmek için B2 hücresinde yazan "1973 MODEL" ifadesini "1973 ARABA" olarak değiştirip hem YERİNEKOY fonksiyonunu hem de @Ziynettin beyin KTF'sini deneyip sonucu gözlemleyin.