Find a value and paste an offset value

[chris9104]

I'm wanting to write code for a command button to search for a specific value within a range "Names" and then paste another value "Yes" in a column offset from the name, please can someone help.

ie
Search for "Joe Bloggs"

Find "Joe Bloggs" in sheet 1 cell A1, paste "yes" in cell A2.

 

[onlyadrafter]

Hello,

does this work as expected?

Sub SEARCH_AND_PASTE()
    MY_FIND = InputBox("Enter string to search for", "DATA ENTRY")
    For Each MY_CELL In Range("NAMES")
        If MY_CELL = MY_FIND Then
            MY_CELL.Offset(0, 1).Value = "YES"
        End If
    Next MY_CELL
End Sub

 

[Boller]

I'm wanting to write code for a command button to search for a specific value within a range "Names" and then paste another value "Yes" in a column offset from the name, please can someone help.

ie
Search for "Joe Bloggs"

Find "Joe Bloggs" in sheet 1 cell A1, paste "yes" in cell A2.

"yes" in cell A2 ?

 

[onlyadrafter]

Hello,

good spot boller

Sub SEARCH_AND_PASTE()
    MY_FIND = InputBox("Enter string to search for", "DATA ENTRY")
    For Each MY_CELL In Range("NAMES")
        If MY_CELL = MY_FIND Then
            MY_CELL.Offset(1,0).Value = "YES"
        End If
    Next MY_CELL
End Sub

must learn to read posts better - again!

 

[chris9104]

Perfect, thank you