Basit bir döngü yapamadım :(

[bykursat]

S.A.

sub arabuldegistir ()
Dim Sht As Worksheet
f1 = "ptarih"
r1 = "PTarih07"
f2 = "mydate"
r2 = "myDate07"
f3 = "elkOda"
r3 = "elkOda07"
f4 = "elkOdaT"
r4 = "elkOdaT07"
f5 = "elkOdaKG"
r5 = "elkOdaKG07"
For i = 1 To 5
For Each Sht In Worksheets
Sht.Cells.Replace What:="f" & i, _
Replacement:="r" & i, LookAt:=xlPart, MatchCase:=False
Next
Next
end sub

makroda f ile bulduklarını r ile değiştirmem lazım
fakat f ile birleştirdiğim i dğişkenini arattıramıyorum
çünkü "f" & i sonucunda
"f1" olarak arıyor oysa ben "ptarih" arattırmak istiyorum

zannediyorsam başına bir işlev geliyordu ama, bulamadım
yardımlarınızı bekliyorum

 

[hamitcan]

Aşağıdaki şekilde dener misiniz?

Sub arabuldegistir()
Dim Sht As Worksheet
f = Array("ptarih", "mydate", "elkOda", "elkOdaT", "elkOdaKG")
r = Array("PTarih07", "myDate07", "elkOda07", "elkOdaT07", "elkOdaKG07")

For i = 0 To 4
For Each Sht In Worksheets
Sht.Cells.Replace What:=f(i), _
Replacement:=r(i), LookAt:=xlPart, MatchCase:=False
Next
Next
End Sub

 

[bykursat]

Teşekürler bu kod çalıştı
sonunda "subscript out of range" diye bir hata veriyor ama
kod işini bitirdikten sonra hata veriyor
tekrar teşekürler

 

[emrexcel123]

sayfa adı

arkadaşım sayfa isminde hata verebilme olasılığı var ve kodun başına "on error resume next" olayını eklersen sanırım sorun kalmaz ama bence sayfa isminden kaynaklanıyor olabilir...