- Katılım
- 18 Nisan 2008
- Mesajlar
- 2
- Excel Vers. ve Dili
- 2007 tr
selam arkadaşlar ekteki dosyadaki bul degiştir formulunun 3000 satır olarak çalışmasını istiyorum.
tşk ederim şimdiden
tşk ederim şimdiden
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
bul degiştir. fnk hk
- Konbuyu başlatan halikarnas133
- Başlangıç tarihi
- Katılım
- 15 Mart 2005
- Mesajlar
- 43,701
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
Selamlar,
Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.
Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.
Kod:
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