Encontrar dato y modificar "fila" mediante Userform
De todoexpertos, tengo un problema que aun no le he podido dar solución, bien les explicare tengo una hoja donde esta la base de datos de alumnos(que esta oculta) que tengo (nombre, apellido, asistencia, 1 examen, 2 examen, 3 examen, Estado), y he hecho un userform donde en el Combox1 filtra por nombres que están en la columna A, pongo el nombre y en los demás textbox's me aparece la información lo mismo en Combox2 que filtra por apellidos que están en la columna B, hasta el momento todo bien, ahora necesito poder modificar los datos en los textbox y grabarlos en el mismo sitio,,, ejm...
A B C D
1 jose cuba 18 11
2 miguel ortiz 15 13
Bien cuando filtro en el Combox1 miguel ; me aparece en los textbox's el nombre, apellido, nota1, nota2, etc, ahora quiero modificar las notas que son 15,13 por 11,12 por ejemplo, y con un CommanButton me "actualice los datos".. Gracias
he intentado hacer lago como esto pero me guarda los datos donde no corresponden
Private Sub CommandButton3_Click()
Sheets("alumnos").Activate -> tiene que estar oculta
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Then
MsgBox "Campos requeridos vacios favor complete"
TextBox2.SetFocus
Else
If CheckBox1.Value = True Then
ActiveCell.Offset(0, 1) = TextBox2.Value
ActiveCell.Offset(0, 2) = TextBox3.Value
ActiveCell.Offset(0, 3) = TextBox4.Value
ActiveCell.Offset(0, 4) = TextBox5.Value
ActiveCell.Offset(0, 5) = TextBox6.Value
ActiveCell.Offset(0, 6) = TextBox7.Value
ActiveCell.Offset(0, 7) = TextBox8.Value
MsgBox "Datos actualizados correctamente", vbInformation, "Almacen"
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox2.Locked = True
TextBox3.Locked = True
TextBox4.Locked = True
TextBox5.Locked = True
TextBox6.Locked = True
TextBox7.Locked = True
TextBox8.Locked = True
Else
ActiveCell = TextBox2.Value
ActiveCell.Offset(0, 1) = TextBox2.Value
ActiveCell.Offset(0, 2) = TextBox4.Value
ActiveCell.Offset(0, 3) = TextBox5.Value
ActiveCell.Offset(0, 4) = TextBox6.Value
ActiveCell.Offset(0, 5) = TextBox7.Value
ActiveCell.Offset(0, 6) = TextBox8.Value
MsgBox "Datos actualizados correctamente", vbInformation, "Almacen"
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox2.Locked = True
TextBox3.Locked = True
TextBox4.Locked = True
TextBox5.Locked = True
TextBox6.Locked = True
TextBox7.Locked = True
TextBox8.Locked = True
End If
CheckBox1.Value = False
CheckBox2.Value = False
End If
End Sub
No se que falta paa que funcione bien,.