Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Mostrar un mensaje con el nombre del estudiante.

6luishao6

Member
Registrado
3 Ene 2015
Mensajes
111
Buenas, necesito de su ayuda, quisiera saber cómo puedo hacer una macro o una función que cuando yo quiera cambiar la calificación de cualquier estudiante me muestre un mensaje, indicando el...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Última edición:
Solución
Hola @6luishao6,
En el adjunto he adaptado la macro del Evento WorkSheet_Change a los rangos que indicas. Lo vas probando y en su caso vamos ajustando.
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Set Rng = Range("L16:AY45,L62:AY91,L108:AY137,L154:AY183,L200:AY229,L246:AY275,L292:AY321,L338:AY367,L384:AY413")
If Not Intersect(Target, Rng) Is Nothing Then
    With Application
    .EnableEvents = False: .Undo
    ValorAnterior = Target.Cells.Value
    FilaAnterior = Target.Cells.Row
    .Undo: .EnableEvents = True
    End With
    MsgBox ("Modificada la nota de " & Cells(FilaAnterior, 2) & " de " & ValorAnterior & " a " & Target)
End If
End Sub

Un saludo, Fernando
*PD. Elimino adjunto por LPD

Adjuntos

Hola @6luishao6,
En el adjunto he adaptado la macro del Evento WorkSheet_Change a los rangos que indicas. Lo vas probando y en su caso vamos ajustando.
Código:
Private Sub...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Última edición:
Pues no sé. Mira el adjunto cómo lo hace. Quizá no lo he entendido bien. Si no son notas, puedes modificar el texto del MsgBox.
Un saludo, Fernando
[ATTACH type="full"...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Volver
Arriba