
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!
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


0