☰

Excel: filtro para cambios recientes que deben aceptarse

tag-icon • tag-icon windows-7 microsoft-excel
Excel: filtro para cambios recientes que deben aceptarse

Quiero filtrar una hoja para mostrar solo filas con celdas marcadas para revisión mediante la función Seguimiento de cambios. ¿Alguien sabe si/cómo es posible?

Respuesta1

El código escrito a continuación resaltará cada cambio y nueva entrada en la hoja activa y creará una hoja de registro que lleva el nombre de la hoja, la dirección de la celda y los datos ingresados.

Es como una hoja de auditoría.

Resaltar nuevas entradas funciona como Mark Track Changesy mover datos al archivo de registro es comoFilter those entries

También puede modificar este código para necesidades futuras.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim ws As Worksheet, ws2 As Worksheet
Dim i As Boolean
Application.ScreenUpdating = False

i = False
For Each ws In ThisWorkbook.Worksheets
    If ws.Name = "Change Log" Then
        i = True
        Exit For
    End If
Next ws
If Not i Then
   Set ws2 = ThisWorkbook.Worksheets.Add

   ws2.Name = "Change Log"
   ws2.Range("A1") = "Sheet"
   ws2.Range("B1") = "Range"
   ws2.Range("C1") = "New Data"
Else
   Set ws2 = Sheets("Change Log")
End If


ws2.Range("A1").Offset(ws2.UsedRange.Rows.Count, 0) = Target.Worksheet.Name
ws2.Range("B1").Offset(ws2.UsedRange.Rows.Count - 1, 0) = Target.Address
ws2.Range("C1").Offset(ws2.UsedRange.Rows.Count - 1, 0) = Target.Cells.Value

Target.Font.Color = 255

Application.ScreenUpdating = True
End Sub

información relacionada