Excel - Ordenar datos de varias hojas según columna de la primera Hoja

 
Vista:
sin imagen de perfil

Ordenar datos de varias hojas según columna de la primera Hoja

Publicado por Ricardo (1 intervención) el 14/12/2021 14:52:44
Hola;

Alguien sabe cómo ordenar datos de varias hojas de excel cada vez que se ordena la primera hoja?
Por ejemplo:
Primera hoja llamada "Alumnos" tiene dos columnas "Apellido" y "DNI"; cada vez que cargo el DNI, se ordena alfabéticamente esta hoja de "alumnos"; pero...
... hay otra hoja llamada "FEBRERO" con datos de presentismo y ausentismo de esos alumnos cuyas columnas de datos son: "Día 1", "Día 2", "Día 3", etc..

¿Cómo hacer para que cada vez que se ordene ALFABETICAMENTE la hoja "Alumnos", también se ordenen las demás hojas con sus correspondientes datos de asistencia?

Así ordeno la primera hoja
****************************************************
Sub ordenar()
Dim rangoDatos As Range
Dim rangoDatosB As Range
Dim campoOrden As Range
Dim ultimaFila As Long

ultimaFila = Sheets("DA").Range("B" & Rows.Count).End(xlUp).Row
Set rangoDatos = Range("B5:AC" & ultimaFila)
Set campoOrden = Range("B5")

rangoDatos.Sort key1:=campoOrden, order1:=xlAscending, Header:=xlYes
End Sub

Sub ProtegerHoja()
Sheets("DA").Select
ActiveSheet.Protect ("K1m0n001")
End Sub

Sub DesprotegerHoja()
Sheets("DA").Select
ActiveSheet.Unprotect ("K1m0n001")
End Sub
*********************************************************************************

Muchas 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
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Ordenar datos de varias hojas según columna de la primera Hoja

Publicado por Antoni Masana (2474 intervenciones) el 14/12/2021 15:59:23
Sube un libro de ejemplo.

Saludos.
\\//_
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