Excel planilha vba usf cadastro simples

Saberexcel - O site de quem precisa aprender Macros Microsoft Excel VBA.

Esses procedimentos do Aplicativo Microsoft Excel VBA, cadastra dados em determinada folha de Planilha, por meio de objetos textboxes.
' - - - - - - - - - - - - - - - -
Private Sub cmdLANCAMENTO_Click()
Dim vPALAVRA As Long

vPALAVRA = Plan1.Range("A65536").End(xlUp).Row + 1 'localiza a última linha +1 (célula vazia)
           'poderá criar um verifica inconsistência para todos os ítens abaixo.
           If txtNOME = "" Then
              MsgBox ("Preencha os dados corretamente")
              Exit Sub
           End If

           'observe a simplicidade do código, localiza as ultimas linha/colunas e grava dados
           'Plan1 - é o nome da folha de código da folha de planilha, se o usuário mudar o nome da folha de planilha na aba,
           'não ocorrerá erro, porque referenciamos o nome da folha de código da folha de planilha.

           Plan1.Range("a" & vPALAVRA).Value = Me.txtNOME.Text
           Plan1.Range("b" & vPALAVRA).Value = Me.txtENDERECO.Text
           Plan1.Range("c" & vPALAVRA).Value = Me.txtBAIRRO.Text
           Plan1.Range("d" & vPALAVRA).Value = Me.txtCIDADE.Text
           Plan1.Range("e" & vPALAVRA).Value = Me.cboESTADO.Text
           Plan1.Range("f" & vPALAVRA).Value = Me.txtCEP.Text
           Plan1.Range("g" & vPALAVRA).Value = Me.txtTELEFONE.Text
           Plan1.Range("h" & vPALAVRA).Value = Me.txtOBSERVACAO.Text

           MsgBox ("Dados inseridos com sucesso"),vbInformation, "http://www.microsoftexcel.com.br"
            lblCONTADOR.Caption = vPALAVRA 'mostrando o próximo codigo cliente, cada gravação

            'limpando as TextBox depois de ter gravado os dados na folha de planilha
            Me.txtNOME.Value = ""
            Me.txtENDERECO.Value = ""
            Me.txtBAIRRO.Value = ""
            Me.txtCIDADE.Value = ""
            Me.txtCIDADE.Value = ""
            Me.cboESTADO.Value = ""
            Me.txtCEP.Value = ""
            Me.txtTELEFONE.Value = ""
            Me.txtOBSERVACAO.Value = ""
            Me.txtNOME.SetFocus 'retornando o cursor para o TextBox (txtNOME)
End Sub
' - - - - - - - - - - - - - - - -
'carregar a combobox com os estados ao inicializar, isto é ao abrir o formulário.
Private Sub UserForm_Initialize()
vPALAVRA = Plan1.Range("A65536").End(xlUp).Row + 1 ' numerar o proximo cadastro
lblCONTADOR.Caption = vPALAVRA
    cboESTADO.List = Array("AC", "AL", "AP", "AM", "BA", "CE", "DF", "GO", "MA", "MG", "MT", _
    "MS", "PA", "PB", "PR", "PE", "PI", "RJ", "RS", "RN", "RD", "SC", "SP", "SE", "TO")
End Sub
' - - - - - - - - - - - - - - - -

'fechar o formulário na conclusão das tarefas
Private Sub cmbSAIR_Click()
Unload Me
End Sub
' - - - - - - - - - - - - - - - -
'esse procedimento determina a localização de abertura do formulário na folha de planilha
Private Sub UserForm_Activate()
      With frmCADASTRO
            .Top = Application.Top + 149
            .Left = Application.Left + 30
      End With
End Sub
' - - - - - - - - - - - - - - - -
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.

Baixe o exemplo de planilha contendo os procedimentos acima:
Excel planiha vba usf cadastro simples (111.5 KB)

Tags: