- 19 Ago 2016 às 09:25
#14117
Bom dia, a todos!
Minha dúvida, acredito que pode ser de muitos outros iniciantes no vba,
não criei ainda o formulário, mas já gostaria de tirar a duvida de como fazer...
Tenho a (plan1=Pedidos), (plan2=banco de dados), (plan3= cadastro de Produtos),
Gostaria de poder colocar o seguinte código no botão salvar, que quando o codigo do produto for existente em alguma dessa planilhas ela altere o valor quantidade, e se não existir ela cadastre ao mesmo tempo
Sei fazer este código que esta a baixo para cadastrar e alterar, mas o problema é que quando coloco o mesmo para inserir em outra plan ele não funciona, ele funciona o código que vem primeiro, no topo da private sub..
Plan3.Select
Range("A2").Select
Set Plan = Worksheets("Cadastroproduto")
Range("A2").Select
While ActiveCell <> ""
If txtPDcodcliente.Text = ActiveCell Then
If MsgBox("CÓDIGO DE produto JÁ EXISTE, DESEJA ALTERAR ALGUM DADOS?", vbYesNo) = vbYes Then
Lin = ActiveCell.Row
Plan.Cells(Lin, 1).Value = txtPDcodProduto.Value
MsgBox "ALTERAÇÃO EFETUADA COM SUCESSO!", , "[ i ] Control Sheet"
Exit Sub
End If
End If
ActiveCell.Offset(1, 0).Activate
Wend
Então reforço minha pergunta como fazer para usar o mesmo critério de verificação e cadastrar ao mesmo tempo em todas as plan's necessárias????
Atenciosamente,
Minha dúvida, acredito que pode ser de muitos outros iniciantes no vba,
não criei ainda o formulário, mas já gostaria de tirar a duvida de como fazer...
Tenho a (plan1=Pedidos), (plan2=banco de dados), (plan3= cadastro de Produtos),
Gostaria de poder colocar o seguinte código no botão salvar, que quando o codigo do produto for existente em alguma dessa planilhas ela altere o valor quantidade, e se não existir ela cadastre ao mesmo tempo
Sei fazer este código que esta a baixo para cadastrar e alterar, mas o problema é que quando coloco o mesmo para inserir em outra plan ele não funciona, ele funciona o código que vem primeiro, no topo da private sub..
Plan3.Select
Range("A2").Select
Set Plan = Worksheets("Cadastroproduto")
Range("A2").Select
While ActiveCell <> ""
If txtPDcodcliente.Text = ActiveCell Then
If MsgBox("CÓDIGO DE produto JÁ EXISTE, DESEJA ALTERAR ALGUM DADOS?", vbYesNo) = vbYes Then
Lin = ActiveCell.Row
Plan.Cells(Lin, 1).Value = txtPDcodProduto.Value
MsgBox "ALTERAÇÃO EFETUADA COM SUCESSO!", , "[ i ] Control Sheet"
Exit Sub
End If
End If
ActiveCell.Offset(1, 0).Activate
Wend
Então reforço minha pergunta como fazer para usar o mesmo critério de verificação e cadastrar ao mesmo tempo em todas as plan's necessárias????
Atenciosamente,
