Registrar Factura Emitida después de Presupuestarlas
Esta pregunta es para el Sr. Dante tengo un libro de Presupuesto simple y muy poco automatizado donde copio y pego mas abajo cada presupuesto, después que cada cliente esta de acuerdo con el presupuesto, solo le coloco el numero de factura, lo que me gustaría es que al colocar el numero de factura allá una macro o solución que mande a una hoja de registro donde se vallan registrando esos datos donde están los números de facturas como los datos del cliente, fecha de facturación, numero de control y monto cancelado...
Respuesta de Dante Amor
2
H o l a:
Te anexo la macro para registrar facturas
Sub RegistrarFactura()
'Por.Dante Amor
Application.ScreenUpdating = False
If ActiveCell = "" Or ActiveCell.Offset(-1, 0) <> "FACTURA" Then
MsgBox "Elige una celda correcta"
Exit Sub
End If
'
hoj = ActiveSheet.Name
num = ActiveCell.Value
cli = ActiveCell.Offset(6, -2)
rif = ActiveCell.Offset(8, -2)
fec = Date
pre = ActiveCell.Offset(3, 0)
For j = ActiveCell.Row To Range("D" & Rows.Count).End(xlUp).Row
If Cells(j, "D") = "TOTAL G." Then
mon = Cells(j, "E")
Exit For
End If
Next
'
existe = False
For Each h2 In Sheets
If h2.Name = "Reg " & hoj Then
existe = True
Set h3 = h2
Exit For
End If
Next
If existe Then
u = h3.Range("A" & Rows.Count).End(xlUp).Row + 1
Else
Sheets.Add after:=Sheets(Sheets.Count)
Set h3 = ActiveSheet
h3.Name = "Reg " & hoj
h3.Range("A1:F1") = Array("CLIENTE", "RIF", "FECHA", "Nº PRESUPUESTO", "Nº FACTURA", "MONTO")
u = 2
End If
h3.Cells(u, "A") = cli
h3.Cells(u, "B") = rif
h3.Cells(u, "C") = fec
h3.Cells(u, "D") = pre
h3.Cells(u, "E") = num
h3.Cells(u, "F") = mon
Sheets(hoj).Select
Application.ScreenUpdating = True
MsgBox "Factura registrada: " & num, vbInformation, "REGISTRO DE " & hoj
End Sub:) S aludos. D a n t e A m o r. Recuerda valorar la respuesta. G r a c i a s ;)
