MACROS PARA FACTURAS EN EXCEL

En este video aprenderemos a colocar los códigos necesarios para guardar facturas y reimprimirlas en un sistema

CÓDIGOS A UTILIZAR:

'BOTON DE FINALIZAR FACTURA
Sub FINALIZAR_FAC()

Application.ScreenUpdating = False


'REGISTRAR LAS FACTURAS EN HISTORIAS DE FACTURA
Sheets("FACTURAS REGISTRADAS").Select
Rows("1:49").Select
ActiveWindow.SmallScroll Down:=-33
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Factura").Select
Range("A1:F49").Select
ActiveWindow.SmallScroll Down:=-39
Selection.Copy
Sheets("FACTURAS REGISTRADAS").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Factura").Select
Application.CutCopyMode = False


'LIMPIAR LA COLUMNA CODIGO DEL PRODUCTO
'Selection.ClearContents
Range("A18").Select
Selection.ClearContents
Range("A19").Select
Selection.ClearContents
Range("A20").Select
Selection.ClearContents
Range("A21").Select
Selection.ClearContents
Range("A22").Select
Selection.ClearContents
Range("A23").Select
Selection.ClearContents
Range("A24").Select
Selection.ClearContents
Range("A25").Select
Selection.ClearContents
Range("A26").Select
Selection.ClearContents
Range("A27").Select
Selection.ClearContents
Range("A28").Select

'LIMPIAR LA COLUMNA CANTIDAD
Selection.ClearContents
Range("D18").Select
Selection.ClearContents
Range("D19").Select
Selection.ClearContents
Range("D20").Select
Selection.ClearContents
Range("D21").Select
Selection.ClearContents
Range("D22").Select
Selection.ClearContents
Range("D23").Select
Selection.ClearContents
Range("D24").Select
Selection.ClearContents
Range("D25").Select
Selection.ClearContents
Range("A26").Select
Selection.ClearContents
Range("D27").Select
Selection.ClearContents
Range("D28").Select

'LIMPIAR CODIGO DEL CLIENTE, DOMICILIO Y DESCUENTO
Selection.ClearContents
Range("B17").Select
Selection.ClearContents
Range("D17").Select
Selection.ClearContents
Range("F17").Select
Selection.ClearContents
Range("C9").Select
Selection.ClearContents

[F6] = [F6] + 1

Sheets("INICIO").Select
Range("H8").Select

ActiveWorkbook.Save
Application.ScreenUpdating = True

End Sub

-------------------------------------------------------------------------------------------
★ Dale Like ★ | ★ Comenta ★ | ★ Suscríbete ★
-------------------------------------------------------------------------------------------

Los animamos a que se suscriban si les gusta el contenido y nos comenten sus opiniones o dudas. Gracias!!

SIGUENOS EN: