У меня появляется ошибка, которую он говорит, что не совпадают типы

Ошибка Справедливая в комментарии, который говорит ПОИСКИ ПО ИМЕНИ ДИРЕКТОРА. Я боюсь, что он будет производить того же самого для всего кода, так как все было скопировано и прикреплено многообразные разы; я знаю, что возможно оптимизировать больших форм, но мой интерес в этом моменте состоит в том, чтобы снимать ошибку. Я им благодарен много.

Private Sub Buscar_Click()
Application.ScreenUpdating = False

items = Range("A2:L400").CurrentRegion.Rows.Count

For i = 1 To items

    'BUSQUEDA POR NOMBRE DEL DIRECTOR
    ElseIf LCase(Cells(i, 7).Value) Like "*" & LCase(Me.Palabra_Text.Value) & "*" Then
    Me.Lista_Cd.AddItem Cells(i, 1)
    Me.Lista_Cd.List(Me.Lista_Cd.ListCount - 1, 1) = Cells(i, 2)
    Me.Lista_Cd.List(Me.Lista_Cd.ListCount - 1, 2) = Cells(i, 3)
    Me.Lista_Cd.List(Me.Lista_Cd.ListCount - 1, 3) = Cells(i, 4)
    Me.Lista_Cd.List(Me.Lista_Cd.ListCount - 1, 4) = Cells(i, 5)
    Me.Lista_Cd.List(Me.Lista_Cd.ListCount - 1, 5) = Cells(i, 6)
    Me.Lista_Cd.List(Me.Lista_Cd.ListCount - 1, 6) = Cells(i, 7)

   'Busqueda por año
    ElseIf LCase(Cells(i, 11).Value) Like "*" & LCase(Me.Palabra_Text.Value) & "*" Then
    Me.Lista_Cd.AddItem Cells(i, 1)
    Me.Lista_Cd.List(Me.Lista_Cd.ListCount - 1, 1) = Cells(i, 2)
    Me.Lista_Cd.List(Me.Lista_Cd.ListCount - 1, 2) = Cells(i, 3)
    Me.Lista_Cd.List(Me.Lista_Cd.ListCount - 1, 3) = Cells(i, 4)
    Me.Lista_Cd.List(Me.Lista_Cd.ListCount - 1, 4) = Cells(i, 5)
    Me.Lista_Cd.List(Me.Lista_Cd.ListCount - 1, 5) = Cells(i, 6)
    Me.Lista_Cd.List(Me.Lista_Cd.ListCount - 1, 6) = Cells(i, 7)


    End If

    Next i
    Me.Palabra_Text.SetFocus
    Me.Palabra_Text.SelStart = 0
    Me.Palabra_Text.SelLength = Len(Me.Palabra_Text.Text)

    Exit Sub



Application.ScreenUpdating = True

End Sub
1
задан 22.07.2019, 07:15
1 ответ

Попытайся менять

ElseIf LCase(Cells(i, 7).Value) Like "*" & LCase(Me.Palabra_Text.Value) & "*" Then

На

If LCase(Cells(i, 7).Value) Like "*" & LCase(Me.Palabra_Text.Value) & "*" Then
0
ответ дан 01.12.2019, 23:19