Добрый день.
Подскажите, пож-та, что не так с кодом.
Ниже представлен кусок кода. В Textbox вводим значение которое необходимо найти в столбце F. И ищем
Если значение не найдено, необходимо выводить сообщение об ошибке.
Однако если значение не найдено вываливается ошибка 91 на строку "Log_F = oRange.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activat"
Подскажите, пож-та, что не так с кодом.
Ниже представлен кусок кода. В Textbox вводим значение которое необходимо найти в столбце F. И ищем
Если значение не найдено, необходимо выводить сообщение об ошибке.
Однако если значение не найдено вываливается ошибка 91 на строку "Log_F = oRange.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activat"
Код |
---|
Private Sub CommandButton1_Click() Dim vRow As Long, vCol As Long Dim RowData As Long, ColData As Long Dim tmpNum As String Dim firstValue As Variant, find_kod As Variant Dim n_row As String Dim i As Long Dim BarCod As String Dim Row_F As Variant Dim oRange As Range Dim Log_F As String Dim Row_K As Variant Dim lRange As Range Dim Log_K As String If TextBox1.Text <> "" Then BarCod = TextBox1.Text Else VBA.MsgBox ("Ââåäèòå áàðêîä") Exit Sub End If If TextBox1.Text <> "" Then Set oRange = Workbooks("base.xlsm").Sheets("îáùèé ñïèñîê").Range("F:F") oRange.Select Row_F = "" Log_F = oRange.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate If Log_F = True Then Row_F = oRange.Find(What:=TextBox1.Text, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row Else If TextBox1.Text <> "" Then VBA.MsgBox ("Øòðèõ-êîä íå íàéäåí!" & VBA.Chr(13) & "ÎÁÍÎÂÈÒÅ ÒÀÁËÈÖÓ!") Exit Sub End If |