Agrupar varias Macros en una
Publicado por Jose Maria (22 intervenciones) el 09/05/2016 14:51:41
Hola, Buenos días a todos, necesito de vuestra ayuda, si podéis me respondéis. muchas gracias de antemano.
Tengo un programa con los doce meses del año con formulas condicionales que segun una 13ª hoja se van cabiando las celdas de los doce mes a distintos colores cogiendo esos valores de la 13ª hoja pero no puedo unificar la macro en una y tengo 12 macros "Ene., Feb., y asi los doce mesesos mando el encavezado y final de la macro:
y la parte final de la macro
Así con los doce meses, como puedo unificarlos en una sola macro lo he intentado poniendo en la cavezera ("Ene. ,Feb.) , y asi los doce meses pero no me funciona la macro.
cualquier solucion me que daria satisfecho .
muchas gracias de antemano
Jose Maria Arcas
Lorca Murcia España.
Tengo un programa con los doce meses del año con formulas condicionales que segun una 13ª hoja se van cabiando las celdas de los doce mes a distintos colores cogiendo esos valores de la 13ª hoja pero no puedo unificar la macro en una y tengo 12 macros "Ene., Feb., y asi los doce mesesos mando el encavezado y final de la macro:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub ENERO()
'
' ENERO Macro
'
'
Sheets("ENE.").Select
Range("A1:BZ200").Select
ActiveSheet.UnprotectActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.UnprotectSelection.FormatConditions.Delete
Range("A1:BZ200").Select
Range("BZ200").Activate
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="='CREAR'!$E$6"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.Color = -16777088
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.399945066682943
End With
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="='CREAR'!$F$6"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.Color = -16777088
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.399945066682943
y la parte final de la macro
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="='CREARTURNO'!$E$50"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="='CREARTURNO'!$F$50"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.14996795556505
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Sheets("ENE.").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("A1").Select
End Sub
Así con los doce meses, como puedo unificarlos en una sola macro lo he intentado poniendo en la cavezera ("Ene. ,Feb.) , y asi los doce meses pero no me funciona la macro.
cualquier solucion me que daria satisfecho .
muchas gracias de antemano
Jose Maria Arcas
Lorca Murcia España.
Valora esta pregunta
0
