Factuur opstellen aan de hand van totaallijst

[bobvriend]

Goedemiddag,

Graag wil ik voor onze voetbalclub (veiling) een Excel sheet maken waarin we heel snel de facturen kunnen maken en uitsturen.

Zie bijgevoegd format wat ik heb gemaakt. Voor het klantenbestand in te laden heb ik gebruik gemaakt van verticaal zoeken op basis van kopernummer. Nu wil ik op basis van de aangekochte kavels deze zichtbaar maken op de factuur. Ik denk dat dit alleen kan via macro's maar hier heb ik helaas geen kennis van.

Zou iemand mij kunnen helpen of zijn hier voorbeelden voor?

Hoor graag,
Groet, Bob

 

[popipipo]

Ik weet niet welke versie van excel je gebruikt maar als je de functie FILTER tot je beschikking hebt is het heel eenvoudig

 

[bobvriend]

Goedemiddag popipipo,

Kan je met de filter functie ze ook automatische laten inladen?

Groet, Bob

 

[popipipo]

Dat zie je toch in mijn voorbeeld.
verander het klantnr maar eens in 2 en zie wat er gebeurt.

 

[bobvriend]

Super, dankjewel! Het werkt inderdaad. Ik probeer de formule enigszins te snappen maar daar kom ik nog niet helemaal uit. Heb jij misschien een handige site die wat meer uitleg geeft over de formule?

Nogmaals dank in ieder geval!

 

[popipipo]

Google is your best friend

 

[bobvriend]

haha, komt goed. Ik ga even googelen. Was nog niet bekend met deze formule.

Heb jij nog tips hoe ik kan zorgen dat ik van elk kopersnummer makkelijk een factuur kan maken en opslaan in PDF?

Nogmaals super bedankt!

 

[popipipo]

Dat zal via VBA moeten en dat laat ik graag aan anderen over

 

[jverkerk]

Een groot deel van @popipipo en een deeltje van mij.
Printen kun je met een macro doen naar een bepaalde map.
Dit gebruik ik ook.
"Waar hij opgeslagen moet worden" moet je veranderen naar de map waar jij hem op wilt slaan. Staat er twee keer in.
FacName = ActiveSheet.Range("M1").Value
Kun je M1 veranderen naar de cel die de naam van de factuur krijgt.
Knop maken en daar deze macro aan hangen.

Sub PDF()
Dim FacName As String
FacName = ActiveSheet.Range("M1").Value
If Dir("Waar hij opgeslagen moet worden\" & FacName & ".pdf") <> "" Then
MsgBox "Het bestand: " & FacName & ".pdf bestaat reeds"
Exit Sub
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Waar hij opgeslagen moet worden\" & FacName & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True
End If
End Sub

 

[edmoor]

@johan:
Het zal prima werken, maar code zonder inspringpunten doet pijn aan m'n ogen.
Ook blij zo'n klein stukje.

 

[jverkerk]

Ik ben ook geen vba deskundige, het werkt voor mij, en waarschijnlijk ook voor Ts.
Zal een poging wagen om het te verbeteren, heb het ook maar geleend.
Hoop dat dit de pijn zal verzachten.

Sub PDF()
    Dim FacName As String
    FacName = ActiveSheet.Range("C18").Value & " " & ActiveSheet.Range("C9").Value

    If Dir("K:\Printmap Meerdere Resultaten\" & FacName & ".pdf") <> "" Then
        MsgBox "Het bestand: " & FacName & ".pdf bestaat reeds"
        Exit Sub
    Else
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:="K:\Printmap Meerdere Resultaten\" & FacName & ".pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=False, _
            IgnorePrintAreas:=False, _
            From:=1, To:=1, _
            OpenAfterPublish:=True
    End If
End Sub

 

[edmoor]

Dank je

 

[mvdvlist]

Draadje #9 bestand opgeslagen als .xlsx, dus werkt geen enkele macro. Staan er zelfs niet meer in.

 

[jverkerk]

Klopt, maar dat kan hij zelf ook wel denk.
Zal hem hierbij doen.