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!!
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