factuur samenvoegen in excel

[johnsharda]

Hallo allemaal,

al ruime tijd haal ik hier van alle tips en trucks vandaan maar nu kom ik er niet uit.

ik heb 2 tabbladen in excel.
Op het ene tabblad "huurders" staan huurders met adressen.
Op het andere tabblad "factuur"staat mijn standard factuur

nu wil ik de cellen a2,b2,c2 van het tabblad "huurders" automatisch laten invullen in de cellen van de factuur, dan vervolgens dit factuur printen in pdf.
Vervolgens de cellen a3,b3,c3 enz, laten invullen en printen.
ik begrijp maar niet hoe ik een soort "loop'creeer.
nog beter zou zijn als die in 1 keer zou samenvoegen en alle facturen onder elkaar zou zetten in 1 bestand.

ik weet wel hoe ik het met word kan doen maar wil alles beperken tot 1 druk op de knop.

alvast bedankt voor het meedenken.

alle ideeen zijn welkom

 

[dnties]

Je hebt geen voorbeeldbestand bijgevoegd, dat wil men hier op het Excel subforum echter wel. Kopieer je orginele Excel bestand naar een andere, vervang in dat andere Excel bestand alle privacygevoelige informatie door nep-gegevens en voeg dát bestand dan bij als bijlage bij je volgende posting.

Verder alvast een vraag, wat makkelijk zou zijn (omdat er dan geen pagina-nummer onderaan de pagina hoeft te verschijnen in de PDF, en dus alle facturen in 1 PDF gestopt kunnen worden):
Past de standaardfactuur (per huurder) op 1 enkelzijdig bedrukte pagina papier?

Tijs.

 

[johnsharda]

Bekijk bijlage huurderstest.xlsm

zie bijgaand mijn bestand

het bestand past op 1 pagina

 

[edmoor]

Laat ook even weten met welke versie van Office je werkt. De wijze van "printen in PDF" is hiervan afhankelijk.

 

[johnsharda]

office 2016

 

[edmoor]

Maak het Factuurblad even op zoals deze ingevuld moet zijn.
Tevens heeft dat blad bijna 4000 regels actief, dat lijkt me ook niet de bedoeling.

 

[johnsharda]

Bekijk bijlage huurderstest.xlsm

bijlage aangepast, die 4000 actieve regels kon ik niet vinden?

 

[johnsharda]

heb de factuur even op nieuw blad geplaatst

 

[edmoor]

Waar komen Klantnummer, Faktuurdatum en Betreft vandaan?

 

[johnsharda]

factuurdatum =vandaag(), klantnummer en betreft komt later wel.
Het gaat hier niet om het ontwerp van een factuur maar hoe ik zo een loop moet creeeren.

 

[Cobbe]

Is deze uitwerken een stap in de goede richting?

 

[johnsharda]

bedankt Cobbe,

dit is zeker een stap in de goede richting.
Is het mogelijk om met 1 druk op de knop alle facturen onder elkaar te krijgen in pdf?

alvast bedankt

gr

john

 

[VenA]

Het gaat hier niet om het ontwerp van een factuur maar hoe ik zo een loop moet creeeren.

Lijkt mij zeer relevant voor het positioneren van de facturen in 1 pdf. Geen idiee van het het nut maar het zal.

 

[dnties]

Er is wel iets 'mis' met Cobbe's oplossing, indien gebruikt in Excel 2007 (zoals ik heb): Wil ik niet afdrukken maar kies ik voor "Afdrukvoorbeeld sluiten" dan flits ik meteen weer terug naar het afdrukvoorbeeld... Zelfde gedrag bij Afdrukken en ook hetzelfde gedrag bij gebruik van 'het rode kruisje' in het afdrukvoorbeeld. Dus Excel.exe dan maar afschieten in Taakbeheer.

Tijs.

 

[edmoor]

Dat voorbeeld van Cobbe doet een print preview van iedere klant afzonderlijk.

 

[gober]

ben zelf ook wel benieuwd hoe je in een loop van meerdere facturen 1 pdf file maakt.
Op de site staan trouwens meerdere voorbeelden van factureren met excel incl. factuurdatum en automatische factuurnummering. Welke pdf files maakt om uit te printen of te mailen.

 

[edmoor]

Het is geen probleem om die loop te maken, maar waar ik wel benieuwd naar ben is de reden waarom alle facturen in 1 PDF moeten komen. Zelf zou ik een PDF per factuurnummer maken.

 

[dnties]

Tsja, het print wel makkelijk uit (de facturen voor alle abonnees/klanten in 1 PDF), maar ik zou zeker óók de mogelijkheid van individueel afdrukken er in laten.

Tijs.

 

[HSV]

Even het Path wijzigen waar je de Pdf wilt hebben.

Sub facturen()
Dim cl As Range, i As Long
Application.DisplayAlerts = False
Workbooks.Add
With ActiveWorkbook
 For Each cl In ThisWorkbook.Sheets("Huurders").Range("A4:A" & ThisWorkbook.Sheets("Huurders").Cells(Rows.Count, 1).End(xlUp).Row)
     ThisWorkbook.Sheets("factuur").Range("B18") = cl.Value
         If IsError(Evaluate("'" & cl & "'!A1")) Then
           .Sheets.Add(, .Sheets(Sheets.Count)).Name = cl
          ThisWorkbook.Sheets("factuur").UsedRange.Copy .Sheets(CStr(cl.Value)).Cells(1)
         End If
    Next cl
    For i = 3 To 1 Step -1
     .Sheets(i).Delete
     Next i
 .ExportAsFixedFormat 0, "c:\users\johnsharda\documents\alle facturen"
 .Close 0
End With
Application.DisplayAlerts = True
End Sub

 

[edmoor]

@johnsharda:
Wel even rekening houden met het feit dat in het document huurderstest.xlsm van #7 het blad Huurders een spatie aan het einde heeft en dus "Huurders " heet en niet "Huurders".