How to search on worksheet by VBA Code?

Question

I have a worksheet with 2 columns \"Key\" and \"Value\". by VBA code, i want search Input_key on Key columns, if not exist, I will add new row [input-key]-[input-value]. How

Answer 1

You can use following simple code with InStr command.

Private Sub CommandButton1_Click()
Dim RowNum As Long

RowNum = 1


Do Until Sheets("Data").Cells(RowNum, 1).Value = ""

If InStr(1, Sheets("Data").Cells(RowNum, 2).Value, TextBox1.Value, vbTextCompare) > 0 Then
On erro GoTo next1
ListBox1.AddItem Sheets("Data").Cells(RowNum, 1).Value
ListBox1.List(ListBox1.ListCount - 1, 1) = Sheets("Data").Cells(RowNum, 2).Value
End If
next1:
RowNum = RowNum + 1
Loop
End Sub

you can read more and download file