Detalhes de Excel planilha usf textbox insere dados autonumeracao

PropriedadeValor
Nome:Excel planilha usf textbox insere dados autonumeracao
Descricao:

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 Crsito 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.

Nome do arquivo:Excel planilha usf textbox insere dados autonumeracao.zip
Tamanho: Vazio
Tipo:zip (Tipo de Mime: application/zip)
Autor:Escola Saberexcel VBA Estudos®
Criado em: 27/10/2011 19:45
Visitas:Todos
Responsavel:Autor
Acessos:1716 Acessos
Atualizado em: 27/10/2011 19:46
Site: