Voorraadlijst beheren

[Erc]

Dag iedereen

Ik heb verschillende Excel-templates gevonden en alles toegevoegd in 1 document.
Graag wil ik mijn voorraad bijhouden via het werkblad ‘voorraadlijst’. De leveringsbonnen worden afgedrukt en afgegeven aan de klanten.

Ik wil graag 2 knoppen op het werkblad ‘leveringsbon’:
- Een knop waarmee er afgeboekt en tegelijk ook geprint kan worden.
- Een tweede knop waarmee afgeprint en het werkblad bewaard kan worden op de computer als pdf.

Ik wil leveringsbonnen kunnen afdrukken en ook kunnen opslaan als pdf. In beide gevallen moet er van mijn voorraadlijst afgeboekt worden.
Ik heb een basiskennis over Macro’s en over VBA weet ik zelf heel weinig. Hopelijk kunnen jullie mij verder helpen. Het voorbeeldbestand heb ik toegevoegd als bijlage.

Alvast erg bedankt!
Groeten
Ercan

 

[JeanPaul28]

In principe heb je maar een macro knop nodig , die afdrukt opslaat en afboekt.
Ook zou ik met het Id nummer van het product werken in je leveringsbon.

 

[Erc]

In principe heb je maar een macro knop nodig , die afdrukt opslaat en afboekt.
Ook zou ik met het Id nummer van het product werken in je leveringsbon.

Welke code kan ik dan gebruiken voor die knop? Is er op de site een bestaande code die ik kan kopiëren en wat aanpassingen kan doen?

 

[JeanPaul28]

Map aan passen waar PDF bestanden moeten komen

Sub safeTWB()
Set wf = Application.WorksheetFunction
MFile = Sheet1.Range("I3").Value
    Application.PrintCommunication = True
    With ActiveSheet.PageSetup
        
        .LeftMargin = Application.InchesToPoints(0#)
        .RightMargin = Application.InchesToPoints(0#)
        .TopMargin = Application.InchesToPoints(0.75)
        .BottomMargin = Application.InchesToPoints(0.75)
        .HeaderMargin = Application.InchesToPoints(0.3)
        .FooterMargin = Application.InchesToPoints(0.3)
        .Orientation = xlPortrait
        .PaperSize = xlPaperA4
         .Zoom = 95
        .PrintErrors = xlPrintErrorsDisplayed
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        
    End With

    ChDir "D:\Mijn Excel\"
    Sheet1.Range("A1:I38").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\Mijn Excel\" & MFile, From:=1, To:=1  'Ap
 Application.Wait (Now + TimeValue("0:00:01"))
 Sheet1.Range("A1:I50").PrintOut

ActiveWorkbook.Save
'nog te wissen cellen
'Nog afteboeken artikelen
MsgBox "Klaar"
End Sub

 

[Erc]

foutmelding

Ik heb de code toegevoegd maar het werkt niet, Wat doe ik fout?

 

[JeanPaul28]

Heb de code in een module gezet, aangepast, nu zou die bij u moeten werken.

 

[Erc]

Dag Jean-Paul

Ik kan al afdrukken en opslaan als pdf, waarvoor dank. Ik heb gemerkt dat er nog niets wordt afgeboekt. Moeten er daarvoor nog nieuwe regels toegevoegd worden in de module?

Groeten
Ercan

 

[JeanPaul28]

Ja, deze module moet nog komen zal er deze avond eens naar kijken.

 

[Erc]

Ja, deze module moet nog komen zal er deze avond eens naar kijken.

Heel fijn, alvast erg bedankt!
Groeten Ercan

 

[JeanPaul28]

Bekijk eens mijn voorstel

 

[snb]

@JP

Deed ik.
Maak van de bongegevens een dynamische tabel
Zet de Code in de codemodule van het blad waarop de code betrekking heeft.

Maak de code eenvoudiger:

Sub M_afdruk()
   ListObjects(1).Range.PrintOut
End Sub

Sub M_pdf()
   Range("A1:E36").ExportAsFixedFormat 0, "C:\Users\esoylu\Downloads\test\bon.pdf"

   sn = ListObjects(1).DataBodyRange
   sp = Sheet2.ListObjects(1).DataBodyRange

   For j = 1 To UBound(sn)
     For jj = 1 To UBound(sp)
       If sn(j, 1) = sp(jj, 1) Then
          sp(jj, 4) = sp(jj, 4) - sn(j, 2)
          Exit For
       End If
     Next
   Next
   
   Sheet2.ListObjects(1).DataBodyRange = sp
   ListObjects(1).DataBodyRange.Delete
End Sub