Find partial string and then paste whole cell contents as an offset to another 'searched for' string

[jblonde002]

I know that's title gore and I am sorry - that was my best effort!

I need some VBA to help search for the word "Qualification" which will always be found ONCE in column A.
Once found I need to copy the whole cell contents and paste it to the left of cell that contains the string "Name" (which will always be found in column B). So far I have managed the below:

    Dim myRange As Range    Dim myCell As Range
    Set myRange = Range("A1:A100")
    For Each myCell In myRange
    If myCell Like "*Qualification*" Then
    myCell.Copy

The code I have above gets me as far as locating and copying the Qualification string from column A, but I can't work out how to then paste this it one cell to the left of the cell that contains the word "Name" in column B. Sorry for poor explanation, hopefully someone can still help!

 

[mumps]

Try:

Sub CopyCell()
    Dim qual As Range, name As Range
    Set qual = Range("A:A").Find("Qualification", LookIn:=xlValues, lookat:=xlPart)
    Set name = Range("B:B").Find("Name", LookIn:=xlValues, lookat:=xlWhole)
    name.Offset(0, -1) = qual
End Sub

 

[jblonde002]

That's hilarious, you managed to make my half completed effort, finish it to make it work and make it shorter

Thanks so much - it works perfectly and I am very grateful!

 

[mumps]

You are very welcome.