Populate range based on match found between Userform & another range

[Lil Stinker]

I have two similar ranges on one worksheet. The first range, let's call it scnRNG ("B3:O90"), has a list of serial numbers in it. The second range, CLRcode ("AA3:AN90"), is the matching range where I would like to populate the letter "Y" in the matching cell of the serial number that is found. For example, if the serial number listed in B3 is found, AA3 should then equal "Y". It's sort of a match game but scnRNG has all the numbers and CLRcode is blank until the number in scnRNG is located.

I have a simple Userform designed already. What I would to have happen is, the user enters a serial number into the Textbox on the Userform. If the serial number matches a serial number in scnRNG, then "Y" is populated in the corresponding cell in CLRcode. The Userform has only one other criteria via an Option Button. If the Option Button is activated by the user and the Textbox number matches in scnRNG then the letter "R" should be entered into the corresponding cell in CLRcode. If there is no match, nothing happens in CLRcode.

scnRNG:

Book1.xlsm
	B	C	D	E	F	G	H	I	J	K	L	M	N	O
2	SERIAL NUMBERS
3	011	4016	4264	4476	4716	4945	5106	5318	5537	5727	5943	6407	6548	6721
4	016	4017	4275	4480	4717	4948	5107	5320	5540	5731	5945	6408	6553	6722
5	017	4018	4279	4482	4718	4949	5109	5328	5542	5732	5947	6409	6554	6724
Sheet1

Then for every matching number entered from the userform, CLRrng would look something like this:

Book1.xlsm
	AA	AB	AC	AD	AE	AF	AG	AH	AI	AJ	AK	AL	AM	AN
2	Serial Codes
3	Y	R	G	G	G	Y	Y	Y	R	R	G	G	Y	Y
4	RD	y			R		Y	Y			Y	R
Sheet1

The Userform is just one Textbox with an Enter button and an Option Button. It works just like a search box, the user enters a number, hits Enter, enters another number, hits Enter, etc, etc.

 

[DanteAmor]

Try this:

Private Sub CommandButton1_Click()
  Dim f As Range
  
  If TextBox1.Value = "" Then Exit Sub
  Set f = Range("B3:O90").Find(TextBox1.Text, , xlValues, xlWhole, , , False)
  If Not f Is Nothing Then Cells(f.Row, f.Column + 25).Value = IIf(OptionButton1, "R", "Y")
End Sub

 

[Lil Stinker]

Thank you, Dante. Simple and elegant, works great!