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
