factureren

[edsel_nl]

Hallo,

Ik ben van plan om te gaan factureren met excel op de microsoft site staat het volgende werkblad dat ik wil gaan gebruiken:
http://www.microsoft.com/netherland...tratie/factureren/factureren_met_excel_1.aspx

Nou heb ik alleen nog 1 functie die niet is opgenomen in het werkblad, en ik wel graag zou willen hebben namelijk:
Het onthouden van wat er verkocht is, en hoeveel.

Als voorbeeld:
in cel A1-100 het artikelcode
in cel B1-100 de omschrijving van het product
in cel C1-100 het aantal
Per regel een nieuw product.
Nou wil ik graag een knop met een macro die de gegevens in de cellen A, B en C onthoudt in een ander excel bestand. Het aantal moet dus wel steeds worden opgeteld per nieuw factuur. Zodat je kan zien wat er per jaar is verkocht.

Ik hoop dat iemand mij kan helpen.

Groeten eddy,

 

[robdgr]

Eddy,

Grappig om je vraag ook hier tegen te komen. Ik heb iets dergelijks, een debiteurenbewakingssysteem, ooit gemaakt met de macrorecorder en die werkt nog steeds. M.a.w. doe één keer wat je precies wilt, laat de macrorecorder meelopen en koppel die macro aan een plaatje.

Groet,

 

[edsel_nl]

Hoi rob,

Jij bent ook overal actief he :thumb:

Zou je mij dat voorbeeld kunnen sturen heb zelf al wat geprobeerd maar kom er niet uit. Het lukt mij wel om het naar een ander bestand weg te schrijven en ook naar het goede artikel. Maar hoe zorg je er voor dat het aantal verkochte artikelen van 1 soort bij elkaar worden opgeteld. Zodat je kan zien hoeveel er in een bepaald periode verkocht is van 1 artikel.

BVD!

Groeten

 

[Wigi]

Bekijk in VBA de

PasteSpecial methode

met als verdere mogelijkheid

xlPasteSpecialOperationAdd

Tel het tweede bereik (in de factuur) op bij het eerste (de samenvatting). Heb je gelijk ook dezelfde ranges enz.

Wigi

 

[robdgr]

Eddy,

Onderstaande haalt een aantal gegevens uit de factuur, zoals naam, fact.nr en bedrag en brengt deze naar een bestand voor debiteurenbewaking.

Sub fact_debbew()
'
' fact_debbew Macro
' De macro is opgenomen op 6-1-2006 door rdg.
'

'
    Windows("Debiteurenbewaking.xls").Activate
    Columns("E:G").Select
    Selection.EntireColumn.Hidden = False
    Rows("3:3").Select
    Selection.Insert Shift:=xlDown
    Range("A3").Select
    Windows("Factuur.xls").Activate
    Range("E16").Select
    Selection.Copy
    Windows("Debiteurenbewaking.xls").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Rows("3:3").Select
    Selection.Font.Bold = False
    Range("B3").Select
    Windows("Factuur.xls").Activate
    Range("H10:L10").Select
    Selection.Copy
    Windows("Debiteurenbewaking.xls").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C3").Select
    Windows("Factuur.xls").Activate
    Range("D15:E15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Debiteurenbewaking.xls").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D3").Select
    Windows("Factuur.xls").Activate
    Range("C17:E17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("Debiteurenbewaking.xls").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("D3").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Windows("Factuur.xls").Activate
    Application.Goto Reference:="R53C12"
    Range("L54").Select
    Selection.Copy
    Windows("Debiteurenbewaking.xls").Activate
    Range("E3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("G4").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("G3:G4"), Type:=xlFillDefault
    Range("G3:G4").Select
    Range("G4").Select
    Selection.AutoFill Destination:=Range("G3:G4"), Type:=xlFillDefault
    Range("G3:G4").Select
    Range("F4").Select
    Selection.AutoFill Destination:=Range("F3:F4"), Type:=xlFillDefault
    Range("F3:F4").Select
    Range("H4").Select
    Selection.AutoFill Destination:=Range("H3:H4"), Type:=xlFillDefault
    Range("H3:H4").Select
    Range("I4:K4").Select
    Selection.AutoFill Destination:=Range("I3:K4"), Type:=xlFillDefault
    Range("I3:K4").Select
    Columns("F:F").Select
    Selection.EntireColumn.Hidden = True
    Application.Goto Reference:="R3C1"
    ActiveWorkbook.Save
    Windows("Factuur.xls").Activate
    Application.Goto Reference:="R2C8"
End Sub

In dat debiteurenbestand is de eerste regel de optelling en voegt de macro eerst een lege regel toe, waar de benodigde gegevens worden geplaatst.

Volgens mij is dit anders dan jij bedoelt. Jij wilt voorraad bewaken en je factuur kan dus op verschillende plekken informatie over die hoeveelheden bevatten, tenzij je factuur een vast stramien heeft. Ik heb gepoogd die factuur te downloaden maar moest dan MS opgeven wat voor bedrijf ik heb. Kun je hem anders hier gezipt plaatsen?

Groet,

 

[edsel_nl]

Factureren met excel

Dit is het programma zoals die te downloaden is van de microsoft website (onaangepast)

 

[robdgr]

Gezien, nu geen tijd meer.