Stap 4: Maak een factuur blad:
Lijn: =IF(C5="","",B4+1)
Code: Maak een koppeling naar een lijst met setup pagina object code en naam. Wanneer u een streepjescodelezer aansluit met streepjescode sticker details zal automobiel pick.
Beschrijving: = I4
: Deze kolom qty hebt u handmatig invoeren volgens klant aankoop veld
Prijs: =IF(E4="","",VLOOKUP(C4,al,5,0)*E4)
** macro voor opslaan bill
Maak een knopje opslaan bill en kopieer deze code: U kunt dit bestand formulier mijn bestand downloaden.
Sub Dayendsales()
'
' Macro Dayendsales
''
Sheets("Tsales"). Selecteer
Columns("G:G"). Selecteer
Selection.Insert Shift: = xlToRight, CopyOrigin: = xlFormatFromLeftOrAbove
Range("E2:E255"). Selecteer
Selection.Copy
Range("G2"). Selecteer
Selection.PasteSpecial plakken: = xlPasteValues, bewerking: = xlNone, SkipBlanks _
: = Onwaar, transponeren: = False
Sheets("Sales"). Selecteer
Range("B3:D1572"). Selecteer
Application.CutCopyMode = False
Selection.ClearContents
Range("D3"). Selecteer
End Sub
Sub DayendPurchases()
'
' Macro DayendPurchases
'
Sheets("Tpurchase"). Selecteer
Columns("F:F"). Selecteer
Selection.Insert Shift: = xlToRight, CopyOrigin: = xlFormatFromLeftOrAbove
Range("D2:D643"). Selecteer
Selection.Copy
Range("F2"). Selecteer
Selection.PasteSpecial plakken: = xlPasteValues, bewerking: = xlNone, SkipBlanks _
: = Onwaar, transponeren: = False
Application.CutCopyMode = False
Sheets("purchase"). Selecteer
Range("C3:D625"). Selecteer
Selection.ClearContents
Range("E3"). Selecteer
End Sub
Sub SaveBill()
'
' Macro SaveBill
'
Application.Run "' verkoop control.xls'!copy winkel"
Application.Run '' winkel verkoop control.xls'! SaleReplace"
End Sub
Sub DayEnd()
'
' Macro DayEnd
End Sub