FACTURA

FACTURACION:
NIT:

Private Sub NIT_Change()
Sheets("Clientes").Select
Range("A1").Select

On Error Resume Next
    Cells.Find(What:=NIT.value, After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate

    comparation.Caption = ActiveCell

If comparation.Caption = NIT.value Then
    Selection.Offset(, -2).Select
    NOMBRE.value = ActiveCell
    Selection.Offset(, 1).Select
    DIRECCION.value = ActiveCell
End If

FECHA
FECHA = Date

CANTIDAD:

On Error Resume Next
If COD1.value <> Empty Then
    EXIS1.value = EXIS1.value - CANT1.value
    SUB1.value = PREC1.value * CANT1.value
    GUARDAR.SetFocus
        Sheets("DATA_BASE").Select
        ActiveCell.Offset(0, 0).Select
         ActiveCell = EXIS1.value
          End If


CODIGO1:

If COD1 > 6000 Then
    Sheets("DATA_BASE").Select

    On Error Resume Next
    Cells.Find(What:=COD1.value, After:=ActiveCell, LookIn:=xlFormulas, _
    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=False, SearchFormat:=False).Activate

    ActiveCell.Offset(0, 1).Select
    PROD1 = ActiveCell
    ActiveCell.Offset(0, 1).Select
    PREC1 = ActiveCell
    ActiveCell.Offset(0, 1).Select
    EXIS1 = ActiveCell

    CANT1.SetFocus

MENU

UserForm1.Hide
UserForm2.Show

CANCELAR:

UserForm1.Hide

LIMPIAR FACTURA:

Sheets("factura").Select

Range("A20:E34").Select

    ActiveWindow.SmallScroll Down:=-9

    Range("A20:E34,B13:C13,B15:C15,B17:C17,E11,E13").Select

    Range("E13").Activate

    Selection.ClearContents

    

   NIT = Empty

IMPRIMIR

Sheets("Factura").Select

Range("B12").Select

If comparation.Caption = NIT.value Then

    Range("B13").Select

    Do While Not IsEmpty(ActiveCell)

        ActiveCell.Offset(1, 0).Select

    Loop

    

    ActiveCell = NOMBRE.value

    ActiveCell.Offset(0, 1).Select

    ActiveCell.Offset(0, 1).Select

    ActiveCell = NIT.value

      End If

    

Sheets("Factura").Select

Range("E11").Select

ActiveCell = NOFAC.Caption

Range("B13").Select

ActiveCell = NOMBRE.value

Range("E13").Select

ActiveCell = NIT.value

Range("B15").Select

ActiveCell = DIRECCION.value

Range("B17").Select

ActiveCell = FECHA.value

MsgBox "La Factura ah sido Impresa con Éxito", vbOKOnly, "Resultado"

[AA1] = [AA1] + 1

GUARDAR:

Sheets("Factura").Select

Range("A20").Select

Do While Not IsEmpty(ActiveCell)

    ActiveCell.Offset(1, 0).Select

Loop

ActiveCell = COD1.value

ActiveCell.Offset(0, 1).Select

ActiveCell = PROD1.value

ActiveCell.Offset(0, 1).Select

ActiveCell = PREC1.value

ActiveCell.Offset(0, 1).Select

ActiveCell = CANT1.value

ActiveCell.Offset(0, 1).Select

ActiveCell = SUB1.value

COD1 = Empty

PROD1 = Empty

PREC1 = Empty

CANT1 = Empty

SUB1 = Empty

EXIS1 = Empty

COD1.SetFocus

USER FORM

NIT.SetFocus

FECHA.value = Date

Sheets("Factura").Select

Dim fact As Double

fact = [AA1] + 1

NOFAC.Caption = fact

End Sub