1. AyudaExcel utiliza cookies. Si continuas utilizando AyudaExcel, estás aceptando la utilización de nuestras cookies. Más información.
  2. ¡Bienvenid@ a AyudaExcel! El foro más visitado sobre Excel en habla hispana.

    Si esta es tu primera visita, asegúrate de revisar los temas de la sección Utilización y Funcionamiento para familiarizarte con las funciones del foro. Si deseas publicar mensajes, será necesario que te Registres para que puedas dejar respuestas y crear tus propios mensajes, recuerda que es gratuito.

[SOLUCIONADO] Macros Para Ordenar Tabla Automaticamente

Tema publicado en 'Macros y programación VBA' iniciado por RULTAPIA, 23 Jul 2010.

Estado del tema:
Cerrado para nuevas respuestas
  1. RULTAPIA

    RULTAPIA Nuevo Usuario

    Registrado:
    18 Jun 2010
    Mensajes:
    5
    Me Gusta recibidos:
    0
    Amigos...

    Quiero hacer una tabla (con mas de una columna) que contenga datos de cualquier tipo (numericos por ej.) y que me los ordene de manera automatica por alguna columna (la que sea) de mayor a menor y que me cambie de lugar la fila completa de acuerdo a los datos que le ingreso...
    Si esta muy enrredado me avisan y les explico mejor...

    Espero me puedan ayudar..

    Gracias.
  2. SidV

    SidV Usuario

    Registrado:
    11 Sep 2008
    Mensajes:
    289
    Me Gusta recibidos:
    1
    Re: Macros Para Ordnar Tabla Automaticamente

    Puedo interpretar de muchas formas lo que queres...
    Y mi macro no se adaptaria a tus necesidades exactas.
    Hace un excel, y subilo al foro.
    Indicame q columna queres mover exactamente... y cual columna ordenar.

    Saludos... y bienvenida a la comunidad.
  3. RULTAPIA

    RULTAPIA Nuevo Usuario

    Registrado:
    18 Jun 2010
    Mensajes:
    5
    Me Gusta recibidos:
    0
    Re: Macros Para Ordnar Tabla Automaticamente

    SidV... te puedo enviar el archivo a algun mail...
    es que desde los pcs de la empresa no se puede subir archivos... tienen bloqueada la subida de archivos...
    solo si es posible...
    gracias.


    julibaga ME VA A SUBIR EL ARCHIVO...
    GRANDE julibaga.... :D

    Explicación:

    Bien.... la idea es que yo coloque los resultados de los partidos de bowling entre las columnas (K6:BF6) y (K20:BF20) dándome el promedio en la columna ( I )...
    Ahora.... lo que yo intento hacer es que cada vez que yo vaya agregando los resultados de los partidos dentro de las columnas (K6:BF6) y (K20:BF20) y posteriormente me cambie el promedio en la columna ( I ), me cambie también automáticamente el orden de los lugares de acuerdo a como cambien los promedios.

    Ej. si yo estaba en lugar 1 y de acuerdo a los resultados quedo en el lugar 8, que me cambie a ese lugar automáticamente...

    Espero me hayan entendido bn...
    Saludos.
    Última edición: 24 Jul 2010
  4. Julibaga

    Julibaga Usuario

    Registrado:
    23 Sep 2009
    Mensajes:
    2.308
    Me Gusta recibidos:
    90
    Género:
    Masculino
    Re: Macros Para Ordnar Tabla Automaticamente

    Subo archivo de RULTAPIA.
    Saludos.

    Adjuntos:

  5. RULTAPIA

    RULTAPIA Nuevo Usuario

    Registrado:
    18 Jun 2010
    Mensajes:
    5
    Me Gusta recibidos:
    0
    Re: Macros Para Ordnar Tabla Automaticamente

    El archivo ya esta arriba... a ver si me pueden apoyar con algunas ideas de como ordenar automaticamente mi planilla de promedios...
    Agradecere cualquier ayuda.... :D
  6. qwerty123

    qwerty123 Usuario

    Registrado:
    20 Ago 2009
    Mensajes:
    109
    Me Gusta recibidos:
    1
    Re: Macros Para Ordnar Tabla Automaticamente

    Hola.

    Una idea, entre muchas, de cómo poder hacerlo.

    Un saludo.

    Adjuntos:

  7. RULTAPIA

    RULTAPIA Nuevo Usuario

    Registrado:
    18 Jun 2010
    Mensajes:
    5
    Me Gusta recibidos:
    0
    Re: Macros Para Ordnar Tabla Automaticamente

    Genio!!!... :D
    Es justo lo que estaba buscando...
    Si me pudieras explicar el codigo que ordena los promedios seria espectacular...
    Sino es mucha la molestia...
    Cuando tengas un tiempito...
    Te vuevo a agradecer qwerty123....
    Super agradecido...
    Saludos..... :D
  8. qwerty123

    qwerty123 Usuario

    Registrado:
    20 Ago 2009
    Mensajes:
    109
    Me Gusta recibidos:
    1
    Re: Macros Para Ordnar Tabla Automaticamente

    Hola.

    Me alegra que te haya servido. Intentaré explicarlo lo mejor que pueda en el mismo código de la hoja:

    HTML:
    Option Explicit
     
    'Comprobamos, cuando se cambia de celda, si hay que ordenar
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static rCelda As Range  'Guarda la posición de la celda que cambia
        If Not rCelda Is Nothing Then   'Evidentemente, la primera vez no tiene posición guardada y no hay nada que hacer (ver Worksheet_Activate)
            If rCelda.Row <> Target.Row Then prueba rCelda  'Sólo si se abandona la fila. Aunque el promedio variara
                                                            'si ordenáramos, perderías la posición de la fila
        End If
        Set rCelda = Target 'Se haya podido ordenar o no, guardamos la nueva posición
    End Sub
     
    'Al activar la hoja, vamos a una celda cualquiera para poder guardar la primera posición
    Private Sub Worksheet_Activate()
        Cells(1, 1).Select
    End Sub
     
    'Esta es la parte ordena. Se le pasa la celda que ha sido cambiada
    Sub prueba(rDato As Range)
        'Comprobamos que el cambio se ha producido desde las columnas de introducción de resultados
        If Intersect(rDato, Range("K:BF")) Is Nothing Then Exit Sub
        'Puede ser que la columna sea la adecuada, pero no así la fila. Seleccionamos todo el área.
        With rDato.CurrentRegion
            'Si este área tiene el mismo número de columnas que el que se espera se ordena.
            If .Columns.Count = 60 Then
                'El área contiene las dos filas de títulos y la columna lugar. Como éstas deben quedar
                'invariables, debemos reducir dicho área a lo que nos interesa ordenar.
                With .Offset(2, 1).Resize(.Rows.Count - 2, 59)
                    'Comprobamos que estamos en la posición correcta (en realidad es una comprobación
                    'redundante y podría suprimirse)
                    'Y ordenamos por promedio.
                    If .Cells(1, 1).Offset(0, -1) = 1 Then _
                        .Sort key1:=.Cells(1, 7), Order1:=xlDescending, Header:=xlNo
                End With
            End If
        End With
    End Sub
     
     
    
    En realidad lo suyo sería comprobar cuando se cambia el contenido de la celda mejor que el cambio de posición del cursor, puesto que es así como variará el promedio, pero por una razón o por otra, me complicaba bastante la macro.

    Como verás, la macro es muy mejorable. Te animo que lo intentes, es la mejor forma de aprender.

    Un saludo.
  9. RULTAPIA

    RULTAPIA Nuevo Usuario

    Registrado:
    18 Jun 2010
    Mensajes:
    5
    Me Gusta recibidos:
    0
    Re: Macros Para Ordnar Tabla Automaticamente

    Gracias por la ayuda...
    Gracias por su tiempo...
    Me han ayudado mucho....
    Saludos, que esten muy bien...
    Hasta la proxima... :D
Estado del tema:
Cerrado para nuevas respuestas

Compartir esta página