Saludos Profesor Sergio, de ante mano gracias por responder, realice lo que me sugirió coloque el código donde me indicó, sin embargo me sigue arrojando el mismo error.
' Restaurar formato de fuente
With wsHistorico.Rows("2:2").Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
' Incrementar automáticamente el número de recibo
wsRecibo.Range("J2").Value = wsRecibo.Range("J2").Value + 1
'Corrección de Error en impresión
Application.Wait (Now + TimeValue("0:00:01"))
' Imprimir
wsRecibo.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Por
dorgelis, · 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