Home Excel - Dicas Microsoft Excel VBA Excel VBA - Userforms e outros Excel planilha usf textbox insere autonumeracao

Excel planilha usf textbox insere autonumeracao

E-mail Imprimir PDF

O site de quem precisa aprender Macros Microsoft Excel VBA

Procedimentos usados nos Objetos textboxes em um userform, insere uma autonumeração a cada interação, inserindo dados nas células na folha
de planilha, observe que a linha de código 'vCodigo = Range("A60000").End(xlUp).Offset(0, 0).Value' verifica o número de linhas usadas existentes na coluna(a) e adiciona + 1 a variável vCodigo, que representará o número atual do próximo registro.
Espero que gostem do exemplo. Fiquem todos na Paz de Cristo Nosso Senhor. Expedito Marcondes.


Private Sub CommandButton1_Click()
Dim vCodigo As Integer
' Adicionando dados na folha de Planilha
Saber1.Range("A60000").End(xlUp).Offset(1, 0).Select

'verificando se digitou dados (verifica inconsistencia)
If TextBox2.Text = "" Then
MsgBox ("deverá digitar algo na textbox1"), vbInformation, "Saberexcel- o site das macros"
Exit Sub
End If

ActiveCell.Offset(0, 0).Value = Me.TextBox1.Value
ActiveCell.Offset(0, 1).Value = Me.TextBox2.Value

'limpa a textbox após a inserção de dados
Me.TextBox2 = Empty

'usando a variável vCodigo para memorizar a autonumeração
vCodigo = Range("A60000").End(xlUp).Offset(0, 0).Value
Me.TextBox1 = vCodigo + 1
Me.TextBox2.SetFocus
End Sub

Private Sub UserForm_Activate()
Dim vCodigo
'Insere uma autonumeração na textbox1
Saber1.Select
vCodigo = Range("A60000").End(xlUp).Offset(0, 0).Value
Me.TextBox1 = vCodigo + 1
End Sub

Private Sub UserForm_Initialize()
'indicando o setfocus para textbox2
Me.TextBox2.SetFocus
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 planilha usf textbox insere dados autonumeracao (87.48 KB)

Última atualização em Qua, 09 de Novembro de 2011 16:34  

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