- 15 Jan 2017 às 23:45
#18987
Olá, à todos Boa Noite.
Estive trabalhando em um simples código para verificar se um número nomeado referencia foi cadastrado, explicando melhor, cada produto no código recebe um número de referência, e após isso, o produto deve passar por uma entrada em estoque para tornar-se disponível para venda.
O que está acontecendo é que ao informar um código válido ou inválido, o Formulário autoriza o prosseguimento para a entrada do produto no estoque, e depois grava a entrada na referência correspondente errada.
Ao Depurar o código, funciona corretamente, o que achei muito estranho.
Segue o código que grava a referência e a linha correspondente desta referência em uma planilha auxiliar:
_______________________
Sub lista_referencia_click()
Worksheets("Banco_produtos").Select
con = Worksheets("Banco_produtos").UsedRange.Rows.Count
For opp = 0 To con
If lista_referencia.ListIndex = opp Then
controle = lista_referencia
Worksheets("auxiliar_do_auxiliar_en_massiva").Select
Cells(2, 1) = controle + 1
Cells(2, 2) = controle
Exit Sub
Else
End If
Next
End Sub
__________________
aqui o código responsável por dar a entrada nos produtos, incompleto pois não consegui prosseguir devido a este erro.
_________________
Sub CommandButton2_Click()
Worksheets("auxiliar_do_auxiliar_en_massiva").Select
' li = linha do cadastro da referencia informada na entrada de produtos, antes da verificação no cadastro
li = Cells(2, 1)
' r = referencia do produto informada na entrada de produtos, nessa etapa, ela ainda não foi verificada como cadastrada no banco de produtos ou não.
r = Cells(2, 2)
Worksheets("Banco_produtos").Select
l = 2
'con = linhas usadas no banco de produtos
con = Worksheets("Banco_produtos").UsedRange.Rows.Count
For x = 0 To con
'xx = códigos cadastrados no banco_produtos listados para verificação
xx = Cells(l, 1)
'l = atribui as linhas a serem verificadas, uma a uma
l = l + 1
If xx = r Then
conver = 1
End If
Next
'conver = controle de verificação, indica se o código está ou não cadastrado em meio as referências cadastradas
If conver = 1 Then
MsgBox "OK", vbInformation
End If
If conver <> 1 Then
MsgBox "N!"
End If
End Sub
Agradeço desde já à quem puder me auxiliar!
Estive trabalhando em um simples código para verificar se um número nomeado referencia foi cadastrado, explicando melhor, cada produto no código recebe um número de referência, e após isso, o produto deve passar por uma entrada em estoque para tornar-se disponível para venda.
O que está acontecendo é que ao informar um código válido ou inválido, o Formulário autoriza o prosseguimento para a entrada do produto no estoque, e depois grava a entrada na referência correspondente errada.
Ao Depurar o código, funciona corretamente, o que achei muito estranho.
Segue o código que grava a referência e a linha correspondente desta referência em uma planilha auxiliar:
_______________________
Sub lista_referencia_click()
Worksheets("Banco_produtos").Select
con = Worksheets("Banco_produtos").UsedRange.Rows.Count
For opp = 0 To con
If lista_referencia.ListIndex = opp Then
controle = lista_referencia
Worksheets("auxiliar_do_auxiliar_en_massiva").Select
Cells(2, 1) = controle + 1
Cells(2, 2) = controle
Exit Sub
Else
End If
Next
End Sub
__________________
aqui o código responsável por dar a entrada nos produtos, incompleto pois não consegui prosseguir devido a este erro.
_________________
Sub CommandButton2_Click()
Worksheets("auxiliar_do_auxiliar_en_massiva").Select
' li = linha do cadastro da referencia informada na entrada de produtos, antes da verificação no cadastro
li = Cells(2, 1)
' r = referencia do produto informada na entrada de produtos, nessa etapa, ela ainda não foi verificada como cadastrada no banco de produtos ou não.
r = Cells(2, 2)
Worksheets("Banco_produtos").Select
l = 2
'con = linhas usadas no banco de produtos
con = Worksheets("Banco_produtos").UsedRange.Rows.Count
For x = 0 To con
'xx = códigos cadastrados no banco_produtos listados para verificação
xx = Cells(l, 1)
'l = atribui as linhas a serem verificadas, uma a uma
l = l + 1
If xx = r Then
conver = 1
End If
Next
'conver = controle de verificação, indica se o código está ou não cadastrado em meio as referências cadastradas
If conver = 1 Then
MsgBox "OK", vbInformation
End If
If conver <> 1 Then
MsgBox "N!"
End If
End Sub
Agradeço desde já à quem puder me auxiliar!
