Étape 4: Créer une feuille de facture :
Ligne : =IF(C5="","",B4+1)
Code : Créer un lien de zone de liste avec le nom et le code de la page point d’installation. Lorsque vous vous connectez un lecteur de code barre avec détails autocollant code barre automatique pick.
Description: = I4
Quantité : cette colonne, que vous devez entrer manuellement selon Qté achat client
Prix : =IF(E4="","",VLOOKUP(C4,al,5,0)*E4)
** la macro pour enregistrer le projet de loi
Créez un bouton intitulé Save bill et copiez ce code : vous pouvez télécharger ce formulaire fichier mon fichier.
Void Dayendsales()
'
' Macro Dayendsales
''
Sheets("Tsales"). Sélectionnez
Columns("G:G"). Sélectionnez
Maj Selection.Insert: = xlToRight, CopierOrigine: = xlFormatFromLeftOrAbove
Range("E2:E255"). Sélectionnez
Selection.Copy
Range("G2"). Sélectionnez
Pâte Selection.PasteSpecial: = xlPasteValues, opération: = xlNone, SkipBlanks _
: = False, Transpose: = False
Sheets("Sales"). Sélectionnez
Range("B3:D1572"). Sélectionnez
Application.CutCopyMode = False
Selection.ClearContents
Range("D3"). Sélectionnez
End Sub
Void DayendPurchases()
'
' Macro DayendPurchases
'
Sheets("Tpurchase"). Sélectionnez
Columns("F:F"). Sélectionnez
Maj Selection.Insert: = xlToRight, CopierOrigine: = xlFormatFromLeftOrAbove
Range("D2:D643"). Sélectionnez
Selection.Copy
Range("F2"). Sélectionnez
Pâte Selection.PasteSpecial: = xlPasteValues, opération: = xlNone, SkipBlanks _
: = False, Transpose: = False
Application.CutCopyMode = False
Sheets("Purchase"). Sélectionnez
Range("C3:D625"). Sélectionnez
Selection.ClearContents
Range("E3"). Sélectionnez
End Sub
Void SaveBill()
'
' Macro SaveBill
'
Application.Run "'shop vente control.xls'!copy"
Application.Run '' boutique vente control.xls' ! SaleReplace"
End Sub
Void DayEnd()
'
' Macro DatEnd
End Sub