Jump to content

Macro ordenar en hoja oculta


Recommended Posts

Soy nuevo, pido perdon si esto ya se ha preguntado, estuve buscando con el buscador pero no encontre nada.

tengo una macro que ordena una tabla, la macro funciona bien, pero quiero usarla teniendo dicha hoja oculta, y ahi viene el problema, no me deja usarla, he intentado desde el codigo de la macro que en el momento que la vaya a utilizar ponga visible la hoja pero algo hare mal porque me da el fallo en el codigo que ordena la tabla, cuando sin estar oculta funciona perfectamente... espero que puedan ayudarme.

Link to comment
Share on other sites

Hola

Prueba con:

Sub Ordenar_hoja_oculta()
Application.ScreenUpdating = False
With Hoja2
.Visible = True
.Activate
Range("A1").Sort Range("B1"), xlAscending, Header:=xlYes
.Visible = False
End With
MsgBox "Ordenado..."
Application.ScreenUpdating = True
End Sub[/PHP]

[b]Ojo "hoja2" es un supuesto nombre, la BD comienza desde A1 y ordenara el rango/columna "B"[/b]

Saludos

Link to comment
Share on other sites

Si no me equivoco quedaria algo asi

Application.ScreenUpdating = False

With Hoja3

.Visible = True

.Activate

Range("A5:K60").Select

Selection.Sort Key1:=Range("I6"), Order1:=xlDescending, Key2:=Range("J6") _

, Order2:=xlDescending, Key3:=Range("F6"), Order3:=xlAscending, Header _

:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _

, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _

xlSortNormal

Selection.Sort Key1:=Range("K6"), Order1:=xlAscending, Key2:=Range("G6") _

, Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _

False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _

:=xlSortNormal

Range("A6:A50").Select

ActiveWindow.SmallScroll Down:=-6

Selection.Copy

Me da el error donde subrayo, pero si lo uso con una hoja no oculta, funciona perfectamente

.Visible = False

End With

Link to comment
Share on other sites

Yo no se porqué nos molestamos en contestar ya que haceis lo que os da la gana.

En primer lugar falta la sentencia End With en tu código, que por cierto debería ir formateado de acuerdo a las normas.

En segundo lugar, en el respuesta de Gerson, ¿ Ves algo parecido a Range("A5:K60").Select ?

En tercer lugar, dos Sort por 3 columnas no implica un Sort de 6 columnas, ya que una ordenación no implica el mantenimiento del orden actual.

Y en cuarto y último lugar, me estaría ahorrando este rollo si hubieras subido un archivo de muestra explicando claramente cual es tu problema.

Pero es mas fácil no leerse las normas del foro.

Empieza de nuevo cumpliendo los requisitos que se te piden y te prometo mirarlo.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Crear macros Excel

  • Posts

    • Hola a ambos, @gonzalomadrid, en Word de M365 sí funciona. Basta con que escribas =rand() para que te aparezca el texto. Si eliges =rand(2,3) te aparecerá un texto con 2 párrafos y 5 operaciones. En Excel, hasta donde yo sé, es diferente. Tal como te comenta @Abraham Valencia, dispones de =ALEATORIO() y =ALEATORIO.ENTRE() para generar números aleatorios. El propio 'Help' de Excel explica muy bien argumento y sintaxis de ambas funciones. Saludos,  
    • Hola, descargar mejor la versión (2). Saludos. MImgUrl(2).xlsm
    • Hola Medio enredado lo que escribes, pero creo que en realidad lo que buscas es ALEATORIO.ENTRE o RANDBETWEEN si usas Excel en inglés.    
    • Muchas gracias a todos por sus aportes, me han resultado de mucha utilidad, al final lo pude resolver utilizando temporalmente la funcion de reemplazar para sacar la operacion requerida y despues de eso lo volvi a dejar como estaba. Un saludo para todos
    • aquel famoso - y antiguo-    = Rand (8,5)   ¿funciona en    en excel 2019? y de paso ¿funciona en word 2019 y demás office? A mi no me funciona ni a tiros, ni ese ni   = Rand () ni Lorem Ipsum() ni nada parecido para meter texto dummy o aleatorio. ¿alguien  sabe algo?  
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy