ordenar matriz

hola (de nuevo), ????? (a ver si le atinamos)

OJO: corre esta macro sobre UNA COPIA de tu archivo
o cuando menos, guardalo ANTES de correr la macro y si no te gusta cierra SIN guardar y lo abres de nuevo
(ademas): debes dejar cuando menos UNA FILA Y UNA COLUMNA en blanco para "delimitar" la region actual
(finalmente): el codigo "asume" que la primera fila y la primer columna son titulos

Sub Clasifica()
Dim Fila As Integer, Col As Byte: On Error GoTo DoNothing
With Application.InputBox( _
Prompt:="Selecciona alguna celda de la BBDD", _
Title:="Clasificar...", _
Default:=ActiveCell.Address, _
Type:=8).CurrentRegion: Col = .Columns.Count - 1
For Fila = 1 To .Rows.Count - 1
With .Offset(Fila, 1).Resize(1, Col): .Value = _
Evaluate("transpose(large(" & .Address & ",row(a1:a" & Col & ")))")
End With: Next
.Sort Key1:=.Range("b2"), Order1:=xlDescending, _
Key2:=.Range("c2"), Order2:=xlDescending, _
Key3:=.Range("d2"), Order3:=xlDescending, Header:=xlYes
End With
DoNothing:
End Sub

saludos,
hector.

__ previos __

Gracias, pero en 'tiempo real' no puedo hacer esto.
Necesito una macro que me permita elegir un rango dado y que lo ordene automaticamente.
Gracias nuevamente.

ok, (creo que) cuando los requerimientos van cambiando de funciones de hoja de calculo a macros...
y/o de las consultas no se pueden desprender los detalles para (re)construir "el modelo" de forma clara...
hay que esperar a que se "asome" (por el grupo) alguien a quien ya le haya llegado su "bolita de cristal" :))

GENIO !!!!!!

Yo sabía que lo ibas a lograr.Anda perfecto, lo unico que no entiendo porque
debo dejar una fila en blanco.
Queria hacerlo sin VBA inicialmente, pero no hay 'con que'.

Gracias nuevamente, desde Argentina.


"Héctor Miguel" escribió en el mensaje
news:

hola (de nuevo), ????? (a ver si le atinamos)

OJO: corre esta macro sobre UNA COPIA de tu archivo
o cuando menos, guardalo ANTES de correr la macro y si no te gusta
cierra SIN guardar y lo abres de nuevo
(ademas): debes dejar cuando menos UNA FILA Y UNA COLUMNA en blanco para
"delimitar" la region actual
(finalmente): el codigo "asume" que la primera fila y la primer columna
son titulos

Sub Clasifica()
Dim Fila As Integer, Col As Byte: On Error GoTo DoNothing
With Application.InputBox( _
Prompt:="Selecciona alguna celda de la BBDD", _
Title:="Clasificar...", _
Default:=ActiveCell.Address, _
Type:=8).CurrentRegion: Col = .Columns.Count - 1
For Fila = 1 To .Rows.Count - 1
With .Offset(Fila, 1).Resize(1, Col): .Value = _
Evaluate("transpose(large(" & .Address & ",row(a1:a" & Col & ")))")
End With: Next
.Sort Key1:=.Range("b2"), Order1:=xlDescending, _
Key2:=.Range("c2"), Order2:=xlDescending, _
Key3:=.Range("d2"), Order3:=xlDescending, Header:=xlYes
End With
DoNothing:
End Sub

saludos,
hector.

__ previos __

Gracias, pero en 'tiempo real' no puedo hacer esto.
Necesito una macro que me permita elegir un rango dado y que lo ordene
automaticamente.
Gracias nuevamente.

ok, (creo que) cuando los requerimientos van cambiando de funciones de
hoja de calculo a macros...
y/o de las consultas no se pueden desprender los detalles para
(re)construir "el modelo" de forma clara...
hay que esperar a que se "asome" (por el grupo) alguien a quien ya le
haya llegado su "bolita de cristal" :))

hola, !

... lo unico que no entiendo porque debo dejar una fila en blanco...

porque desconociendo el arreglo real/completo/... de tus datos, tuve que asumir que existia la posibilidad...
de columnas adyacentes con otro tipo de datos que no quisieras ver involucradas en la (re)ordenacion (?)

saludos,
hector.