Excel vba macro factuur inboeken naar ander excel tabblad

[jord]

Beste mensen,

 

Ik ben momenteel bezig met het uitwerken van een excel boekhoudprogramma. Echter krijg ik mijn factuur gegevens niet via één knop naar het tabblad verkopen. Mijn kennis op het gebied van macro's is zeer beperkt. Ik heb wel al een code gevonden en die ik werkend heb gekregen, maar niet naar mijn wens. Hieronder de macro die ik verwerkt heb.

 

Sub Factuur_inboek()

If IsEmpty(Sheets("verkoopfactuur").Range("n27")) Then
MsgBox ("factuurnummer niet ingevuld")
Exit Sub
End If

    Sheets("verkoop & opbrengsten").Select
    Rows("4:4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("G5:K5").Copy
    Range("G5").Select
    ActiveSheet.Paste
    Range("D5").Select
    Application.CutCopyMode = Fals
        Range("B5").Value = Sheets("verkoopfactuur").Range("F4").Value 'datum
        Range("B5").Value = Sheets("verkoopfactuur").[E13].Value 'datum
        Range("C5").Value = Sheets("verkoopfactuur").[F1].Value 'soort
        Range("D5").Value = Sheets("verkoopfactuur").[N27].Value 'volgnummer
        Range("E5").Value = Sheets("verkoopfactuur").[B10].Value 'klant
        Range("F5").Value = Sheets("verkoopfactuur").[J30].Value 'totaal exclusief btw
        Range("G5").Value = Sheets("verkoopfactuur").[J33].Value 'btw verlegd
        Range("H5").Value = Sheets("verkoopfactuur").[J33].Value 'btw perc 0
        Range("I5").Value = Sheets("verkoopfactuur").[J34].Value 'btw perc 6
        Range("J5").Value = Sheets("verkoopfactuur").[J35].Value 'btw perc 21
        Range("K5").Value = Sheets("verkoopfactuur").[J37].Value 'totaal
        
   

    
End Sub
 

Echter deze macro maakt steeds een nieuwe regel in mijn tabblad en hij plaatst de gegevens erboven i.p.v. eronder. Is er iemand die mij hier mee kan helpen of uitleg kan geven op het gebied van macro's.

 

Mijn dank is groot.

 

Groet

 

24 september 2018 aangepast door jord

[JeanPaul28]

Graag voorbeeld bestand

 

[emielDS]

  Rows("4:4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

 

rijen kunnen enkel boven toegevoegd worden, je kan dat oplossen door van "4:4", "5:5" te maken.

 

Range("G5:K5").Copy
    Range("G5").Select
    ActiveSheet.Paste

ik weet niet wat daar de bedoeling van is maar kan je beter verander naar

Range("g5:k5") = Range ("g5:k5).value

of

[g5:k5]=[g5:k5].value

gebruik steeds zo weinig mogelijk select aan gezien vba het aantal beperkt.

 

en hier plakje 2 verschillende data in dezelfde cel

Range("B5").Value = Sheets("verkoopfactuur").Range("F4").Value 'datum
        Range("B5").Value = Sheets("verkoopfactuur").[E13].Value 'datum

[emielDS]

Plaats eens een voorbeeldbestand als je verder wil geholpen worden.

[jord]

Beste Emiel,

 

Hierbij het voorbeeldbestand.

 

Gr. Jordy

bestand voor hulp.xlsm

[jord]

Hallo,

 

Bedankt voor uw hulp ga het meteen proberen en dan laat ik u dat weten. 

 

gr