bul degiştir. fnk hk

[halikarnas133]

selam arkadaşlar ekteki dosyadaki bul degiştir formulunun 3000 satır olarak çalışmasını istiyorum.


tşk ederim şimdiden

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Sub BUL_DEĞİŞTİR()
    For X = 1 To 3000
    ESKİ_DEĞER = Sheets("Sayfa1").Cells(X, 1)
    YENİ_DEĞER = Sheets("Sayfa1").Cells(X, 2)
    Sheets("Sayfa2").Cells.Replace What:=ESKİ_DEĞER, Replacement:=YENİ_DEĞER
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub