Jump to content

Archived

This topic is now archived and is closed to further replies.

Lydia

ANSWERED cambiar rango hasta la última celda con datos

Recommended Posts

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
 

 

 

Share this post


Link to post
Share on other sites

Hola Antoni!

Muchas gracias por tu ayuda, pero me sigue saliendo el mismo error "error definido por la aplicación o el objeto"

Adjunto el fichero de prueba por si le sirve de mejor guía.

Muchas gracias de nuevo

PRUEBA.xlsm

Share this post


Link to post
Share on other sites

Selection.AutoFill Destination:=Range(Range("K2"), Range("K2").End(xlDown))

Range(Range("K2"), Range("K2").End(xlDown)).Select

Revisa toda la macro por si hubiera más instrucciones con este error.

Si no te funciona, comentas.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




  • Posts

    • Saludos expertos, por favor necesito de sus ayudas a alguien que disponga de tiempo, necesito guarda en PDF en un carpeta que se encuentra en descarga Que se busca agregar -Que cuando se corra la macro para generar el PDF se guarde estos datos en la base de datos. -Si un usuario(Nombre) le vuelvan a generar un PDF en un rango de = 7 días atrás mande un mensaje: usuario ya fue generado copia y fecha cuando fué creado y todo. Ajunto el archivo por favor muchísimas gracias a cada uno de ustedes. Feedback Formal-MACRO-PDF-1.xlsm
    • Capo @Gerson Pineda !! Una vez más, muchas gracias. Bendiciones y un fuerte abrazo en la distancia! Rubén
    • Bueno al final he podido probarlo un poco y es curioso Antoni que hay dos meses Marzo y Noviembre que la primera semana es un domingo y se repite la semana.   Mira el archivo que lo he completado para que funcionen todos los meses.   Semana numero.xlsm
    • Estupendo Antoni, eso es lo que estaba buscando, ahora si me esta funcionando, he probado con dos meses y me ha funcionado, no me da tiempo a probar mas, pero es de lógica que deba de funcionar con los demás meses.   Muchas gracias.    
    • Hola, necesito haceros una pregunta y de momento no tengo fichero de ejemplo (todavía intento ver cómo crearlo, no he sido capaz). Hice una macro para importar un fichero xml a excel. Todo bien, el problema es que uno de los campos que viene en formato texto, al importarlo no conserva ese formato, se queda en formato general. Es una columna numérica de este tipo 1,202020 o 2,33333 etc. Al importar aparece de esta manera: 1202020 o 233333 etc. Me elimina la coma. Os pego el código que estoy usando, por si alguien supiera otro y poder probar con él, o si añadiendo algo más me conerva el formato original, a ver si se soluciona ese error. Gracias!      Dim FilePath As String Dim Book As Workbook 'Load XML Data to New Workbook FilePath = "\\MIRUTA\*.xml" Set Book = Workbooks.OpenXML(FilePath) 'Copy to active Worksheet Book.Sheets(1).UsedRange.Copy ThisWorkbook.Sheets("FICHERO").Range("A1") Rows(1).EntireRow.Delete 'Close New Workbook Book.Close False  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy