UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se puede subir archivos al foro, favor de hacerlo en servidor externo (Dropbox, Drive...) y dejan link. "Sin archivo no hay respuestas"

Favor de leer "Todos los temas" Click aquí.

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 carrera ciclista el 05/03/18, 05:35 pm

emiliex11

avatar
Buenas tardes
de nuevo pedir de vuestra generosa ayuda
l que necesto de vosotros es una ayuda en la macro que he echo y no funciona                
quiero que cuando meta los dorsales de los corredores en una escapada se ordenen automaticamente la diferencia con el 1º de menos a mas               
el dorsal 25 tendria que ser 2º               
el dorsal 41 tendria que ser 1º               
el dorsal 22 tendria que ser 3º               
el dorsal  1 tendria que ser 4º               
etc   en la escapada   
Gracias a todos
Archivos
ESCAPADA1.zip
No tienes los permisos para descargar los archivos.
(17 KB)

2 Re: carrera ciclista el 06/03/18, 02:35 am

Igtelo

avatar
Hola Emiliex11.

Siguiendo el orden de tu macro (no entiendo como es la "jugada") veo que quieres ordenar por el campo H en forma descendente:

Sub ordenar()
Range("H3:K150").Sort [H3], 2 'Corchete es forma abrevida de Range("H3") y el 2 indica descendente.
End Sub

Puedes dar un rango bastante grande aunque estén en blanco las celdas, al ordenar sólo lo hace con lo que tenga datos, no necesitas variables.

Saludos
Ignacio Téllez

3 resubo archivo el 06/03/18, 03:32 pm

emiliex11

avatar
Buenas tardes
Resubo el archivo con lo que tu me has dicho ,pero no funciona
Necesito que en la escapada cada vez que meto un dorsal , me salen todos los datos que quiero, se vaya ordenando por la posicion de la general o por la diferencia de tiempo automaticamente de menor a mayor
Muchas gracias por todas las molestias
Saludos
Emilio
Archivos
ESCAPADA2.zip
No tienes los permisos para descargar los archivos.
(16 KB)

4 Re: carrera ciclista el 06/03/18, 09:37 pm

Igtelo

avatar
Emilio:

No entiendo tu "explicación", tu archivo es lo mismo que el primero, te dejo macro explicada para que tú modifiques llave primaria de ordenamiento.

Saludos
Ignacio Téllez
Archivos
Emiliex11-Sort.xlsm
No tienes los permisos para descargar los archivos.
(25 KB)

5 Re: carrera ciclista el 07/03/18, 04:05 pm

emiliex11

avatar
Buenas tardes Ignacio
Acabo de ver tu ejemplo y no funciona como esta
Si se borran los datos de los dorsales que estan en la columna H y se vuelven a introducir los dorsales no se ordenan ni por la posicion ni por la diferencia de tiempo
No se si tiene la culpa que el rango (I3:K15) cada  celda tiene su formula  para que cuando en el rango (h3:h15) pongamos el dorsal de la clasificacion general nos buesque  los valores a los que pertenece
De todas formas Ignacio muchisimas gracias por las molestias que te ocasiono ya que con ello estoy aprendiendo otras cosas
Saludos
Emilio

6 Re: carrera ciclista el 07/03/18, 07:51 pm

Igtelo

avatar
Emilio:

La macro trabaja correctamente aunque borres y vuelvas a ingresar los números.
solamente te daría error sino hay datos en columna H, tus fórmulas en columnas restantes no afectan, ni idea que estés haciendo.
¿Seguro que los números los ingresas como tal y no como texto?

Saludos
Ignacio Téllez

7 Re: carrera ciclista el 08/03/18, 05:17 pm

emiliex11

avatar
Buenas tardes Ignacio
Muchisimas gracias y perdon lor las molestias
Voy a intentar explicarlo mejor ya que la cabeza me hecha humo y seguro que no lo veo
Tengo una clasificacion general de corredores con sus dorsales
En la columna H tengo que poner los dorsales de los corredores que entran en una escapada
Por ejemplo pongo en la lista de dorsales, que esta vacia, el dorsal 25(H3)
y me pone los datos en la columa I J K posicion en la general es el 2ª
Pongo el dorsal 41 en (H4) que es el 1º de la general y no se cambia a H3
Perdoname que insista ,pero lo siento no lo veo
Gracias
Emilio

8 Re: carrera ciclista el 27/05/18, 04:57 pm

ateneo


****pon esto en worksheet  evento change:****

Private Sub Worksheet_Change(ByVal Target As Range)
      If Target.Column = 9 Then
      End If
      
         Range("H2:K13").Select
    ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Hoja1").Sort.SortFields.Add Key:=Range("K3:K13"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Hoja1").Sort
        .SetRange Range("H2:K13")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

9 Re: carrera ciclista el 17/07/18, 06:38 pm

jhon1904

avatar
Hola Buen dia a todos

Saludos Igtelo y Un abrazo.

dejo mi aporte haber si te funciona.


pega este código en la hoja de los datos

Código:
Private Sub Worksheet_Change(ByVal Target As Range)
 Application.ScreenUpdating = False
 
 If Target.Column = 4 Then
    Range("A3:D29").Select
    With ActiveSheet.Sort
        .SortFields.Add Key:=Range("D3:D29"), SortOn:=xlSortOnValues, Order:=xlAscending
        .Header = xlYes
        .Apply
    End With
    Range("B3").Select: Range("B3") = "1"
    Selection.AutoFill Destination:=Range("B3:B29"), Type:=xlFillSeries
    Target.Offset(1, 0).Select
 End If
 
 Application.ScreenUpdating = True
     
End Sub


saludos,


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

10 Re: carrera ciclista el 17/07/18, 11:54 pm

Igtelo

avatar
Hola a todos.

Jhon abrazo para ti también.
No le encuentro sentido a contestar algo de unos meses atrás y más viendo que Ateneo le dejó respuesta y el consultante ni se "tomo la molestia" de responder.

Por favor, se que les molesta que los esté "fregando" pero usemos el sentido común...

Saludos
Ignacio Téllez

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.