Ordenar de Otro Rango

hola, Angelo !

... en Hoja1 un listado de empleados pero por departamento
... en Hoja2 necesito el mismo listado... ordenados por su nombre y... que sea automatico.

¿existe alguna situacion [especial] que 'impida' usar la misma base y ordenar 'segun se requiera'?
en lugar de 'duplicar' [toda] la base, que no se hasta donde llegue [o pudiera llegar] a 'extenderse'

¿comentas?
saludos,
hector.

Ok. Pasa lo siguiente, en Hoja 1 yo soy el que introduzco los datos, y puede
ser que yo agrege varias filas dentro de ese rango y necesito que en la otra
hoja se actualicen tambien automaticamente los nombres mientras que yo voy
agregando en la Hoja1 y que se ordenen por su nombre, yo se que se puede
hacer manualmente pero me quiero evitar ese paso, espero que me puedan ayudar.

Saludos,

"Héctor Miguel" escribió:

hola, Angelo !

> ... en Hoja1 un listado de empleados pero por departamento
> ... en Hoja2 necesito el mismo listado... ordenados por su nombre y... que sea automatico.

¿existe alguna situacion [especial] que 'impida' usar la misma base y ordenar 'segun se requiera'?
en lugar de 'duplicar' [toda] la base, que no se hasta donde llegue [o pudiera llegar] a 'extenderse'

¿comentas?
saludos,
hector.

hola, Angelo !

... en Hoja 1... introduzco... que en la otra hoja se actualicen... automaticamente... mientras... voy agregando
... que se ordenen por su nombre, yo se que se puede hacer manualmente pero me quiero evitar ese paso [...]

suponiendo que en la columna 'A' vas agregando los nombres [incluyendo apellidos] y SIN 'repeticiones'...
podrias empezar con el siguiente codigo, que los iria auto-ordenando...
en el modulo de codigo de 'esa' hoja ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Dim Reciente: Reciente = Target
With Target.CurrentRegion
.Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlGuess
.Find(What:=Reciente).Offset(, 1).Select
End With
End Sub

[posiblemente] estoy 'fumando raro', pero... en la medida que aportes datos mas precisos... ;)
saludos,
hector.

Voy a probar Hector,

Saludos,

"Héctor Miguel" wrote in message
news:

hola, Angelo !

> ... en Hoja 1... introduzco... que en la otra hoja se actualicen...

automaticamente... mientras... voy agregando

> ... que se ordenen por su nombre, yo se que se puede hacer manualmente

pero me quiero evitar ese paso [...]

suponiendo que en la columna 'A' vas agregando los nombres [incluyendo

apellidos] y SIN 'repeticiones'...

podrias empezar con el siguiente codigo, que los iria auto-ordenando...
en el modulo de codigo de 'esa' hoja ==> Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Dim Reciente: Reciente = Target
With Target.CurrentRegion
.Sort Key1:=.Cells(1), Order1:=xlAscending, Header:=xlGuess
.Find(What:=Reciente).Offset(, 1).Select
End With
End Sub

[posiblemente] estoy 'fumando raro', pero... en la medida que aportes

datos mas precisos... ;)

saludos,
hector.