Добрый день.
Подскажите, пож-та, что не так с кодом.
Ниже представлен кусок кода. В 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 |
