Bul değiştir.

[Bora K]

Merhabalar
Değerli uzmanlarımız.

Sub Buldeğiştir()

[A2:AA65000].Replace What:="Ahmet", Replacement:="Mehmet"
[A2:AA65000].Replace What:="Mehmet", Replacement:="Ahmet"

End Sub

Üstteki kod ile
Ahmet leri >> Mehmet
Mehmet leri >> AHmet yapmak istiyorum.

Lakin olmuyor. Ya hepsi Ahmet yada hepsi Mehmet oluyor.

Yardımlarınızı bekliyorum lütfen.

 

[Muzaffer Ali]

Aşağıdaki gibi deneyin

Sub Buldeğiştir()

[A2:AA65000].Replace What:="Ahmet", Replacement:="MehmetYeni" 'Ahmet i MehmetYeni yap
[A2:AA65000].Replace What:="Mehmet", Replacement:="Ahmet", LookAt:=xlWhole 'Mehmet i Ahmet yap
[A2:AA65000].Replace What:="MehmetYeni", Replacement:="Mehmet" 'Önceden Ahmet olan ve MehmetYeni yaptıklarımızı Mehmet yap
End Sub

 

[Bora K]

Sayın dalgalı kur.
alakanız için teşekkür ederim ama
kod çalışmadı siz denemişmiydiniz acaba?
VBA da ortadaki satır kırmızı renk gözüküyor birde.

 

[Muzaffer Ali]

yukarıdaki kodları düzelttim tekrar deneyin

 

[Bora K]

Ellerinize sağlık üstad.
Çok teşekkür ederim.