Ark68
Well-known Member
- Joined
- Mar 23, 2004
- Messages
- 4,616
- Office Version
- 365
- 2016
- Platform
- Windows
Code:
With ws_stsked
dt_row = Application.WorksheetFunction.Match(CLng(Date), .Columns(1), 0)
elim = Application.WorksheetFunction.VLookup(FullName, ws_rstr.Range("E:H"), 4, False)
rplc = str4
Set rng_scour = .Range("B" & dt_row & ":HA375")
With rng_scour
With .Cells
.Replace What:=elim, Replacement:=rplc, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End With
End With
End With
The idea of this code is to replace all the values of 'elim' found with the value of 'rplc' within the range set to 'rng_scour' (B & dt_row : HA375) of worksheet alias ws_stsked.
I don't get any errors, but nothing is being replaced. I suspect my approach my be wrong with the use of .cells within the range.
Any suggestions?