Entiendo que en el momento que tuviera dos celdas consecutivas sin fórmula que tuviera que recuperar ese código que planteas no me valdría, porque estoy copiando una fórmula que no existe de la celda de arriba en la celda de abajo de ella.
imagino que con borrar unas lineas te refieres a eliminar esos registros, estirar hacia abajo la tabla y en las nuevas líneas creadas añadirlos al final con los datos que tuvieran los antiguos, con las fórmulas arrastradas y creadas de nuevo. Entonces habria que escribir a mano todos los datos de cada columna a rellenar de todas las filas nuevas, dando lugar a cometer errores de copia/pega o reeescritura. Además, los registros los tengo ordenados con cierto orden , le perdería.
es lo que comentaba antes, era solución funcional trabajando con un excel en el mismo idioma en los dos ordenadores, por eso esto queda descartado, ya que por lo que veo excel no reconoce las funciones de un idioma a otro.
No sé, la verdad que me sorprende un poco que no se pueda hacer lo que planteo aquí al inicio.. Al final me voy a conocer todos los foros, ajja. Un saludo!
Por
MANTONIOPM, · 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