Kelime tamamlatılması

[Ergün ÇUBUK]

excelde a ve b sütunda bulunan aynı verilerden sağ taraftakinde harf ve kelime eksiklikleri bulunmakta, bunlar nasıl tamamlatılır

 

[HücrelereFısıldayanAdam]

Amacınız nedir? A ve B'de aynı veri lazım olsaydı sadece, A' yı B'ye kopyalardınız.

 

[Ergün ÇUBUK]

Örneğin:
A sütununda "Palandöken Lojistik Müdürlüğü" var,
B Sütununda "Palandöken Lojistik Mü" var,
B sütunundaki "Mü" nasıl tamamlatılır

 

[BaY_KaPTaN]

Örneğin:
A sütununda "Palandöken Lojistik Müdürlüğü" var,
B Sütununda "Palandöken Lojistik Mü" var,
B sütunundaki "Mü" nasıl tamamlatılır

C Sütununa aşağıdaki formülü yazarsanız olur sanırım.

Tabi birbirine benzer ifadeler varsa olmaz.

=DÜŞEYARA(BİRLEŞTİR(B1;"*");A:A;1;0)

 

[excelokyanus500]

Bu kod sayfa içindeki tüm hücreleri tarar. Dolayısıyla istenmeyen değişikliğe sebep olabilir. Sayfanızın yedeğini oluşturup deneyin.Mükerer çalışmada yeniden aynı işlemleri yapacağı için istenilen sonuç oluşmaz. Kelimeler çok yakın ve karışacaksa yani siz "Mü" değiştirmek istiyorsunuz ancak sayfada Müze varsa bu kelimeyi de etkiler. Bu sebeple bu durumları göz önüne alın.

Sub KelimeDegistir()
    Dim ws As Worksheet
    Dim bul As Variant
    Dim yerinekoy As Variant
    Dim cell As Range
    Dim i As Integer
    
   bul = Array("örnek", "metin", "bazı", "Mü") 'Yeni girişleri virgül ile ayırın .Değişmesini istediğiniz kelimeler

    yerinekoy = Array("örneğin", "metinden", "bazıları", "Müdürlüğü") ' Bunların karşılıkları
    
    'For Each ws In ThisWorkbook.Sheets

          For Each cell In ActiveSheet.UsedRange  'For Each cell In ws.UsedRange
            For i = LBound(bul) To UBound(bul)
                cell.Value = Replace(cell.Value, bul(i), yerinekoy(i))
            Next i
        Next cell
   ' Next ws

    MsgBox "Tüm sayfalardaki değiştirme işlemi tamamlandı."
End Sub

 

[Ergün ÇUBUK]

Merhabalar üstadım, sonuçlar yanlış geliyor, aşağıdaki gibi

SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	#YOK​
ERZURUM PALANDÖKEN LOJİSTİK MÜDÜRLÜĞÜ	ERZURUM PALANDÖKEN LOJİST	SİVAS LOKOMOTİF BAKIM ATÖLYE MÜDÜRLÜĞÜ
SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ
AMASYA LOJİSTİK ŞEFLİĞİ	AMASYA LOJİSTİK ŞEFLİĞİ	KARS YOLCU HİZMETLERİ MÜDÜRLÜĞÜ
SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	ERZİNCAN ARAÇ BAKIM DEPO ŞEFLİĞİ
SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS EYS KONTROLÖRLÜĞÜ
SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ
SAMSUN GELEMEN LOJİSTİK MÜDÜRLÜĞÜ	SAMSUN GELEMEN LOJİSTİK M	SİVAS VAGON BAKIM ATÖLYE MÜDÜRLÜĞÜ
SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SAMSUN YOLCU HİZMETLERİ MÜDÜRLÜĞÜ
DİVRİĞİ LOJİSTİK MÜDÜRLÜĞÜ	DİVRİĞİ LOJİSTİK MÜDÜRLÜĞ	SİVAS YOLCU HİZMETLERİ MÜDÜRLÜĞÜ
SAMSUN GELEMEN LOJİSTİK MÜDÜRLÜĞÜ	SAMSUN GELEMEN LOJİSTİK M	SİVAS LOJİSTİK MÜDÜRLÜĞÜ
DEMİRDAĞ LOJİSTİK ŞEFLİĞİ	DEMİRDAĞ LOJİSTİK ŞEFLİĞİ	SAMSUN GELEMEN LOJİSTİK MÜDÜRLÜĞÜ
KARS LOJİSTİK MÜDÜRLÜĞÜ	KARS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS PERSONEL VE MALİ İŞLER SERVİS MÜD.
SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	KARS LOJİSTİK MÜDÜRLÜĞÜ
ERZURUM PALANDÖKEN LOJİSTİK MÜDÜRLÜĞÜ	ERZURUM PALANDÖKEN LOJİST	SİVAS LOJİSTİK MÜDÜRLÜĞÜ

 

