Hola Maku.
Yo creo que tu archivo ya cumple lo que quieres! Entiendo que querías una herencia... El primer cuadro lo coloreaste a mano y el segundo ha heredado eso, por lo que está esperando que lo colorees a mano también 😁
Fuera de bromas... Una opción sería que lo hagas con formato condicional y otra opción sería que lo hagas con macros, depende por cuál te inclines y si hay limitaciones en el entorno donde piensas ejecutarlo. Los archivos de macros tienen algunas limitaciones a nivel empresarial por las restricciones impuestas, por temas de seguridad, que impiden su ejecución. Ya nos comentas para poder ayudarte con algo
Por
DiegoPC, · publicado
Hola a todos!!
He grabado la siguiente macro pero cuando quiero cambiar la sentencia me da error.
"Selection.AutoFill Destination:=Range("K2:K631256")
Range("K2:K631256").Select
Selection.AutoFill Destination:=Range("K2").End(xlDow)
Range("K2").End(xlDow).Select
Os pongo la macro entera a continuación.
Muchas gracias de antemano por la ayuda.
Sub AÑADIRFORMULASFUENTEDEDATOS()
'
Columns("J:J").Select
Selection.TextToColumns Destination:=Range("J1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:=".", FieldInfo:=Array(Array(1, 2), Array(2, 1)), TrailingMinusNumbers:=True
Columns("K:K").Select
Selection.Delete Shift:=xlToLeft
Range("K1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = "NUM_MES"
Range("J3").Select
Columns("K:K").ColumnWidth = 42.57
Range("K2").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(CONCATENATE(YEAR(RC[-2]),""_"",MONTH(RC[-2])),AUX!R1C1:R25C2,2,FALSE)"
Range("K2").Select
Selection.AutoFill Destination:=Range("K2:K631256")
Range("K2:K631256").Select
Columns("K:K").ColumnWidth = 24.43
Range("L1").Select
Columns("L:L").ColumnWidth = 23.43
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = "DÍA DE LA SEMANA"
Range("L2").Select
ActiveCell.FormulaR1C1 = "=WEEKDAY(RC[-3],11)"
Range("L2").Select
Selection.AutoFill Destination:=Range("L2:L631256")
Range("L2:L631256").Select
Range("M1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveCell.FormulaR1C1 = "HORA"
Range("M2").Select
ActiveCell.FormulaR1C1 = "=HOUR(RC[-3])"
Range("M2").Select
Selection.AutoFill Destination:=Range("M2:M631256")
Range("M2:M631256").Select
ActiveWindow.SmallScroll Down:=-15
Range("K2:M2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveWindow.SmallScroll Down:=-60
ActiveWindow.ScrollRow = 631224
ActiveWindow.ScrollRow = 211054
ActiveWindow.ScrollRow = 122954
ActiveWindow.ScrollRow = 3874
ActiveWindow.ScrollRow = 2
ActiveWindow.SmallScroll Down:=-6
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub