Ir para conteúdo
Fórum Script Brasil
  • 0

O que está errado em meu código?


Calvin Sena

Pergunta

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

 

 

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...