Llevar el foco a la ultima fila en blanco

Tronico, puedes agregar el siguiente código antes del End Sub:

Selection.End(xlDown).Select

osea

Public Sub OrdenarBanco()
Range("A5:D20000").Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Selection.End(xlDown).Select
End Sub


Saludos,
Francisco.

"tronico" escribió en el mensaje
news:
Tengo el siguiente codigo para ordenar un rango determinado de celdas:

Public Sub OrdenarBanco()
Range("A5:D20000").Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End Sub

...y el problema que tengo es que me devuelve el foco a la primera
celca, en éste caso a la A5, y lo que yo quisiera es que me devuelva
el foco a la ultima fila para seguir añadiendo registros.

Gracias.

Ok, Perfecta la solución.

Mil gracias compañero.

Ok, perfecto.

Mil gracias Francisco.

Hola Tronico y Francisco

Incluso si quieres seleccionar directamente la primera celda en blanco
puedes poner:

Selection.End(xlDown).Offset(1, 0).Select

Un saludo y hasta pronto
Ivan

Francisco M wrote:

Tronico, puedes agregar el siguiente código antes del End Sub:

Selection.End(xlDown).Select

osea

Public Sub OrdenarBanco()
Range("A5:D20000").Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Selection.End(xlDown).Select
End Sub


Saludos,
Francisco.

"tronico" escribió en el mensaje
news:
Tengo el siguiente codigo para ordenar un rango determinado de celdas:

Public Sub OrdenarBanco()
Range("A5:D20000").Select
Selection.Sort Key1:=Range("A5"), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End Sub

y el problema que tengo es que me devuelve el foco a la primera
celca, en éste caso a la A5, y lo que yo quisiera es que me devuelva
el foco a la ultima fila para seguir añadiendo registros.

Gracias.