Toplu Değer Değiştirme

[taneryuksell]

Merhaba Arkadaşlar:
Yüklediğim dosyada yardıma ihtiyacım var. Excelde herhangi bir değeri bulup değiştirebilme noktasında değişmesi gereken binlerce değer varsa ve bunlar tekrarlıyorsa bunu yapmanın yolu var mıdır. ?

 

[askm]

Sub askm()
Dim son As Long
son = Range("H" & Rows.Count).End(3).Row
Application.ScreenUpdating = False
With Columns("A:A")
For i = 2 To son
    .Replace What:=Cells(i, "G").Value, Replacement:=Cells(i, "H").Value, LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
Next i
End With
Application.ScreenUpdating = True
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

 

[Ömer BARAN]

Merhaba.

Ben de benzer bir kod hazırlamış idim ancak tıpkı Sayın @askm 'ın verdiği kod'daki gibi A sütunundaki değerlerin
SAYIya dönüştüğünü görünce, daha sonra bakarım diye bekletmiştim.
Hatta kırmızı satırları da eklememe rağmen sonuç aynı:
A sütunundaki değerler SAYIya dönüşüyor, oysa H sütunundakiler SAYI değil.

Sub BUL_DEGISTIR()
Application.ScreenUpdating = False
Range("A:A, G:H").NumberFormat = "@"
For brn = 2 To Cells(Rows.Count, "G").End(3).Row
    Columns("A:A").Replace What:=Cells(brn, "G"), Replacement:=Cells(brn, "H")
Next
Range("A:A, G:H").NumberFormat = "@"
Columns("A:A").Replace What:=",", Replacement:="."
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı.", vbInformation, "..:: Ömer BARAN ::.."
End Sub