INGLES

Private Sub CMBACEPTAR_Click()

Dim APELLIDOS As String

Dim NOMBRES   As String

Dim NOTAS1    As Double

Dim NOTAS2    As Double

Dim ULTIMAFILA As Double

APELLIDOS = TXTAPELLIDOS.Value

NOMBRES = TXTNOMBRES.Value

NOTAS1 = TXTNOTAS1.Value

NOTAS2 = TXTNOTAS2.Value

ULTIMAFILA = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count

Cells(ULTIMAFILA + 1, 1) = APELLIDOS

Cells(ULTIMAFILA + 1, 2) = NOMBRES

Cells(ULTIMAFILA + 1, 3) = NOTAS1

Cells(ULTIMAFILA + 1, 4) = NOTAS2

TXTAPELLIDOS = ""

TXTNOMBRES = ""

TXTNOTAS1 = ""

TXTNOTAS2 = ""

End Sub

Private Sub CMBCANCELAR_Click()

Unload Me

End Sub