Find value in One Column and Populate Different value in Another column

[msvoboda27]

[TABLE="class: outer_border, width: 250, align: left"]
<tbody>[TR]
[TD]x[/TD]
[TD]A[/TD]
[TD]B[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]Col 1 Value[/TD]
[TD]Col 2[/TD]
[TD]Find and replace the value[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]FE7478PDF[/TD]
[TD]4[/TD]
[TD]if cell A2 FE7478PDF replace with value 700[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]FE7477PD[/TD]
[TD]4[/TD]
[TD][TABLE="class: outer_border, width: 250, align: left"]
<tbody>[TR]
[TD]if cell A3 FE7477PDF replace with value 710[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
[TR]
[TD]4[/TD]
[TD]FE744PDF[/TD]
[TD]4[/TD]
[TD]if cell A4 FE744PDF replace with value 915[/TD]
[/TR]
</tbody>[/TABLE]













I am trying to do a search and replace with one value and populate in a different cell. I also like to make this a macro if possible.
Thank you.
Michael
Unsure how to attach excel doc

 

[BAlGaInTl]

What do you want the results of your example to be?

 

[mrshl9898]

Hi, try this:

Sub loop_through_all_worksheets()


Dim ws As Worksheet
Dim idcount As Long


Set ws = ActiveSheet


    For i = 2 To ws.Columns(1).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    
    Select Case Cells(i, 1).Value
        Case "FE7478PDF"
        Cells(i, 3).Value = "700"
        Case "FE7477PD"
        Cells(i, 3).Value = "710"
        Case "FE744PDF"
        Cells(i, 3).Value = "915"
    End Select
    Next i


End Sub

 

[msvoboda27]

Hi
I like to do a search and replace in Excel formula but the replaced cell in a adjacent cell.
Col A. Col B
567899. Value 4

If cell contents 567899 then overwrite contents from value 4 to new value, say 700.
Does that help, thanks for response