When cell in column contains value, select cell on the right, copy and paste in cell on right again

[RoseMurphy]

Hi there, I'm having trouble figuring this one out, I'd like to include this code in a macro that sorts some information out for me, but for the life of me can't find a code that will just select a column on the left/right without putting the exact cell name, which is not what I want.

Here's basically what I'm trying to do:

If Cell range KO contains the word "How" then copy cell to the right of that cell (KP) and paste to column KQ in the same row.
The excel sheet I will have will have hundreds of varying text, so it needs to just select the column on the right and then paste the text to the next cell on the right, I can't code it to know the cell it will go into which is where I'm lost.

I've added a photo to make this more clear, as I'm not sure if I've explained this very well, most appreciated in advance anyone that can help me out!

(I did post this to another Excel forum, but it seems everyone received a response to their thread but me & I really need help with this, so hopefully this place is more friendly! Thank you in advance)

Posted here When cell in column contains value, then copy cell on right and paste in another column

 

[Fluff]

How about

Sub RoseMurphy()
   With Range("KO2", Range("KO" & Rows.Count).End(xlUp))
      .Offset(, 2).Value = Evaluate(Replace("If(isnumber(search(""how""," & .Address & "))," & .Offset(, 1).Address & ",If(@="""","""",@))", "@", .Offset(, 2).Address))
   End With
End Sub

 

[RoseMurphy]

How about

Sub RoseMurphy()
   With Range("KO2", Range("KO" & Rows.Count).End(xlUp))
      .Offset(, 2).Value = Evaluate(Replace("If(isnumber(search(""how""," & .Address & "))," & .Offset(, 1).Address & ",If(@="""","""",@))", "@", .Offset(, 2).Address))
   End With
End Sub

Unfortunately this one didn't work for me as it takes data from my other cells and replaces them all with the number 1, I've attached some photos to show what's happening

Photo 11 shows the document before I use your code
Photo 12 shows what happens after I use your code
Photo 13 is the result I'm trying to get

 

[Fluff]

Can you post some sample data.

MrExcel has a tool called “XL2BB” that lets you post samples of your data that will allow us to copy/paste it to our Excel spreadsheets, so we can work with the same copy of data that you are. Instructions on using this tool can be found here: XL2BB Add-in

Note that there is also a "Test Here” forum on this board. This is a place where you can test using this tool (or any other posting techniques that you want to test) before trying to use those tools in your actual posts.