1 votos

¿Cómo convertir una macro grabada en una macro automatizada en VBA?

He grabado la siguiente macro para ordenar los datos del rango "B3:U47" en función de los valores de la columna "C3:C47".

Sub Sorting_Finance()
    Range("B3:U47").Select
    ActiveWorkbook.Worksheets("Finance").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Finance").Sort.SortFields.Add2 Key:= _
        Range("C3:C47"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("Finance").Sort
        .SetRange Range("B3:U47")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Cada vez que quiero ordenar los datos pulso Control+n. ¿Hay alguna forma de hacerlo automáticamente cuando introduzco un nuevo valor en la columna C? Estoy intentando cambiarlo a través de VBA, pero sin éxito hasta ahora.

2voto

Akina Puntos 356

Patrón:

Private Sub Worksheet_Change(ByVal Target As Range)
if not (intersect(target, Range("C3:C47")) is nothing) then 
    call Sorting_Finance
end if
end sub

Y no olvide eliminar/comentar Range("B3:U47").Select línea.

EnMiMaquinaFunciona.com

EnMiMaquinaFunciona es una comunidad de administradores de sistemas en la que puedes resolver tus problemas y dudas.
Puedes consultar las preguntas de otros sysadmin, hacer tus propias preguntas o resolver las de los demás.

Powered by:

X