Private Sub CommandButton1_Click()

Dim Nombre As String
Dim Nota1 As Double
Dim No_Registra As Integer



For i = 2 To 21
    Nombre = Cells(i, 2)
    Nota1 = Cells(i, 4)

    If Nombre = "Abanto Chavez Jesus" Then
        Sheets("Hoja1").Select
        Cells(i, 4) = Nota1
        Sheets("Datos").Select
       
    ElseIf Nombre = "Bendezu Moreno Ofelia" Then
        Sheets("Hoja1").Select
        Cells(i, 4) = Nota1
        Sheets("Datos").Select
       
    ElseIf Nombre = "Cadillo Hidalgo Pedro" Then
        Sheets("Hoja1").Select
        Cells(i, 4) = Nota1
        Sheets("Datos").Select
       
    ElseIf Nombre = "Cantu Mejia William" Then
        Sheets("Hoja1").Select
        Cells(i, 4) = Nota1
        Sheets("Datos").Select
    Else
       
        MsgBox "No_Registra"
    End If
   
Next i
End Sub