Private Sub CommandButton1_Click()
Dim col As Long
Dim row As Long
Dim strFndCr As String
 strFndCr = TextBox1.Text ' кретерий поиска
   col = ComboBox1.Text ' поск по выбранной колонке
   row = Workbooks( 1 ).ActiveSheet.Cells.SpecialCells( 11 ).row ' мак введ. кол.строк
       For j =  1  To row
            If strFndCr = Workbooks( 1 ).ActiveSheet.Cells(j, col).Value Then ' условие поиска
                ListBox1.AddItem Workbooks( 1 ).ActiveSheet.Cells(j, col).Value ' ввод данных найденных значений                Workbooks(1).ActiveSheet.Cells(j, col).Select активизация ячейки            Else
            End If
       Next j
End Sub



Private Sub UserForm_Initialize()
'ввод данных номеров колонок
ComboBox1.AddItem "1" ' номер колонки
ComboBox1.AddItem "2"
ComboBox1.AddItem "3"
End Sub