Geachte Forummers,
Ik heb een fakturerings programma gebouwd dat fakturen produceert met unieke nummers, deze staan in cel H19 van tabblad "faktureren". Ik heb al een stukje code om relevante faktuurgegevens naar een tabel in een ander tabblad ("fakturen") te kopieren, zie hieronder.
Nu wil ik deze code graag uitbreiden met het automatisch opslaan als PDF van range A1:J53 van het tabblad "faktureren", waarbij het faktuurnummer uit cel H19 de naam van de PDF wordt. De doeldirectory staat in cel W1 van datzelfde tabblad.
Ik heb al verschillende codes geprobeerd (na zoeken op forum), maar de situaties zijn vaak net iets anders, waardoor ik foutmeldingen krijg die ik niet heb kunnen oplossen met mijn beperkte VBA kennis.
Daarom de vraag: Kan iemand mij aan de benodigde code helpen die ik onder mijn bestaande code kan plakken?
Bij voorbaat dank
bos997
Ik heb een fakturerings programma gebouwd dat fakturen produceert met unieke nummers, deze staan in cel H19 van tabblad "faktureren". Ik heb al een stukje code om relevante faktuurgegevens naar een tabel in een ander tabblad ("fakturen") te kopieren, zie hieronder.
Nu wil ik deze code graag uitbreiden met het automatisch opslaan als PDF van range A1:J53 van het tabblad "faktureren", waarbij het faktuurnummer uit cel H19 de naam van de PDF wordt. De doeldirectory staat in cel W1 van datzelfde tabblad.
Ik heb al verschillende codes geprobeerd (na zoeken op forum), maar de situaties zijn vaak net iets anders, waardoor ik foutmeldingen krijg die ik niet heb kunnen oplossen met mijn beperkte VBA kennis.
Daarom de vraag: Kan iemand mij aan de benodigde code helpen die ik onder mijn bestaande code kan plakken?
Bij voorbaat dank
bos997
Code:
Private Sub CommandButton1_Click()
Dim faktnr As String
Dim faktdatum As Date
Dim klantnr As Integer
Dim klant As String
Dim bedrag As Integer
Dim betalingstermijn As Integer
Worksheets("faktureren").Select
faktnr = Range("H19")
faktdatum = Range("H20")
klantnr = Range("I7")
klant = Range("F8")
bedrag = Range("H31")
betalingstermijn = Range("D43")
Worksheets("fakturen").Select
Worksheets("fakturen").Range("A1").Select
If Worksheets("fakturen").Range("A1").Offset(1, 0) <> "" Then
Worksheets("fakturen").Range("A1").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = faktnr
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = faktdatum
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = klantnr
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = klant
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = bedrag
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = betalingstermijn
Worksheets("faktureren").Select
Worksheets("faktureren").Range("L7").Select
End Sub