Saltar al contenido

¿Como crear numero de factura automatico en factura y guardar resumen?


Recommended Posts

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.

Enlace a comentario
Compartir con otras webs

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

Enlace a comentario
Compartir con otras webs

¿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

Enlace a comentario
Compartir con otras webs

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

Enlace a comentario
Compartir con otras webs

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

Enlace a comentario
Compartir con otras webs

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:

Enlace a comentario
Compartir con otras webs

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

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 96 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • Saludos amigos espero estén bien Estoy intentando hacer un formulario que me convierta unidades de masa sin embargo  en el mejor de los casos solo he podido lograr la conversión de una unidad a la vez en los TextBox 1, 3, 5, 7, 9, 11 y 13 y cuando lo logro el resultado que se copia  en la celda no se corresponde con el obtenido originalmente en el Textbox del Formulario (frmconv)  ejemplo al convertir 1900 Kg a Lb el resultado en el TextBox1 =4188,78298142 sin embargo al guardar el resultado lo que se copia en la Celda  "F11" es  418.878.298.142,00, adicionalmente el resultado de la conversión no se visualiza inmediatamente por lo que debo de hacer click en los TextBox 1, 3, 5, 7, 9, 11 y 13  para ver el resultado. Mucho les sabre agradecer la ayuda que me puedan brindar. PRUEBA.xlsm
    • Saludos a ambos. Copiar y pegar por sí solas, no tengo el conocimiento de que sirvan como "evento" para actualizar las referencias que buscas hacer, en la forma que lo quieres hacer, ó la fórmula como la quieres hacer. Te recomiendo abrir un tema similar en Macros, es posible que algún Maestro te de alguna idea. Por otro lado, si debe ser con funciones, entonces tendías que interactuar con COLUMNA() y FILA() para que al pegar el destino "sepa" donde está ubicado e intentar cambiar la referencia. =INDIRECTO(CARACTER(COLUMNA()+64)&FILA()) Algo como eso se podría usar para obtener el código ASCII de la letra de la columna (donde 65 es el código para “A”), y FILA() devuelve el número de la fila. La función CARACTER() convierte el código ASCII en una letra. Luego, INDIRECTO() toma la cadena resultante (por ejemplo, “A1”, “B2”, etc.) y la usa como una referencia de celda. En ese caso, una posible idea de editar tu ejemplo sería: =SI(INDIRECTO("'Casos de Prueba'!"&CARACTER(COLUMNA()+64)&"1")="Resultados Ciclo 1"; SI(CONTAR.SI(INDIRECTO("'Casos de Prueba'!"&CARACTER(COLUMNA()+64)&":"&CARACTER(COLUMNA()+64)); "OK")=0; 0; CONTAR.SI(INDIRECTO("'Casos de Prueba'!"&CARACTER(COLUMNA()+64)&":"&CARACTER(COLUMNA()+64)); "OK")); 0)   Enfatizo que es una idea, es muy probable que haya que editar. Así como esta su tema, la recomendación del maestro toma relevancia porque especular o deducir no es lo adecuado para intentar ayudar en este tipo de consultas. Por esta causa de mi parte por ejemplo no puedo aportar algo adicional.
    • En el ejemplo te he puesto 1 segundo para no hacer largo el gif, cámbialo a tu necesidad
    • Sub RecorrerRangoC() Set hoja = ActiveSheet Set rango = hoja.Range("C2:C" & hoja.Cells(hoja.Rows.Count, "C").End(xlUp).Row) If rango.Cells.Count = 0 Then MsgBox "No hay datos en la columna C.", vbExclamation Exit Sub End If For Each celda In rango.SpecialCells(xlCellTypeVisible) celda.Select Application.Wait Now + TimeValue("00:00:01") Next celda End Sub Prueba y comenta
    • Gracias   Al final funciona con esta formula. =SI.ERROR(C5*BUSCARV(A$2;TablaReparto[#Todo];COINCIDIR(D5;TablaReparto[#Encabezados];));C5) En la celda C5 he puesto la OT. Es similar a lo que me das como solución. ¡Muchas gracias por la ayuda!  
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.