Desaparecer sombreado
Nuevamente acudo a ustedes para resolver un problemilla que tengo. Tengo la macro que a continuación describo, me funciona para lo que pretendo hacer, esto es, que me ordene los datos en orden ascendente y me seleccione la siguiente fila que se encuentre en blanco para introducir datos. El problema consiste en que cuando activa la hoja "Clientes", me aparece el área del rango A3E30 sombreado y no se cómo desaparecerlo. ¿Podrían ayudarme con esto? ¿Cuál sería la rutina que debo escribir para que deseleccione el rango? Como siempre, muchísimas gracias por su ayuda.
Esta es la rutina:
Sub Clientes()
'
' Antonio Ricaurte
ActiveWindow.ScrollWorkbookTabs Sheets:=2
ActiveWindow.ScrollWorkbookTabs Sheets:=2
Sheets("Clientes").Select
Range("A2").Select
'Ordenar los datos
Range("A3:E30").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
' Mientras la celda activa no esté vacía
Do While Not IsEmpty(ActiveCell)
'Hacer activa la celda situada una fila por debajo de la actual
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
Esta es la rutina:
Sub Clientes()
'
' Antonio Ricaurte
ActiveWindow.ScrollWorkbookTabs Sheets:=2
ActiveWindow.ScrollWorkbookTabs Sheets:=2
Sheets("Clientes").Select
Range("A2").Select
'Ordenar los datos
Range("A3:E30").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
' Mientras la celda activa no esté vacía
Do While Not IsEmpty(ActiveCell)
'Hacer activa la celda situada una fila por debajo de la actual
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
Respuesta de Elsa Matilde
1
Hola Elsa Matilde. Muchísimas gracias por su ayuda. La admiro mucho por sus conocimientos y más aún, por su espíritu altruista para compartir sus conocimientos con los demás. Aprovecho la oportunidad para comentarle lo siguiente: He tratado de ingresar al sitio que usted informa en sus respuestas pero desafortunadamente no lo he logrado pues sale un mensaje de que ese sitio se encuentra inaccesible. ¿Cómo puedo hacer para accesar a él? Le reitero mis agradecimientos y pido a Dios que la bendiga por su vocación de enseñanza.
