Find and Replace VBA code

[adrianux]

Hello experts. I am learning VBA and I will like to make a function in VBA that will search in the column A a number from the column C and when it will be found, replace it with the number from the column B and then step to the next number in the column C until we get to the end of the column C.
Thanks you.

Here you have the example:
http://i59.tinypic.com/2daiqmo.jpg

 

[Rick Rothstein]

Does this macro do what you want...

Sub FindAndReplace()
  Dim N As Double
  For N = 1 To Cells(Rows.Count, "C").End(xlUp).Row
    Columns("A").Replace Cells(N, "C").Value, Cells(N, "B").Value, xlWhole
  Next
End Sub

 

[adrianux]

Yes it does. How simple...right? Thanks you.

 

[adrianux]

Actually this little script does not works verry well. If I have in the column A the text " AAAASSSDD1234" and in the column B the text "12345" and the search text in the column C is "1234" it replaces all the column A with the new value from the column B, so it will delete the text "AAAASSSDD".
I need to replace with the new value but keeping the rest of the text in the column A.

 

[Rick Rothstein]

Actually this little script does not works verry well. If I have in the column A the text " AAAASSSDD1234" and in the column B the text "12345" and the search text in the column C is "1234" it replaces all the column A with the new value from the column B, so it will delete the text "AAAASSSDD".
I need to replace with the new value but keeping the rest of the text in the column A.

Does this do what you want (I made a minor tweak to my previous code)...

Sub FindAndReplace()
  Dim N As Double
  For N = 1 To Cells(Rows.Count, "C").End(xlUp).Row
    Columns("A").Replace Cells(N, "C").Value, Cells(N, "B").Value, xlPart
  Next
End Sub

 

[adrianux]

No. I does strange things.

 

[Rick Rothstein]

No. I does strange things.

Are you hoping I will be able to guess what those "strange things" are?