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)
