☰

Crear una macro para ordenar elementos por fecha de entrada (resultados activados por fórmula)

tag-icon • tag-icon microsoft-excel worksheet-function vba macros
Crear una macro para ordenar elementos por fecha de entrada (resultados activados por fórmula)

Tengo la Hoja 1 donde ingreso nuevos datos en una hoja de trabajo, y en mi hoja de Referencia estoy extrayendo los mismos valores de la hoja 1 para poder ordenarlos por tiempo ingresado. Mi objetivo es tener una visualización en la Hoja 1 que muestre los últimos 10 elementos ingresados ​​en la Hoja 1. Utilicé la siguiente fórmula para ordenar mi hoja de Referencia por fecha, pero como estoy usando una fórmula para extraer los valores, no activa . ¿Es posible combinar esto con una nueva macro para poder ingresar datos en un lugar y ordenarlos en otro lugar?

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim A As Range
    Dim AB As Range
    Set A = Range("A:A")
    Set AB = Range("A:B")

    If Intersect(Target, A) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
        Target.Offset(0, 1) = Now
        AB.Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlNo, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
    Application.EnableEvents = True
End Sub

Respuesta1

Parece que su problema es que su código de macro no se activa para el cambio en una hoja porque la hoja cambia simplemente en virtud de una referencia de fórmula. Si este es el caso, ¿no puedes poner el código (o llamar a cualquier Sub que necesites) desde elLibro de trabajo_SheetChange()¿Sub en lugar de eso? (el 'Libro de trabajo'Cambio de hoja()El evento se activará cuando cambies.cualquierhoja). Puede inspeccionar la hoja que se cambió usandoSh.Nombredesde dentro de este Sub. Y obtenga la dirección de la celda del cambio usandoDirección.destino.

información relacionada