First of all, in your question, you didn't say clearing "what is the corresponding number". Therefore, I make some assumptions below

On an userform, you got 2 Textboxes
"TextBox1" and "TextBox2
Also, one commandbutton "CommandButton1

If value in TextBox1 does not exist in column(1) of activesheet, insert it in a new row, and put the TextBox2 value to the right of it. (I assume the text in TextBox2 is the "corresponding number you mentioned"

So, put the following code into your userform

'--------------------------------------
Private Sub CommandButton1_Click(
Dim
With ActiveSheet.Range("A1").CurrentRegion.Columns(1
Set c = .Find(TextBox1.Text, LookIn:=xlValues
If c Is Nothing The
.Cells(.Rows.Count + 1).Value = TextBox1.Tex
.Cells(.Rows.Count + 1).Offset(0, 1).Value = TextBox2.Tex
Els
c.Offset(0, 1).Value = TextBox2.Tex
End I
End Wit
End Su
'--------------------------------------

Regards
Edwin Ta



----- CG Rosén wrote: ----

Good Day

Try to figure out how to solve the following

Have a range of one column and indefinite rows. To start, this rang
is empty. The range will be filled with values (strings) due to choice
in Textbox1. The first time a selected item apperas it will be stored in th
range and its corresponding number value will be stored in the cel
to the right of the string. Next time the same item is selected I will tr
to find it in the range and only add its number value in the right column
Is the FindMethod the best way to approach this problem

Thanks for any hints

Brgd

CG Rosé