View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Dave Peterson Dave Peterson is offline
external usenet poster
 
Posts: 35,218
Default Replace cell formula with revised text as noted within a cell valu

What do you have in those cells?

Is it the text "Dec-08" or a date (12/1/2008 to 12/31/2008) formatted to display
as "Dec-08"?

I'm guessing it's real dates and if that's right, then there aren't any Dec-08's
to find and replace.

But I could be wrong. Is that the line in your code that failed?

Eric_G wrote:

I am attempting to replace the text contained in a cell formula with text
specified in the another cell.

For example, the formulae contained in Cells D & row referenced in cell
A700) which currently reads "Feb-08" and I wish to replace the portion of the
formula containing "Feb-08" with the text contained in Cell B & row
referenced by Cell
BXXX) where cell A700 contains a row number.

Here is my VBA code:

.Range("D" & .Range("A700") & ":AZ" & .Range("A700")).Select
Selection.Replace What:="Dec-08", Replacement:= .Range("B" &
.Range("A700"), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

In summary, where the value of Cell A700 is 650, I wish to replace the
values "Dec-08" in the formula of row 650 with the value contained in Cell
B650 (which currently reads "Mar-09".


--

Dave Peterson