Cadastro Excel Vba – Formulário Inserir e Limpar Automaticamente

Para criar um formulário de cadastro em Excel VBA que insira e limpe automaticamente os dados, siga as etapas abaixo:

1. Crie um novo arquivo do Excel e salve-o com um nome de sua escolha.

2. Clique na guia "Desenvolvedor" na barra de ferramentas e selecione a opção "Inserir" para adicionar um botão ao formulário.

3. Clique duas vezes no botão para abrir a janela "Editor do VBA".

4. No editor do VBA, insira o seguinte código para criar a estrutura do formulário:

``` Private Sub UserForm_Initialize()'Define as propriedades do formulárioMe.Caption = "Cadastro de Clientes"Me.Height = 250Me.Width = 300

'Insere os rótulos e caixas de texto CreateLabel "Nome:", 10, 10 CreateTextBox "txNome", 60, 10 CreateLabel "Endereço:", 10, 40 CreateTextBox "txEndereco", 60, 40 CreateLabel "Telefone:", 10, 70 CreateTextBox "txTelefone", 60, 70 'Insere os botões de inserir e limpar CreateButton "Inserir", 10, 110, 50, 20 CreateButton "Limpar", 70, 110, 50, 20 

End Sub

Private Sub CreateLabel(ByVal labelText As String, ByVal Left As Integer, ByVal Top As Integer)'Cria um novo rótuloDim newLabel As MSForms.LabelSet newLabel = Me.Controls.Add("Forms.Label.1")With newLabel .Caption = labelText .Left = Left .Top = TopEnd With End Sub

Private Sub CreateTextBox(ByVal txtBoxName As String, ByVal Left As Integer, ByVal Top As Integer)'Cria uma nova caixa de textoDim newTextBox As MSForms.TextBoxSet newTextBox = Me.Controls.Add("Forms.TextBox.1", txtBoxName)With newTextBox .Left = Left .Top = Top .Width = 200End With End Sub

Private Sub CreateButton(ByVal buttonText As String, ByVal Left As Integer, ByVal Top As Integer, ByVal Width As Integer, ByVal Height As Integer)'Cria um novo botãoDim newButton As MSForms.CommandButtonSet newButton = Me.Controls.Add("Forms.CommandButton.1")With newButton .Caption = buttonText .Left = Left .Top = Top .Width = Width .Height = Height .OnAction = "btn" & buttonText & "_Click"End With End Sub ```

5. Na parte superior do editor do VBA, clique em "Inserir" e selecione "Módulo" para criar um novo módulo de código.

6. No novo módulo de código, insira o seguinte código para criar a macro de inserir dados:

``` Sub btnInserir_Click()'Insere os dados na planilhaActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Me.txNome.ValueActiveSheet.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Value = Me.txEndereco.ValueActiveSheet.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Value = Me.txTelefone.Value

'Limpa as caixas de texto Me.txNome.Value = "" Me.txEndereco.Value = "" Me.txTelefone.Value = "" 

End Sub ```

7. No mesmo módulo de código, insira o seguinte código para criar a macro de limpar dados:

Sub btnLimpar_Click()'Limpa as caixas de textoMe.txNome.Value = ""Me.txEndereco.Value = ""Me.txTelefone.Value = "" End Sub

8. Salve e feche o editor do VBA.

9. Clique no botão que você adicionou ao formulário para abrir o formulário de cadastro.

10. Insira dados nos campos do formulário e clique em "Inserir" para inserir os dados na planilha. Clique em "Limpar" para limpar os campos do formulário e inserir novos dados.

O formulário de cadastro em Excel VBA está pronto para uso. Personalize-o conforme suas necessidades e adicione mais funcionalidades, se necessário.