Factuurnr kopieren naar factuur en gegevens terug

[rjwerf]

Vrienden ik heb een probleempje.
Voor jullie waarschijnlijk simpel maar ik heb hem hier nog niet kunnen ontdekken.

In een boekhoud exel heb ik nummers staan.
In een sjabloon heb ik dat nummer eenmalig nodig voor een factuur. Dus de factuur moet het laatst factuur nr met een lege regel op halen.
als de factuur gevuld is moeten een paar gegevens terug gekopieerd worden naar het eerste sheet in de regel achter het net gekopieerde nr.
Beetje omslachtig uitgelegd daarom even een bestandje erbij

Bekijk bijlage Voorbeeld.xls
:thumb:

 

[jbronzwaer]

factuur boeken

Bekijk bijlage rjwerf(jb).xls

 

[Warme bakkertje]

Beperk de schrijfbewerkingen, datum werd verkeerd weergegeven, factuurnr werd fout opgehaald.

Sub boek_factuur()
    Application.ScreenUpdating = False
    sq = [B5].Value & "|" & DateValue([B6].Value) & "|" & Format([B7].Value, "#,##0.00 €")
    With Sheets("Boekhouding")
        [B3].Value = .Cells(.[C100].End(xlUp).Row, 1).Offset(1)
        .Cells(.[C100].End(xlUp).Row + 1, 3).Resize(, 3) = Split(sq, "|")
    End With
    Application.ScreenUpdating = True
    MsgBox ("Factuur geboekt !")
End Sub

 

[rjwerf]

Super, dit is bijna wat ik wil. En zo snel (slapen jullie niet snachts?)

Maar eigenlijk hoopt ik op 2 macro's.
1 om het nummer op te halen. En 1 om de gegevens te boeken achter het net op gehaalde nummer.
Zou je mij kunnen vertellen wat de regels doen. Ik ben een VB nono maar ben wel geïnteresseerd wat het nu doet om het evt te verbouwen.. :thumb:

 

[rjwerf]

Ik zag net nog een klein probleempje.
De valuta die gekopieerd wordt geeft hij als tekst weer in het veld (en kan ik er niet automatisch mee op tellen)
Is dat ook te fixen?

Alvast super bedankt

 

[trucker10]

De valuta die gekopieerd wordt geeft hij als tekst weer in het veld (en kan ik er niet automatisch mee op tellen)

Met de macro van "Warme Bakkertje " kan ik met de valuta rekenen , doe anders eens een simpele test bv E8*2 zet dat op rij 8 in kolom F ( cel F8 ) .

 

[rjwerf]

Helaas werken =Som(XX:XX) formule's niet en krijg ik links een een groen vlak je dat de waarde als test is op geslagen, ook als ik de cel voor definieer al valuta

 

[HSV]

’k Was er ook al aan begonnen en had @Jan nog maar gereageerd.
Inmiddels zijn jullie verder, maar plaats het maar.

Enig uitleg staat in het bestandje (blauw).

 

[jbronzwaer]

Foutjes, door de warme bakker zó vriendelijk vermeld, gerepareerd.
De code van de warme bakker is zeer slim geprogrammeerd maar, geloof me, voor VB-leken onbegrijpelijk. Met alle respect hier dus nog eens mijn code met wat hopelijk begrijpelijk commentaar, omdat je daarom vraagt.

Sub boek_factuur()
'   reserveer geheugenruimte voor variabelen
    Dim lastrij As Long, facnum$, naam$, bedrag As Long
    
'   kopieer de ingevoerde gegevens naar variabelen
    naam = [B5].Value
    datum = [B6].Value
    bedrag = [B7].Value
    
    With Sheets("Boekhouding")
    
    '   bereken de laatste rij in het blad "Boekhouding", kolom C en bewaar in variabele
        lastrij = .[C100].End(xlUp).Row
        
    '   kopieer factuurnummer naar variabele
        facnum = .Cells(lastrij + 1, "A").Value
        
    '   breng de ingevoerde gegevens naar de regel van de lastrij in "Boekhouding"
        .Cells(lastrij + 1, "C").Value = naam
        .Cells(lastrij + 1, "D").Value = Format(datum, "dd-mm-yy")
        .Cells(lastrij + 1, "E").Value = "€ " & Format(bedrag, "#,##0.00")
        
    End With
    
'   kopieer factuurnummer naar de gele cel in "Factuur"
    [B3].Value = facnum
    
'   Mededeling
    MsgBox ("Factuur geboekt !")
End Sub

 

[rjwerf]

Hee super allemaal, bedankt zo kan het me lukken hoor, (hoop ik hahah)

 

[HSV]

Hee super allemaal, bedankt zo kan het me lukken hoor, (hoop ik hahah)

Dan mag je het als opgelost zetten.
Bvd.