Sayfa İçerisindekileri Macro İle Değiştirebilir miyiz?

[yyhy]

Sayfa İçerisindekileri Macro İle Değiştirebilir miyiz? Not sayfasında A sütununda bulunan bilgileri B sütunundaki bilgilere göre veri sayfasındakilerle değiştirebilir miyiz?

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub BulDegistir()
Set s1 = Sheets("Not")
Set s2 = Sheets("Veri")

For i = 2 To s1.Range("a65536").End(3).Row

    Cells.Replace What:=s1.Cells(i, 1).Text, Replacement:=s1.Cells(i, 2).Text, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Next
End Sub

 

[yyhy]

Öncelikle ilginize teşekkürler. Cadde kelimesini Cad. olarak düzeltiyor yalnız Caddesi kelimesini ise Cad.si olarak düzeltiyor sorun ne olabilir acaba?
Cadde yi Cad.. olarak düzeltiyor?

 

[uzmanamele]

Öncelikle ilginize teşekkürler. Cadde kelimesini Cad. olarak düzeltiyor yalnız Caddesi kelimesini ise Cad.si olarak düzeltiyor sorun ne olabilir acaba?
Cadde yi Cad.. olarak düzeltiyor?

merhaba

kod önce cadde kelimesini cad. olarak değiştiriyor.
caddesi kelimesi daha önce cad. olarak değiştiği için cad.si durumunu alıyor.

çözüm; listeye önce caddesi yazıp altına cadde yazmak.
bu durumda caddesi kelimesi cad. olarak değişir. sıra cadde kelimesine gelince bu kelimeyide cad. olarak değiştirecektir.

 

[yyhy]

Yani azalan olarak sıralarsam kelimeleri olacak olarak anladım teşekkürler kolay gelsin.

 

[yyhy]

Sayın Uzmanamale, Bu şekilde de olmadı. Acaba başka bir çözüm bulabilir miyiz?

Arkadaşlar bu konuda farklı düşüncesi olan var mı acaba?