Macro para evitar que las celdas queden selecciondas

Para dante

Hay alguna macro o función que evite que después de correr una macro no deje seleccionnas las celdas o columnas.

Este código me ordena

Sub ordenar()

Range("b:b").Select
Selection.Sort Key1:=Range("b1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

asi queda despues de correr la macro

Lo que me gustaría que no quedara seleccionada sino que quede en forma normal.

2 respuestas

Respuesta
1

Prueba agregando una la línea de código Range("A1").select antes de que termine tu macro, para que no quede seleccionada toda la columna y deje seleccionada solo una celda, esta puede ser la celda y columna que deces.

Sub ordenar()
Range("b:b").Select
Selection.Sort Key1:=Range("b1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").select
End Sub
Respuesta
1

Junta las instrucciones:

Sub ordenar()
    Range("b:b").Sort Key1:=Range("b1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

De esa forma quedará seleccionado lo que tengas seleccionado antes de la ejecución.


' : )
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
' : )

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas