Hola a todos

Recien comienzo a intentar aprender por mi cuenta VBA y estoy haciendo mi primer factura en la que quisiera que por medio de un boton se generase el numero de factura automaticamente y se copiaran: ese numero correspondiente de factura, el nombre del cliente y el importe. Dichos datos se guardan en otro libro a modo de resumen donde la primer columna es ese numero automatico generado, la segunda el nombre del cliente y finalmente el importe.

He estado mirando codigos y solo me he liado y estoy hecho una maraña. Si alguien pudiese orientarme, se lo agradeceria ampliamente.

Un saludo y gracias por la atencion.

Buenas.......

Comienza por adjuntar un archivo ejemplo..........normas del foro.....

Un saludo,

Tese

Hola tese1969, gracias por atender

Desconozco la mecanica del foro... lo lamento. Adjunto un archivo de lo que ponia. En teoria quisiera tener varios libros excel con distintos clientes y que en otro libro resumen, se registre como lo pongo en la 2da pestaña.

Ansioso por tus sugerencias. Un saludo

Factura1.xls

No me deja abrir tu archivo...........me lo bloquea el antivirus.............mira a ver si lo puedes subir comprimido en .rar......

Un saludo,

Tese

Hola

Te lo envio en .RAR nuevamente

Gracias

Factura1.rar

¿Qué referencia debes tomar para generar el nuevo número de factura?

Necesitas que pase los datos de nº factura, cliente e importe total a "Resumen"......¿es eso?

Y suponiendo que Resumen está en otro libro, no?........es importante conocer la estructura de tu libro Resumen....es decir, a partir de qué línea estarían los datos y en qué columnas.......

Si no te supone mucho esfuerzo.....y siempre con datos ficticios, intenta adjuntar los 2 archivos (cliente y Resumen) para poder probar en "real" el código.......

Un saludo,

Tese

Si, de lo que es la factura, que el numero de la misma, el nombre del cliente e importe lo pase a RESUMEN que en teoria es otro libro de excel. Los datos comienzan en la columna A a la altura de la fila 6. Mas o menos asi:

4

5 Nº Factura | Cliente | Importe

6 XXXXXX

Estoy checando ahora mismo que con End(xlUp).Row puedo encontrar la fila vacia.

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

Creo que acabo de conseguirlo. Este es el codigo que tengo:

Workbooks("Resumen.xlsm").Activate

ultimofolio = Range("A600").End(xlUp).Row

ultimofolio = ultimofolio + 1

Cells(ultimofolio, 1).Select

c = Cells(ultimofolio - 1, 1).Value + 1

ActiveCell.Value = c

ultimocliente = Range("B600").End(xlUp).Row

ultimocliente = ultimocliente + 1

Cells(ultimocliente, 2).Select

ActiveCell.Value = "madre mia"

El numero de <<factura>> se genera !!!.... pero ahora no se como copiar los datos de la factura al resumen y claro, poner el numero <<de factura>> a la factura... jo ....

Pero tu código, creo, lo que hace es trabajar sobre el fichero Resumen.xlsm.........cuando en realidad lo que necesitas es partir del fichero de cliente.......y pasar los datos necesarios a Resumen.......

Por lo que me ha parecido entrever, el número de factura sería 1 más del último que tengas en resumen, no?

Lo importante a la hora de estructurar el código es tener claro qué debe hacer.......y saber si partimos de una información u otra.........

Un saludo,

Tese

Mmm pues si... esta mal haberlo hecho asi? Lo debo cambiar de libro?

SI, la factura tendria que ser 1 mas a el ultimo de resumen. Podrias decirme como copiar de un libro a otro los datos. Pues como veras en el codigo este usa activecell. Como seria?

activecell.value= worksheets("Factura").range("C3") ?

:disillusionment:

Buenas de nuevo.....

Las formas de incluir datos de una hoja a otra ó de un libro a otro son diversas.......

Yo personalmente, siempre que no sea muy engorroso, prefiero omitir "Copiar" y "Pegar"......de manera que me gusta más indicarle qué valores debe procesar y dónde colocar los mismos..........

Aunque vayas a usar datos de "Resumen", puedes lanzar el código desde "Factura".........y referirte a uno u otro según entiendas.......

Por cierto, veo que vas haciendo progresos por tí mismo, lo que me hace pensar que en breve estarás en el foro ayudando a otros.....:eagerness:

Mira a ver si quieres seguir investigando ó montamos un código (que sería bastante sencillo, por cierto.....jejeje.....para motivarte....)

Un saludo,

Tese

Gracias, es un placer contar con tu colaboracion. Sigo con ello y en cuanto lo resuelva lo comparto. Un saludo y te aseguro que esta espina no se quedara ahi.:tennis:

Como tú veas y prefieras..........sabes que si necesitas una mano se te ofrecerá gustosa.......

Un saludo y suerte!!!.....:boxing:

Tese