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)