Control de cambios personalizado en Excel – segunda nota

He recibido varios comentarios sobre la nota de ayer sobre el control de cambios personalizado. Entre ellos me piden dos modificaciones que encuentro muy apropiadas:

1 – que el último cambio aparezca en primer lugar en el cuadro de texto, de manera que siempre veamos los últimos cambios;

2 – que los cambios queden registrados en una hoja del cuaderno.

Ambas modificaciones son bastante sencillas y en esta nota mostraremos cómo hacerlas.

Para que el último cambio aparezca siempre en primer lugar en el cuadro de texto modificamos levemente el código de la macro "track_change"

Sub track_change()
    Dim strPrevious As String
    
    With ActiveCell
        If .Comment Is Nothing Then
            .AddComment Text:=Format(Now, "dd/mm/yy hh:mm") & " - " & .Value
        Else
            strPrevious = .Comment.Text
            .Comment.Text Text:=Format(Now, "dd/mm/yy hh:mm") & " - " & .Value _
                                & Chr(10) & strPrevious
        End If
    End With
    
    Call record_in_sheet
    
End Sub

Todo lo que hacemos es cambiar el orden de construcción del texto del comentario poniendo la variable "strPrevious" al final de la cadena de texto.

Para registrar los cambios en una hoja, empezamos, obviamente, por agregar la hoja al cuaderno

Como ven, hemos agregado la hoja "control" con cuatro campos (columnas): celda, fecha y hora, valor e introducido por.

El código para introducir los datos en esta hoja es el siguiente

Sub record_in_sheet()
    Dim lngFirstFreeRow As Long
  
    With Sheets("control")
        lngFirstFreeRow = WorksheetFunction.CountA(.Range("A:A")) + 1
        .Cells(lngFirstFreeRow, 1).Value = ActiveCell.Address
        .Cells(lngFirstFreeRow, 2).Value = Format(Now, "dd/mm/yy hh:mm")
        .Cells(lngFirstFreeRow, 3).Value = ActiveCell.Value
        .Cells(lngFirstFreeRow, 4).Value = Environ("username")
    End With
  
End Sub

Como ven, sencillo y sin muchas vueltas. Para activar el código hemos agregado la línea "Call record_in_sheet" en el código anterior. De esta manera, el evento de la hoja hace correr el código que crea el comentario con los cambios y este código a su vez, hace correr la macro que registra el cambio en la hoja "control".

Después de introducir y cambiar algunos valores en la lista de precios

La hoja de control los refleja de esta manera