Hücrede belirli kelimeleri istediğim kelimelerle değiştirme

[serif_007]

Merhabalar.
Bir tablom var. Bu tablonun BE sütununda olan verileri istediğim kelimelerle değiştirmek istiyorum. Örneğin "DAĞITIM" yazısını gördüğü zaman "DAĞITIM1" , "İLETİM" yazısını gördüğünde "İLETİM1" olarak değişmesi için ne tür bir makro kullanmalıyım.

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    Dim Kelime1(2) As String
    Dim Kelime2(2) As String
    Dim Bak As Long
    
    '___________________________ aranan kelimeler
    Kelime1(0) = "DAĞITIM"
    Kelime1(1) = "İLETİM"
    Kelime1(2) = "test"
    
    
    '___________________________ yeni kelimeler
    Kelime2(0) = "DAĞITIM1"
    Kelime2(1) = "İLETİM1"
    Kelime2(2) = "deneme"
    
    
    For Bak = 0 To UBound(Kelime1)
        Range("BE:BE").Replace What:=Kelime1(Bak), Replacement:=Kelime2(Bak), LookAt:=xlPart, SearchOrder:=xlByRows

    Next
End Sub

Hücrede tam eşleşme olmasını isterseniz LookAt:=xlPart yerine LookAt:=xlWhole yazın

 

[serif_007]

Merhaba.

Sub Test()
    Dim Kelime1(2) As String
    Dim Kelime2(2) As String
    Dim Bak As Long
   
    '___________________________ aranan kelimeler
    Kelime1(0) = "DAĞITIM"
    Kelime1(1) = "İLETİM"
    Kelime1(2) = "test"
   
   
    '___________________________ yeni kelimeler
    Kelime2(0) = "DAĞITIM1"
    Kelime2(1) = "İLETİM1"
    Kelime2(2) = "deneme"
   
   
    For Bak = 0 To UBound(Kelime1)
        Range("BE:BE").Replace What:=Kelime1(Bak), Replacement:=Kelime2(Bak), LookAt:=xlPart, SearchOrder:=xlByRows

    Next
End Sub

Hücrede tam eşleşme olmasını isterseniz LookAt:=xlPart yerine LookAt:=xlWhole yazın

Muzaffer bey çok teşekkür ederim tam da olması gerektiği gibi çalışıyor. İyi çalışmalar dilerim