Jump to content

Lydia

Members
  • Content Count

    10
  • Joined

  • Last visited

About Lydia

  • Rank
    Member

Converted

  • Campos
    ;

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Buenos días. He realizado esta macro que lo que hace es si en la columna "revisión " de la hoja "facturación servicer" pone "no se remite" se traspase a la hoja "NO SE REMITE". Si sólo pongo esa condición la macro funciona perfectamente y rápido pero si añado que si en la columna "vendidas" de la hoja "facturación servicer" sea distinto a "no vendidas" con la sentencia If REVISIÓN = "NO SE REMITE" Or VENDIDAS <> "NO VENDIDAS" Then , para que también lo mueva a la hoja " no se remite" se me queda muy tostado el fichero y no es viable. He probado a hacerlo en dos partes, incluso en dos módulos pero seguro que hay algo mucho más eficaz. Ambas hojas tienen las mismas columnas y en el mismo orden. ¿Alguien me puede ayudar? Muchas gracias de antemano. También os facilito el fichero ejemplo. MODELO_FACTURACION_REVISION_PROYECTOS -PRUEBA3.xlsm
  2. 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
  3. 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
  4. Hola!! Disculpad ante todo. Perdón Antoni, te contesto por puntos: 1 SI, se añade a destino 2 No se hace nada 3.Se elimina de destino. Gracias de antemano.
  5. Mil disculpas porque seguro que no me explico adecuadamente y encima no puedo adjuntar los archivos por ley de protección de datos . Trato de explicarme desde el principio. Tengo un libro excel con cobros desde septiembre 2018 hasta actual que voy aumentando cada día registros (origen). Este libro contienes desde este mes, porque contiene más hojas con tablas dinámicas para análisis de datos para el jefe. Este tiene las mismas columnas o o por lo menos las principales comunes del archivo destino de cobros 2018 hasta actual. Para otro jefe , quiere un archivo "histórico" es decier completo desde l 2018 hasta ahora,con las mismas columnas y registros pero desde el 2018 entero hasta la fecha. El problema es que el cliente a veces me quita registros del fichero origen... es decir, lo que ya he grabado. En definitiva, lo que desearía, si se puede hacer, es que los registros del fichero origen se añadieran al de destino sin duplicar por el id de la columna "cr racmo" que es única y si se borra del fichero origen algún registro que ya esté en el de destino. también se actualice. En conclusión tengo un histórico del fichero destino que contiene registros hasta agosto 2018. El fichero origen contiene datos desde setiembre 2018 hasta actual que cada día se añaden o se borran registros según ciertas circunstancias. Su macro última funciona a la perfección a excepción de si se si borra un nuevo registro, no lo considera. Quiero que sea una foto de lo que actualmente vaya registrando en el fichero origen, por lo que faltaría es alguna sentencia (la cual no se´) que si por ese id ya no está en el fichero origen, no la incluya. Lo siento por la dificultad de explicar y mil gracias por todo! por adelantado!
  6. Muchas gracias Antoni! ahora no me coge duplicados así que fenomenal, pero si borro un registro del libro origen que ya estaba contenido en el de destino, no se me actualiza...Cómo puedo arreglar eso? De nuevo muchas gracias por todo.
  7. Hola Antoni! En primer lugar, mil gracias por tu ayuda. La estoy probando y funciona genial!! Una duda, si por lo que sea del origen quito un registro antiguo, también se actualiza? De nuevo millones de gracias por la aportación!!!!
  8. Hola a todos!! Soy bastante principiante en las macros y no se cómo resolver esta. Tengo un libro origen que actualizo diariamente las filas ( a veces tengo que quitar registros pero la mayoría añado) y quiero trasladar esa misma información a otro fichero histórico con las mismas columnas a otra ruta. Me gustaría que en el libro destino tuviera un botón para importar los nuevos datos del origen si tener. Por favor a ver si me pueden ayudar.Millones de gracias de antemano. Conseguí esta macro por internet y la modifique para mi pero no me funciona. Me pone error sobre todo en el procedimiento que marco en verde. Sub Importarcobros() 'Defino las variables a usar Dim wborigen As Workbook Dim wsorigen As Worksheet Dim wbdestino As Workbook Dim wsdestino As Worksheet Dim ruta As String ruta = "W:L\COBROS_2019 _PRUEBA_MACRO.xlsx" 'Llamamos a los datos de destino,solo tiene que estar abierto este libro Set wblibrodestino = Workbooks(ThisWorkbook.Name) Set wsHojaDestino = wblibrodestino.Worksheets("Cartera_actual") 'Llamamos a los datos de origen, no tiene que estar abierto este libro Set wblibroOrigen = Workbooks.Open(ruta) Set wshojaorigen = wblibroOrigen.Worksheet("Cartera actual") uFila = wshojaorigen.Range("A" & Rows.Count).End(xlUp).Row wshojaorigen.Range("A3:Z" & uFila).Copy Destination:=wsHojaDestino.Range("A" & Rows.Count).End(xlUp).Row Workbooks(wblibroOrigen.Name).Close Savechanges:=False End Sub
×
×
  • Create New...

Important Information

Privacy Policy