Belirli bir karakterden öncesini silerek yeni veri yazma

[beyhan80]

Değerli arkadaşlar çok sayıda veri içerisinde makro ile düzenlemek için belirli bir karakter ile öncesini silerek onun yerine yeni karakter yapmak istiyorum. Yani info@aa.com yada aaa@com adreslerinde @ karakterinden önceki her değeri silerek onun yerine www. karakterini koymak istiyorum. a1 hucresinden başlayarak nasıl bir makro kullanılabilir? Yardımlarınız için şimdiden teşekkür ederim. Saygılarımla.

 

[EErkut]

ctrl + h ile bu işlemi yapabilirsiniz.
aranan değer *@
yeni değer www.

olarak yaparsanız sorununuz çözülmüş olur

ama ille de macro derseniz


Sub degistir()

Cells.Replace What:="*@", Replacement:="www.", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

End Sub

 

[beyhan80]

Teşekkür ederim arkadaşım. Sayende birşey daha öğrendim. ALLAH razı olsun. Selamlar.