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.
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
1 respuesta más de otro experto
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 SubDe esa forma quedará seleccionado lo que tengas seleccionado antes de la ejecución.
' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )