Metin içindeki kelimeyi bul yenisi ile değiştir.

[chngrcn]

Forumun değerli üyeleri,

Ekte'ki çalışmamda "FORM" sayfasında metin içeren bir vekaletname örneği var.
Ve ek olarak "TAKAS" sayfası var.

yapmak istediğim şu;

"Takasla" butonuna basıldığında, "TAKAS" Sheet'indeki "A" sütununda bulunan "ESKİ KELİME" isimli kelimeyi metin içinde bulup, "B" sütunundaki karşılık gelen kelime ile değiştirecek..

kısaca bir OKUS-POKUS işlemi yapacağız..

Ayrıca bu olayın microsoft word'de yapmamız mümkünmüdür ?

yardımlarınızı talep eder, saygılar sunarım.. CİHANGİR CAN.

EK DOSYA BURADA

 

[Korhan Ayhan]

Deneyiniz.

Sub TAKASLA()
    Dim S1 As Worksheet, S2 As Worksheet, X As Long, Say As Long, Son As Long
    
    Set S1 = Sheets("FORM")
    Set S2 = Sheets("TAKAS")
    
    Son = S2.Cells(S2.Rows.Count, 1).End(3).Row
    
    For X = 2 To Son
        If InStr(1, S1.Range("A1"), S2.Cells(X, 1)) > 0 Then
            S1.Range("A1").Replace S2.Cells(X, 1), S2.Cells(X, 2)
            Say = Say + 1
        End If
    Next
    
    MsgBox "Toplam (" & Say & ") adet veri değiştirildi."
End Sub

 

[chngrcn]

Teşekkür ederim Korhan bey.