Visual Basic - Dudas de como ordenar datos de una columna d excel

Life is soft - evento anual de software empresarial
   
Vista:

Dudas de como ordenar datos de una columna d excel

Publicado por Manuel (1 intervención) el 25/03/2009 11:22:30
Hola a todos;
Mi duda es muy basica, yo es la primera vez que trabajo con vb, necesito ordenar de menor a mayor, los datos de una columna de excel que tienen (A1 hasta A18) resultados.

Necesitaria el codigo, ya que lo que encuentro por internet es demasiado complicaso de entender para quien no sabe nada de vb.

Un saludo y gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Dudas de como ordenar datos de una columna d ex

Publicado por P3L30N2009 (701 intervenciones) el 25/03/2009 12:36:27
Range("A1:A18").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

La próxima vez que tengas una duda sobre Excel, te creas una macro y después la editas y copias el código, que es lo que he hecho yo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Dudas de como ordenar datos de una columna d ex

Publicado por EDUARDO (1 intervención) el 04/09/2012 20:34:35
utilizo el codigo para ordenar desde vb6, pero solo lo hace la primera vez, para que lo vuelva a hacer debo reiniciar el programa.

como se refresca dicha funcion.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Dudas de como ordenar datos de una columna d ex

Publicado por MIGUEL ANGEL (2 intervenciones) el 01/04/2013 18:26:31
Amigos, yo estoy haciendo una aplicación en Excel con VBA.
Tengo un botón en un formulario para probar y me funcionó una rutina que hice

Private Sub CmdOrdenar_Click()
a = 2 ' inicio en la fila 2
While Hoja7.Cells(a, 1) <> "" ' recorro los datos hasta que este vacía
a = a + 1
Wend
a = a - 1 ' le resto uno para evitar una selección en blanco

' ORDENA POR COLUMNA
'Hoja7.Range(Cells(a, 1), Cells(2, 1)).Select ' selecciono el rango
'Range(Cells(a, 1), Cells(a, 1)).Sort Key1:=Cells(a, 1) ' ordeno el rango en excel

' Ahora que esta ordenada lo cargo en un combobox o lista, etc

'Idem al anterior ejemplo pero para dos columnas
' ORDENA DOS COLUMNAS (ordeno los datos de la columna 4 y 5)
'Hoja7.Range(Cells(a, 4), Cells(2, 5)).Select
'Range(Cells(a, 4), Cells(a, 4)).Sort Key1:=Cells(a, 4)

End Sub

Espero les sirva.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Dudas de como ordenar datos de una columna d ex

Publicado por MIGUEL ANGEL (2 intervenciones) el 01/04/2013 18:51:11
Pequeña corrección

ORDENA POR COLUMNA
'Range(Cells(a, 1), Cells(2, 1)).Sort Key1:=Cells(a, 1) ' ordeno el rango en excel


'Idem al anterior ejemplo pero para dos columnas
'Range(Cells(a, 4), Cells(2, 4)).Sort Key1:=Cells(a, 4)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar