Здравствуйте, подскажите пожалуйста как изменить данный код так, чтоб можно было нажимать не только кнопку ПОИСК на форме , но так же можно было и на клавиатуре нажать на Энтер, чтоб осуществлялся поиск, и самоочищался вводимый текст , для следующего ввода поиска,т.к сейчас получается, что когда нужно ввести следующий поиск, то остается предыдущие значение.
вот и я имею в виду то, что вы написали, а не то что вы хотели. Нажимать можно, вам же нужно чтоб что-то по этому нажатию происходило - так? Ну так это и должно быть написано.
_Igor_61, Игорь, неужто хочется название темы придумывать, тем более что хоть и применимо для второй части, но не совсем про то ответили. ENTER то ENTER не ищет:-)
Private Sub CommandButton1_Click()
Dim q As String, st
On Error GoTo ggg
q = TextBox1.Value
Columns("A:F").Find(What:=q, LookIn:=xlValues, LookAt:=xlWhole).Activate
Me.Hide
Exit Sub
ggg:
MsgBox "Òàêàÿ çàïèñü îòñóòñòâóåò", vbCritical
Err.Clear
With TextBox1
.Value = ""
.SetFocus
End With
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub
Private Sub UserForm_Activate()
CommandButton1.Default = True
With TextBox1
.Value = ""
.SetFocus
End With
End Sub
DKe написал: если я ввожу г.Смоленск,2013 он тоже выдавал
а как это с текущей темой связано? Но что б еще на пол дня не разводить , то в ячейках "г.Смоленск,2013 " а поиск LookAt:=xlWhole. "г.Смоленск,2013" и не ищет.
БМВ написал: а как это с текущей темой связано? Но что б еще на пол дня не разводить , то в ячейках "г.Смоленск,2013 " а поиск LookAt:=xlWhole. "г.Смоленск,2013" и не ищет.
ну это получается что в столбце, а что значит : а поиск LookAt:=xlWhole. "г.Смоленск,2013" и не ищет.
БМВ, уже придумал Тема: "Запуск макроса при нажатии "ENTER" DKe, у меня в Вашем файле-примере все работает: А чтобы Пензу находил - уберите пробел после всех слов в ячейке
DKe, в следующий раз создавайте темы так, чтобы в них было по одному вопросу, а не три как в этой. Попадет и Вам и помогающим за нарушение правил форума. Удачи
_Igor_61 написал: в следующий раз создавайте темы так, чтобы в них было по одному вопросу, а не три как в этой. Попадет и Вам и помогающим за нарушение правил форума. Удачи