değiştir komutu

[fnd86]

mrb benim öğrenmek istediğim konu tam olarak şu:
bir tabloda Örn.mehmet isimli bi çalışan var ve tablonun farklı hücreleinde ismi geçiyor.mehmet isimlerinin hepsini başka bir isimle değiştirmke istiyorum büyük bir tablo olduğu için tek tek yapmak zor oluyor toplu olarak nasıl yapabilrim
(ing.versiyon kullanıyorum)

 

[İhsan Tank]

mrb benim öğrenmek istediğim konu tam olarak şu:
bir tabloda Örn.mehmet isimli bi çalışan var ve tablonun farklı hücreleinde ismi geçiyor.mehmet isimlerinin hepsini başka bir isimle değiştirmke istiyorum büyük bir tablo olduğu için tek tek yapmak zor oluyor toplu olarak nasıl yapabilrim
(ing.versiyon kullanıyorum)

merhaba
iki tane yöntem
1. ctrl+h yapın aranan değere mehmet
yeni değere fnd86 ( yada sizin belirleyeceğiniz yeni bir isim )
tümünü değiştir deyin.
2. yöntem

Sub değiştir()
Dim a  As Long
asi = MsgBox("Değişiklik Yapayım Mı_?", vbYesNo, "Onay")
If asi = vbNo Then Exit Sub
For a = 1 To Cells(65536, "[COLOR="blue"]A[/COLOR]").End(xlUp).Row
Cells(a, "A") = Replace(Cells(a, "[COLOR="Blue"]A[/COLOR]"), "mehmet", "[COLOR="Red"]fnd86[/COLOR]")
Next
MsgBox "Değişiklik Yapıldı", vbInformation
End Sub

bu kodu boş bir module kopyalayın.
kırmızı yeri kendinize göre uyarlayınız.
A sütununa göre çalışır ( mavi yerler )

 

[fnd86]

çok teşekkür ederim ilk örneği denedim yaptım çok teşekkürler

 

[İhsan Tank]

çok teşekkür ederim ilk örneği denedim yaptım çok teşekkürler

rica ederim
:yazici: