Codigos Macro

Sub NUEVABOLETA()

Rpta = MsgBox("¿Seguro desea una nueva boleta?", vbYesNo)

If Rpta = vbNo Then End

Range("A7:A16").Select

Selection.ClearContents

Range("C7:C16").Select

Selection.Clear.Contents

Range("E2").Select

Range("e2") = Range("e2") + 1

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Aplication.CutCopyMode = False

Range("B3:C3").Select

Selection.ClearContents

End Sub

Sub REGISTRARBOLETA()

If Range("TOTAL") = 0 Then End

NBoleta = Range("e2")

Fecha = Range("e4")

Cliente = Range("b3")

Total = Range("TOTAL")

IGV = Total * 0.19 / 1.19

Sheets("Registro").Select

Range("A3").Select

While ActiveCell <> Empty

ActiveCell.Offset(1, 0).Select

If ActiveCell = NBoleta Then

Rpta = MsgBox("Esta boleta ya ha sido registrada. ¿Desea registrala nuevamente?", vbYesNo)

If Rpta = vbYes Then GoTo Sigue

GoTo Sale

End If

Wend

Sigue:

ActiveCell = NBoleta

Selection.NumberFormat = """001""-0000"

Selection.HorizontalAlignment = xlCenter

ActiveCell.Offset(0, 1) = Fecha

ActiveCell.Offset(0, 1).HorizontalAlignment = xlCenter

ActiveCell.Offset(0, 2) = Cliente

ActiveCell.Offset(0, 3) = IGV

ActiveCell.Offset(0, 3).NumberFormat = "#,##0.00"

ActiveCell.Offset(0, 4) = Total

ActiveCell.Offset(0, 4).NumberFormat = "#,##0.00"

MsgBox ("La Boleta se ha registrado exitosamente")

Sale:

Sheets("Boleta").Select

End Sub

...