Home Excel - Dicas Microsoft Excel VBA Excel VBA - Autonumeracao Excel planilha usf textbox insere dados autonumeracao

Excel planilha usf textbox insere dados 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 Qui, 27 de Outubro de 2011 18:52  

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

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje318
mod_vvisit_counterOntem5154
mod_vvisit_counterEsta Semana24978
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês38707
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10461536
Aprenda MS Excel VBA

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