Consulta de macro para ordenar
Me podrías dar una mano, con una macro que me pasaste el otro día.
Que la misma no sea automática cuando cambie algo en la columna 4, sino que cambie al tocar un botón o al hacer una llamada de la misma.
Aquí abajo te detallo la macro que me armaste
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Application.ScreenUpdating = False
With Range("A2:G" & ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row)
.Sort Key1:=.Cells(1, 4), Order1:=xlDescending, Header:=xlYes
End With
'
Set b = Columns("D").Find("SI", lookat:=xlWhole, SearchDirection:=xlPrevious)
If Not b Is Nothing Then f1 = b.Row
Set b = Columns("D").Find("OK", lookat:=xlWhole, SearchDirection:=xlPrevious)
If Not b Is Nothing Then f2 = b.Row
f = WorksheetFunction.Max(f1, f2)
'
Range("A2:G" & f).Sort Key1:=Range("F3"), Order1:=xlAscending
ThisWorkbook.RefreshAll
End If
End Sub
1 Respuesta
Respuesta de Dante Amor
1
Pon la siguiente macro en un botón
Sub Ordenar_Datos()
Application.ScreenUpdating = False
u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
With Range("A2:G" & u)
.Sort Key1:=.Cells(1, 4), Order1:=xlDescending, Header:=xlYes
End With
'
Set b = Columns("D").Find("SI", lookat:=xlWhole, SearchDirection:=xlPrevious)
If Not b Is Nothing Then f1 = b.Row
Set b = Columns("D").Find("OK", lookat:=xlWhole, SearchDirection:=xlPrevious)
If Not b Is Nothing Then f2 = b.Row
f = WorksheetFunction.Max(f1, f2)
If f = 0 Then f = u
'
Range("A2:G" & f).Sort Key1:=Range("F3"), Order1:=xlAscending
ThisWorkbook.RefreshAll
End SubSigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: Ordenar_Datos
- Aceptar.
- Para ejecutarla dale click a la imagen.
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
