O que está errado em meu código?

[Calvin Sena]

Apresenta: Erro em tempo de execução '424': O objeto é obrigatorio

 

Private Sub CommandButton1_Click()
Call atualiza_caixa_listagem_estoque
End Sub



Private Sub UserForm_Initialize()

Call atualiza_caixa_listagem_estoque


End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Application.WindowState = xlMaximized

Application.DisplayFullScreen = False
ActiveWindow.DisplayGridlines = True
ActiveWindow.DisplayHeadings = True
ActiveWindow.DisplayWorkbookTabs = True
Application.DisplayFormulaBar = True

Application.ScreenUpdating = True
 


End Sub

Sub atualiza_caixa_listagem_estoque()

Sheets("sistema").Cells.Clear
Sheets("PESQUISA_GUIA_MEDICO_-_PE").Range("A:F").Copy Sheets("sistema").Range("A1")
Sheets("sistema").Range("A1").Value = "Procedimento"
Sheets("sistema").Range("B1").Value = "TUSS"
Sheets("sistema").Range("C1").Value = "AMB"
Sheets("sistema").Range("D1").Value = "CBHPM"
Sheets("sistema").Range("E1").Value = "CNPJ"
Sheets("sistema").Range("F1").Value = "Prestador"


If caixa_buscar_prod1.Value <> "" Then

    Sheets("sistema").UsedRange.AutoFilter 1, "*" & caixa_buscar_prod1 & "*"
    
End If

If caixa_buscar_prod2.Value <> "" Then

    Sheets("sistema").UsedRange.AutoFilter 1, "*" & caixa_buscar_prod2 & "*"
    
End If

If caixa_buscar_prod3.Value <> "" Then

    Sheets("sistema").UsedRange.AutoFilter 1, "*" & caixa_buscar_prod3 & "*"
    
End If

If caixa_buscar_prod.Value4 <> "" Then

    Sheets("sistema").UsedRange.AutoFilter 1, "*" & caixa_buscar_prod4 & "*"
    
End If

If caixa_buscar_prod.Value5 <> "" Then

    Sheets("sistema").UsedRange.AutoFilter 1, "*" & caixa_buscar_prod5 & "*"
    
End If

If caixa_buscar_prod.Value6 <> "" Then

    Sheets("sistema").UsedRange.AutoFilter 1, "*" & caixa_buscar_prod6 & "*"
    
End If



linha = Sheets("sistema").Range("A100000").End(xlUp).Row

If linha = 1 Then linha = 2

sistema.caixa_listagem_estoque.ColumnCount = 5
sistema.caixa_listagem_estoque.ColumnHeads = True
sistema.caixa_listagem_estoque.ColumnWidths = "250;50;50;50;150;150"
sistema.caixa_listagem_estoque.RowSource = "sistema!A2:F" & linha


End Sub

Private Sub caixa_listagem_estoque_Click()

caixa_buscar_prod2.Value = caixa_listagem_estoque.List(caixa_listagem_estoque.ListIndex, 1)
caixa_buscar_prod3.Value = caixa_listagem_estoque.List(caixa_listagem_estoque.ListIndex, 2)
caixa_buscar_prod1.Value = caixa_listagem_estoque.List(caixa_listagem_estoque.ListIndex, 0)
caixa_buscar_prod4.Value = caixa_listagem_estoque.List(caixa_listagem_estoque.ListIndex, 3)

End Sub

 

 

[Frank K Hosaka]

Usei o recurso da execução linha por linha com a tecla F8, e, no meu caso, eu tive problema nessa linha:

If caixa_buscar_prod2.Value <> "" Then

Fui verificar o formulário e eu vi que não criei a caixa caixa_buscar_prod2, e assim surgiu a mensagem O objeto é obrigatório.