¿Como ingresar, guardar y editar información de facturas para la generación de ordenes de pago con cheques?
"Para DANTE AMOR"
Estimado experto, en esta oportunidad recurro a ti con una nueva inquietud, y es que necesito a través de un formato de excel prestablecido poder cargar la información de una factura o presupuesto para generar una orden de compra o servicio y posteriormente el cheque para la adquisición de dichos insumos, en el intento me bloquee porque no puedo generar el código que me permita guardar varios items de la factura y que los pueda visualizar posteriormente en ese mismo orden si deseo editarlos a futuro, o llamar los datos desde otra hoja.
1 Respuesta
H o la:
Envíame un correo nuevo con ejemplos de lo que necesitas.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Jose Rohnal B.P” y el título de esta pregunta.
Listo hermano ya te envié toda la información a tu correo
Hola Dante Amor:
Recibiste la información? sino para enviártela nuevamente hermano!
Saludos desde venezuela
Te anexo la macro para guardar la orden en la hoja "informe oc"
Sub Captura_Datos()
'Act.Por.Dante Amor
'
Continuar = MsgBox("¿Desea Guardar la Orden de Compra?", vbYesNo + vbExclamation, "Orden de Compra")
If Continuar = vbNo Then Exit Sub
'
Set h1 = Sheets("ORDENES")
Set h2 = Sheets("INFORME OC")
u = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
i = 15
Do While h1.Cells(i, "A") <> ""
h2.Cells(u, 1).Value = h1.Range("K1")
h2.Cells(u, 2).Value = Date
h2.Cells(u, 3).Value = h1.Range("L25")
h2.Cells(u, 4).Value = h1.Range("K3")
h2.Cells(u, 5).Value = h1.Range("K4")
h2.Cells(u, 6).Value = h1.Range("C13")
h2.Cells(u, 7).Value = h1.Range("B6")
h2.Cells(u, 8).Value = h1.Range("B7")
h2.Cells(u, 9).Value = h1.Range("B8")
h2.Cells(u, 10).Value = h1.Range("B9")
H2. Cells(u, 11).Value = h1.Cells(i, "A")
H2. Cells(u, 12).Value = h1.Cells(i, "B")
H2. Cells(u, 13).Value = h1.Cells(i, "D")
H2. Cells(u, 14).Value = h1.Cells(i, "E")
H2. Cells(u, 15).Value = h1.Cells(i, "J")
H2. Cells(u, 16).Value = h1.Cells(i, "K")
H2. Cells(u, 17).Value = h1.Cells(i, "L")
u = u + 1
i = i + 1
Loop
MsgBox "Operación Exitosa"
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
