Bienvenido a la mayor comunidad de usuarios EXCEL
Regístrate gratis ahora para ver contenidos y descargas sin restricciones!Regístrate gratis Ingresar
Macro ordenar columna
- Autor del tema mostellum
- Fecha de inicio
A un amigo se le ocurrió esto:
Selection.Sort Key1:=Range("b18:b324"),Order1:=xlAscending,Header:=xlGuess,OrderCustom:=1,MatcCase:=False,Oientation:=xlTopToBottom
Pero no funciona
Selection.Sort Key1:=Range("b18:b324"),Order1:=xlAscending,Header:=xlGuess,OrderCustom:=1,MatcCase:=False,Oientation:=xlTopToBottom
Pero no funciona
.
Aqui va un pequeño aporte.
saludos,
Pedro
La Paz, BOLIVIA.
.
Aqui va un pequeño aporte.
saludos,
Pedro
La Paz, BOLIVIA.
.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Set Rng = Range("b18:b342")
If Not Intersect(Target, Rng) Is Nothing Then _
Rng.Sort key1:=Rng.Range("A1")...
Dim Rng As Range
Set Rng = Range("b18:b342")
If Not Intersect(Target, Rng) Is Nothing Then _
Rng.Sort key1:=Rng.Range("A1")...
Gracias Pegbol. Funciona perfectamente. Mi pregunta ahora es cómo puedo ordenar junto con la columna a de tu ejemplo no sólo la columna b, sino todas las demás de modo que nos se descuadren los...
Con estas columnas, por ejemplo
.
Solo debes de cambiar el rango en el codigo en esta parte:
Range("a2:d" ..............
Si comparas este codigo con el anterior te daras cuenta donde puedes realizar cambios en la macro para que...
Solo debes de cambiar el rango en el codigo en esta parte:
Range("a2:d" ..............
Si comparas este codigo con el anterior te daras cuenta donde puedes realizar cambios en la macro para que...
Gracias de nuevo. Ahora tengo el siguiente problema: cuando escribo el código para la macro de ordenación, guardo todo y pruebo su funcionamiento, tengo un mensaje de error en el código. ¿puede...
.
Ese es el problema cuando se juntan dos Change Events en la misma hoja, o cuando existe un scroll que se cruza con el rango de la macro.
Vas a tener que definir o reducir el rango del sorteo...
Ese es el problema cuando se juntan dos Change Events en la misma hoja, o cuando existe un scroll que se cruza con el rango de la macro.
Vas a tener que definir o reducir el rango del sorteo...
.
Como definiste tu scroll?
No se si este archivo te sea util.
Tiene un scroll de A1 a D20, manteniendo el codigo anterior.
.
Como definiste tu scroll?
No se si este archivo te sea util.
Tiene un scroll de A1 a D20, manteniendo el codigo anterior.
.
Bueno, ¡vaya lío! Me parece que esta cuestión me supera. El área de scroll la tengo definida en un módulo con Aut
pen: Worksheets("Apuntes").Select...
pen: Worksheets("Apuntes").Select....
No se si te refieres a esto.
Bueno, aqui va el archivo de ejemplo.
.
.
No se si te refieres a esto.
Bueno, aqui va el archivo de ejemplo.
.
.
Bueno pegbol ¡eres un genio! Muchísimas gracias. Ahora funciona perfectamente.
