Copiar datos de una celda y pegarlos en otra celda de otro libro

[Justo62]

Hola, trato de copiar el dato que hay en la última celda de la "Hoja1" columna "A" del libro "NumeroFactura.xlsx" sumarle 1 y pegarlo en el libro activo "PlantillaFacturas.xlsx" hoja "Facturas" celda "E14" (Si la celda "E14" Ya tiene número que no ejecute la macro). Una vez realizada esta parte, la siguiente sería, copiar el valor de la celda "E14" y añadirlo a la siguiente celda libre de la "Hoja1" columna "A" del libro "NumeroFactura.xlsx". Adjunto fichero , intento subir un archivo y no soy capaz

Archivos.zip

[Smako]

Te adjunto los 2 libros. El que no tiene la macro solo tiene un pequeño cambio y el otro lo programé en el botón de facturas que habías puesto

Facturas.zip

[Justo62]

Muchas gracias Smako, es lo que intentaba hacer, indudablemente está perfecto, ahora daré el tema por solucionado

- - - - - Mensaje combinado - - - - -

Tema solucionado

[Smako]

Muchas gracias Smako, es lo que intentaba hacer, indudablemente está perfecto, ahora daré el tema por solucionado

- - - - - Mensaje combinado - - - - -

Tema solucionado

Antes de que lo cierren me percaté de un error que te dará después de llegar al consecutivo 9, cambia la linea de código:

x = Right(Factura, 1)

Por esta:

x = Right(Factura, 4)

[Justo62]

OK, gracias por tu interés, he seguido trabajando tu código para finalizarlo a mi gusto - En el primer post por error he dejado el fichero modificado