boxsterman
Active Member
- Joined
- Apr 16, 2002
- Messages
- 285
Hello,
I have this code to find a replace the text (within a formula) in cells on the row between columns E and J, however it does not only replace the data on that row, but all rows within the sheet and doing so incorrectly.
Ideally if I could loop this to review each row (from 3 to 76) and update it individually that would be great.
Sub Replace()
Dim rw As String
Dim x As String
rw = ActiveCell.Row
x = Range("a" & rw).Value
Range("E" & rw & ":J" & rw).Select
ActiveCell.Replace What:="012.xlsm", Replacement:=x & ".xlsm"
End Sub
Thank you,
J.
I have this code to find a replace the text (within a formula) in cells on the row between columns E and J, however it does not only replace the data on that row, but all rows within the sheet and doing so incorrectly.
Ideally if I could loop this to review each row (from 3 to 76) and update it individually that would be great.
Sub Replace()
Dim rw As String
Dim x As String
rw = ActiveCell.Row
x = Range("a" & rw).Value
Range("E" & rw & ":J" & rw).Select
ActiveCell.Replace What:="012.xlsm", Replacement:=x & ".xlsm"
End Sub
Thank you,
J.