Ejecutar macro en varias hojas
Publicado por luigi (13 intervenciones) el 01/07/2015 10:11:13
Buenos días, tengo esta macro, que me ordena los datos de las hojas correspondientes a los meses de enero, ferero,........diciembre. funciona correctamente en la hoja activa. Lo que quiero es que se ejecute en las hojas de enero a diciembre (hoja2, hoja3......hoja13) a la vez.
un saludo y gracias de ante mano por vuestra ayuda
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub ordenar()
Range("B4:AL116").Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("C4:C123"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"Encargado,Jefe de Negociado,Aux-Administrativo,Aux-Taquillero,Tec-Mantenimiento,Medico,D.U.E,Tec-Deportivo Vigilante,Socorrista,L.E.F,Tec-Deportivo N-1,Operario" _, DataOption:=xlSortNormal
ActiveSheet.Sort.SortFields.Add Key:=Range("D4:D123"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"Enlace Mañana,Mañana,Correturnos,Tarde,Enlace Tarde", DataOption:= _
xlSortNormal
ActiveSheet.Sort.SortFields.Add Key:=Range("E4:E123"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveSheet.Sort.SetRange Range("B4:AL123")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.ApplyEnd With
End Sub
un saludo y gracias de ante mano por vuestra ayuda
Valora esta pregunta
0