Excel planilha vba usf cadastro simples

E-mail Imprimir PDF

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)

Última atualização em Qui, 10 de Novembro de 2011 08:17  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA