Estou com uma dúvida referente ao procedimento com o ListBox em VBA for Excel.
Gostaria de saber como eu faço para que a cada consulta de um cliente nos botões próximo e anterior o List Box seja limpo e carregue as informações do proximo cliente.
Quando faço a consulta não está limpando e nem carregando as informações do próximo cliente.
No momento minha programavel é a seguinte:
'Botão Próximo de Fornecedor
Private Sub SpinButton2_SpinUp() 'fornecedor
xLinha1 = xLinha1 + 1 'Aumenta 1 linha
If Cells(xLinha1, 3).Value = xfor Then
Else
MsgBox "Último Fornecedor =" & xfor
'rotina para saber os numeros do serial number
xColuna = 10
xSerialN = Cells(2, xColuna).Value
LBSE.Clear
Do While xSerialN <> ""
LBSE.AddItem Cells(2, xColuna).Value
xColuna = xColuna + 2
xSerialN = Cells(2, xColuna).Value
Loop
'rotina para saber os numeros do part number
xColuna = 11
xPartN = Cells(2, xColuna).Value
LBPA.Clear
Do While xPartN <> ""
LBPA.AddItem Cells(2, xColuna).Value
xColuna = xColuna + 2
xPartN = Cells(2, xColuna).Value
Loop
'rotina para saber os numeros do serial number
xColuna = 12
xSerialN = Cells(2, xColuna).Value
LBSE1.Clear
Do While xSerialN <> ""
LBSE1.AddItem Cells(2, xColuna).Value
xColuna = xColuna +2
xSerialN = Cells(2, xColuna).Value
Loop
'rotina para saber os numeros do part number
xColuna = 13
xPartN = Cells(2, xColuna).Value
LBPA1.Clear
Do While xPartN <> ""
LBPA1.AddItem Cells(2, xColuna).Value
xColuna = xColuna +2
xPartN = Cells(2, xColuna).Value
Loop
mostra1
End If
End Sub
'ROTINA DO BOTÃO ANTERIOR FORNECEDOR
Private Sub SpinButton2_SpinDown() 'fornecedor
xLinha1 = xLinha1 - 1 'Decrementa 1 linha
If xLinha1 < 2 Then ' se a linha for menor que 2 (1ª linha de dados)
MsgBox "Inicio de Arquivo"
xLinha1 = 2
'rotina para saber os numeros do serial number
xColuna = 10
xSerialN = Cells(2, xColuna).Value
LBSE.Clear
Do While xSerialN <> ""
LBSE.AddItem Cells(2, xColuna).Value
xColuna = xColuna + 1
xSerialN = Cells(2, xColuna).Value
Loop
'rotina para saber os numeros do part number
xColuna = 11
xPartN = Cells(2, xColuna).Value
LBPA.Clear
Do While xPartN <> ""
LBPA.AddItem Cells(2, xColuna).Value
xColuna = xColuna + 1
xPartN = Cells(2, xColuna).Value
Loop
'rotina para saber os numeros do serial number
xColuna = 12
xSerialN = Cells(2, xColuna).Value
LBSE1.Clear
Do While xSerialN <> ""
LBSE1.AddItem Cells(2, xColuna).Value
xColuna = xColuna + 1
xSerialN = Cells(2, xColuna).Value
Loop
'rotina para saber os numeros do part number
xColuna = 13
xPartN = Cells(2, xColuna).Value
LBPA1.Clear
Do While xPartN <> ""
LBPA1.AddItem Cells(2, xColuna).Value
xColuna = xColuna + 2
xPartN = Cells(2, xColuna).Value
Loop
mostra1
Exit Sub
End If
End Sub
Gostaria da ajuda de vocês
Obrigada
