Sistema de Cadastro em Excel VBA

Excel 2010

(Geral)            (Declaração)

Private Sub btninserir_Click()

Dim ulinha As Long 'identifica número da ultima linha'

ulinha = Plan1.Range("a1048576").End(xlUp).Row + 1 'próximo da ultima linha'

Plan1.Cells(ulinha, 1).Value = Me.txid.Value 'coluna 1'

Plan1.Cells(ulinha, 2).Value = Me.txdata.Value

Plan1.Cells(ulinha, 3).Value = Me.txnome.Value

Plan1.Cells(ulinha, 4).Value = Me.txidade.Value

Plan1.Cells(ulinha, 5).Value = Me.cbcurso.Value

MsgBox "OPERAÇÃO REALIZADA COM SUCESSO !"

End Sub

Private Sub UserForm_Initialize()

Dim utimoid As Long 'pegar o último índice'

Me.txdata.Value = Date

ultimoid = Plan1.Range("a1048576").End(xlUp).Value

Me.txid.Value = ultimoid + 1

End Sub

CommandButtom1            Click

Private Sub CommandButton1_Click()

UserForm1.Show 'chamando o objeto'

End Sub