rekening schrijven in excel

[Sams]

LS,

ik ben bezig om een Excel file te creëren om makkelijker/sneller een rekening te schrijven. Deze rekening kan bestaan uit 1 product of uit meerdere producten. Nu is mijn vraag of het mogelijk is om als ik het eerste product invoer er automatisch een 2de regel beschikbaar word om een product in te voeren etc. en dat het blok waar de betalingsvoorwaarde, leveringsdatum en totalen in staat mee opschuift.

zo ja hoe kan ik hier het beste te werk gaan. ik heb het file waar ik in aan het werken ben ter verduidelijking bijgevoegd.
elke hulp is welkom!

met vriendelijke groet,
Sam

 

[Cobbe]

Ik zou niet werken met regels tussenvoegen want hoe ziet je rekening eruit als je maar 1 of 2 artikels aan te rekenen hebt.

Heb je rekening aangepast aan een A4 en de formules erin gezet om gewoon je artikels aan te vullen.
Zelfs de nummering loopt automatisch.

 

[koster1984]

En anders zou je het zo kunnen doen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B14:B" & [B14].End(xlDown).Row + 1)) Is Nothing And Not Target.Offset(-1) = "" Then
    Application.EnableEvents = False
    Cells(Target.Row + 1, 2).EntireRow.Insert
    Application.EnableEvents = True
    Cells(Target.Row, 9).FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
    Cells(Target.Row, 10).FormulaR1C1 = "=VLOOKUP(RC[-8],producten,2,0)"
    Cells(Target.Row, 11).FormulaR1C1 = "=VLOOKUP(RC[-9],producten,3,0)"
    Cells(Target.Row, 12).FormulaR1C1 = "=RC[-2]*RC[-3]"
End If
End Sub

 

[Sams]

Beste Cobbe, bedankt voor je antwoord en aanpassingen

Beste Daniel, hoe zou ik die code moeten implementeren in mijn bestand?

m.v.g,
Sam

 

[koster1984]

In visual basic (ALT+F11) en dan achter het blad plakken

 

[Sams]

Bedankt

 

[Sams]

Beste Daniel,

kan man onderstaande code ook aanpassen voor een andere layout?, heb het bestand bijgevoegd.
Hoe kan ik dit het beste aanpakken?

mvrgr,
Sam

En anders zou je het zo kunnen doen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B14:B" & [B14].End(xlDown).Row + 1)) Is Nothing And Not Target.Offset(-1) = "" Then
    Application.EnableEvents = False
    Cells(Target.Row + 1, 2).EntireRow.Insert
    Application.EnableEvents = True
    Cells(Target.Row, 9).FormulaR1C1 = "=SUM(RC[-5]:RC[-1])"
    Cells(Target.Row, 10).FormulaR1C1 = "=VLOOKUP(RC[-8],producten,2,0)"
    Cells(Target.Row, 11).FormulaR1C1 = "=VLOOKUP(RC[-9],producten,3,0)"
    Cells(Target.Row, 12).FormulaR1C1 = "=RC[-2]*RC[-3]"
End If
End Sub

 

[koster1984]

Ik heb nu niet echt tijd, maar even 2 dingen:
- Wat moet er precies gebeuren? 2 regels toevoegen? of alleen die onderste?
- VBA gedijd niet zo goed met samengevoegde cellen, kan je ook iets maken zonder?

 

[Sams]

als in cel A15 iets ingevuld word, 3 regels toevoegen met dezelfde opmaak als regel 15,16 en 17.
heb file aangepast zodat er geen samengevoegde cellen zijn in de desbetreffende regels.

mvgrt,
Sam

 

[koster1984]

Ik heb al wat gemaakt, zie bijlage

 

[Sams]

Te gek, hier kan ik super mee verder werken
vriendelijk bedankt.

Sam

 

[koster1984]

Graag gedaan.. succes

 

[Sams]

Beste Daniel,

nog een vraag betreffende de code: bestaat er ook de mogelijkheid om het werkblad te beveiligen en dat de code blijft werken?
Want momenteel stuggle ik ermee dat de code niet meer werkt als ik het merendeel van het werkblad beveilig.

met vriendelijke groet,
Sam

 

[koster1984]

met:

ActiveSheet.Unprotect Password:="[COLOR="#FF0000"]Hier je wachtwoord[/COLOR]"

en:

ActiveSheet.Protect Password:="[COLOR="#FF0000"]Hier je wachtwoord[/COLOR]"

 

[Sams]

bedankt