Bilgileri Değiştirme Makrosu

[yyhy]

Ekteki dosyadaki bilgiler ele alınarak Aranan değer yeni değer şeklinde değiştirmek istiyorum. Macro ile bunu yapabilir miyiz?

 

[İhsan Tank]

Ekteki dosyadaki bilgiler ele alınarak Aranan değer yeni değer şeklinde değiştirmek istiyorum. Macro ile bunu yapabilir miyiz?

merhaba

Sub değiş()
Selection.Replace What:="belli", Replacement:="-", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="meçhul", Replacement:="FAİLİ MEÇHUL", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
MsgBox "Veriler Değişti", vbInformation
End Sub

bu kod işinizi görör sanırım
siz hangi aralığı istiyorsanız seçin ve makroyu çalıştırın.

 

[yyhy]

Sayın İhsan Tank Kodları bir uygulayalım ilgin için teşekkürler.

 

[İhsan Tank]

Sayın İhsan Tank Kodları bir uygulayalım ilgin için teşekkürler.

rica ederim
:yazici:

 

[yyhy]

Sayın İhsan Tank kodları uyguladım güzel olmuş yalnız değiştirilen bilgilerde mesaj olarak örneğin 5 Adet meçhul 10 Adet de Belli değiştirilmiştir. 10 Adet Belli Meçhul 0 (sıfır ) değiştirilmiştir. Uyarısı Verdirelibilir miyiz?