Macros excel macro a sistema de factura simple
Tengo un sistema sencillo de factura necesito hacer las macros para botón de imprimir y guardar datos de factura en base de datos cada vez que se imprima factura nueva.
1 Respuesta
H o l a:
Envíame tu archivo y me explicas qué se va a imprimir, qué datos se van a guardar y en dónde se van a guardar.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Carlos Carrion” y el título de esta pregunta.
¡Gracias! Por responder te envíe el archivo adjunto a tu correo...
Saludos
Carlos
H o l a:
Te anexo la macro para guardar en la base de datos e imprimir.
Sub GuadarFactura()
'Por.Dante Amor
Set h1 = Sheets("FACTURA")
Set h2 = Sheets("BASE.DAT")
'
If h1.[C5] = "" Then
MsgBox "Falta el cliente", vbInformation, "ERROR DE DATOS"
Exit Sub
End If
'
u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 13 To 37
If h1.Cells(i, "B") = "" Then Exit For
h2.Cells(u, "A") = h1.[C5] 'cliente
h2.Cells(u, "B") = h1.[J6] 'fecha
h2.Cells(u, "C") = h1.[J5] 'no fact
h2.Cells(u, "D") = h1.Cells(i, "C") 'desc
h2.Cells(u, "E") = h1.Cells(i, "B") 'qty
h2.Cells(u, "F") = h1.Cells(i, "J") 'price
h2.Cells(u, "G") = h1.Cells(i, "L") 'total
u = u + 1
Next
h1.PrintOut
MsgBox "Factura impresa y guardada en la base de datos", vbInformation
End Sub[code]‘:)
‘Saludos. Dante Amor. Recuerda valorar la respuesta.
Dante buenas tardes, espero te encuentres bien, necesito unos consejos, del formato que te envíe anteriores, me gustaría crear reportes de las facturas por clientes, por ejemplo si facturo a maría 20 facturas diferentes números y quiero sacar una relación de maría y cuantas facturas le he realizado a maría...
Con mucho gusto te ayudo con todas tus peticiones.
Crea una nueva pregunta en Todoexpertos dentro del tema de microsoft excel. En el desarrollo de la pregunta escribe: "para Dante Amor". Ahí me describes con detalle y con ejemplos lo que necesitas.
Sal u dos