[BaY_KaPTaN]

Merhabalar üstadım, sonuçlar yanlış geliyor, aşağıdaki gibi

SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	#YOK​
ERZURUM PALANDÖKEN LOJİSTİK MÜDÜRLÜĞÜ	ERZURUM PALANDÖKEN LOJİST	SİVAS LOKOMOTİF BAKIM ATÖLYE MÜDÜRLÜĞÜ
SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ
AMASYA LOJİSTİK ŞEFLİĞİ	AMASYA LOJİSTİK ŞEFLİĞİ	KARS YOLCU HİZMETLERİ MÜDÜRLÜĞÜ
SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	ERZİNCAN ARAÇ BAKIM DEPO ŞEFLİĞİ
SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS EYS KONTROLÖRLÜĞÜ
SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ
SAMSUN GELEMEN LOJİSTİK MÜDÜRLÜĞÜ	SAMSUN GELEMEN LOJİSTİK M	SİVAS VAGON BAKIM ATÖLYE MÜDÜRLÜĞÜ
SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SAMSUN YOLCU HİZMETLERİ MÜDÜRLÜĞÜ
DİVRİĞİ LOJİSTİK MÜDÜRLÜĞÜ	DİVRİĞİ LOJİSTİK MÜDÜRLÜĞ	SİVAS YOLCU HİZMETLERİ MÜDÜRLÜĞÜ
SAMSUN GELEMEN LOJİSTİK MÜDÜRLÜĞÜ	SAMSUN GELEMEN LOJİSTİK M	SİVAS LOJİSTİK MÜDÜRLÜĞÜ
DEMİRDAĞ LOJİSTİK ŞEFLİĞİ	DEMİRDAĞ LOJİSTİK ŞEFLİĞİ	SAMSUN GELEMEN LOJİSTİK MÜDÜRLÜĞÜ
KARS LOJİSTİK MÜDÜRLÜĞÜ	KARS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS PERSONEL VE MALİ İŞLER SERVİS MÜD.
SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	KARS LOJİSTİK MÜDÜRLÜĞÜ
ERZURUM PALANDÖKEN LOJİSTİK MÜDÜRLÜĞÜ	ERZURUM PALANDÖKEN LOJİST	SİVAS LOJİSTİK MÜDÜRLÜĞÜ

Veriler böyleyse eğer 4 numaralı cevabımda verdiğim formül uyumlu çalışıyor.
Sonuçları aşağıdaki gibi, karışık olsa bile veriyor.

		=DÜŞEYARA(BİRLEŞTİR(B1;"*");A:A;1;0)
SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ
ERZURUM PALANDÖKEN LOJİSTİK MÜDÜRLÜĞÜ	ERZURUM PALANDÖKEN LOJİST	ERZURUM PALANDÖKEN LOJİSTİK MÜDÜRLÜĞÜ
SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ
AMASYA LOJİSTİK ŞEFLİĞİ	AMASYA LOJİSTİK ŞEFLİĞİ	AMASYA LOJİSTİK ŞEFLİĞİ
SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ
SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ
SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ
SAMSUN GELEMEN LOJİSTİK MÜDÜRLÜĞÜ	SAMSUN GELEMEN LOJİSTİK M	SAMSUN GELEMEN LOJİSTİK MÜDÜRLÜĞÜ
SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ
DİVRİĞİ LOJİSTİK MÜDÜRLÜĞÜ	DİVRİĞİ LOJİSTİK MÜDÜRLÜĞ	DİVRİĞİ LOJİSTİK MÜDÜRLÜĞÜ
SAMSUN GELEMEN LOJİSTİK MÜDÜRLÜĞÜ	SAMSUN GELEMEN LOJİSTİK M	SAMSUN GELEMEN LOJİSTİK MÜDÜRLÜĞÜ
DEMİRDAĞ LOJİSTİK ŞEFLİĞİ	DEMİRDAĞ LOJİSTİK ŞEFLİĞİ	DEMİRDAĞ LOJİSTİK ŞEFLİĞİ
KARS LOJİSTİK MÜDÜRLÜĞÜ	KARS LOJİSTİK MÜDÜRLÜĞÜ	KARS LOJİSTİK MÜDÜRLÜĞÜ
SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ	SİVAS LOJİSTİK MÜDÜRLÜĞÜ
ERZURUM PALANDÖKEN LOJİSTİK MÜDÜRLÜĞÜ	ERZURUM PALANDÖKEN LOJİST	ERZURUM PALANDÖKEN LOJİSTİK MÜDÜRLÜĞÜ
	SİVAS LOJİSTİK MÜD	SİVAS LOJİSTİK MÜDÜRLÜĞÜ
	SAMSUN GELEMEN LOJİSTİK M	SAMSUN GELEMEN LOJİSTİK MÜDÜRLÜĞÜ

 

[Ergün ÇUBUK]

Teşekkür ederim