more specific help with code on edit/replace?

[derickc]

Ok, I've got a little code but I need a little help (I'm way rusty with VBA).

Here's what I've got:

Selection.Replace What:="ACAS", Replacement:="BFS"


I need the "BFS" to be dynamic such that the macro grabs the replacement from the header for each row. thank you!!

-dc

 

[Jim North]

Selection.Replace What:="ACAS", Replacement:=Range("A1").Value

... will move replace ACAS with the value in cell A1... are you looking for more than that?

 

[derickc]

Jim,
Thanks for the reply. Here's what I need.

Range("D6:D1310").select
Selection.Replace What:="ACAS", Replacement:=Range("D5").Value
Range("E6:E1310").select
Selection.Replace What:="ACAS", Replacement:=Range("E5").Value
Range("F6:F1310").select
Selection.Replace What:="ACAS", Replacement:=Range("F5").Value

etc, through "EO6:EO1310". so I need the macro to step one column to the right and loop until it gets to column "EO".

I'm almost there, I can smell the finish line. Thanks again.

-dc

 

[derickc]

Jim,
Thanks for the reply. Here's what I need.

Range("D6:D1310").select
Selection.Replace What:="ACAS", Replacement:=Range("D5").Value
Range("E6:E1310").select
Selection.Replace What:="ACAS", Replacement:=Range("E5").Value
Range("F6:F1310").select
Selection.Replace What:="ACAS", Replacement:=Range("F5").Value

etc, through "EO6:EO1310". so I need the macro to step one column to the right and loop until it gets to column "EO".

I'm almost there, I can smell the finish line. Thanks again.

-dc

 

[derickc]

Jim,
Thanks for the reply. Here's what I need.

Range("D6:D1310").select
Selection.Replace What:="ACAS", Replacement:=Range("D5").Value
Range("E6:E1310").select
Selection.Replace What:="ACAS", Replacement:=Range("E5").Value
Range("F6:F1310").select
Selection.Replace What:="ACAS", Replacement:=Range("F5").Value

etc, through "EO6:EO1310". so I need the macro to step one column to the right and loop until it gets to column "EO".

I'm almost there, I can smell the finish line. Thanks again.

-dc