INDEX/MATCH style VBA code

[albatross32]

I need an INDEX/MATCH style VBA code. I am very novice at VBA so will gave basic details of my requirement in layman’s terms.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
I am working with a range Sheet2!Q3:R232
<o> </o>
In Column Q, one cell will = 1 and all other cells will = 0
<o> </o>
The entry of 1 into a column Q cell triggers a macro in Sheet1. I then need to confirm the macro trigger by inserting a 1 in column R in the same row.
<o> </o>
I therefore need code to tag on to the end of my Sheet1 macro which will basically say ‘find “1” in column Sheet2!Q and put “1” in the same row in column Sheet2!R’.

 

[wigi]

Try this snippet of code:

Sub ff()
    [Sheet2!Q3:R232].Find(1).Offset(, 1).Value = 1
End Sub