Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Editar Dados via Fo...
 
Notifications
Clear all

Editar Dados via Formulário

 
2024 - VBA & Macros
Post Recente por klarc28 6 anos atrás
2 Posts
2 Usuários
0 Reactions
1,001 Visualizações
RSS
 Odirlei
(@odirlei)
Posts: 1
New Member
Topic starter
 

Boa tarde a todos.
Estou tentando aprender mais sobre o VBA no Excel, e pesquisei, assisti vídeos e encontrei esse fórum com muitas informações e dicas, porém gostaria de uma ajuda de vocês se possível.

Criei um cadastro de produtos, consegui fazer através de uma form, as inclusões, pesquisas e exclusões. Mas não consigo de jeito nenhum fazer o botão editar, salvar as informações editadas... :oops: :oops:

Como não tenho muito conhecimento em programação, gostaria que me ajudassem com isso. Gostaria, se possível é claro, de habilitar os dados para edição com o botão editar e salvar esses dados com o botão salvar.

E se quiserem sugerir alguma outra informação também, fiquem a vontade.

Agradeço desde já
Odirlei José Canhoni

 
Postado : 23/07/2018 11:12 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
Private Sub cmdSalvar_Click()
ThisWorkbook.Worksheets("CPRODUTOS").Activate 'Ativa a planilha
Dim linha As Long
For linha = 8 To Worksheets("CPRODUTOS").UsedRange.Rows.Count

If Worksheets("CPRODUTOS").Range("A" & linha).Value = Me.txtCodigo.Text Then
Worksheets("CPRODUTOS").Range("A" & linha).Activate
Exit For
End If

Next linha
''Ativar a Planilha
'
'Range("A8").Select 'Aponta para a linha que iremos iniciar
'
'    Do
'    If Not (IsEmpty(ActiveCell)) Then
'    ActiveCell.Offset(1, 0).Select
'    End If
'    Loop Until IsEmpty(ActiveCell) = True

            'Carregar os dados digitados nas caixas de texto para a planilha
            ActiveCell.Value = txtCodigo.Value 'Refere-se ao campo código do Produto
            ActiveCell.Offset(0, 1).Value = txtProduto.Value 'Refere-se ao campo Produto
            ActiveCell.Offset(0, 2).Value = cboUnd.Value 'Refere-se ao Combo Unid
            ActiveCell.Offset(0, 3).Value = txtPeso.Value 'Refere-se ao Gramatura
            ActiveCell.Offset(0, 4).Value = txtMarca.Value 'Refere-se ao campo Marca
            ActiveCell.Offset(0, 5).Value = CDbl(txtPreco.Value) 'Refere-se ao campo Marca
            ActiveCell.Offset(0, 6).Value = txtObserva.Value 'Refere-se ao campo Obs
            ActiveCell.Offset(0, 7).Value = txtVendedor.Value 'Refere-se ao campo Vendedor
            
            'limpar as caixas de texto
            Call limparCampos
            
End Sub
 
Postado : 23/07/2018 1:20 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico