Alleen ingevulde velden printen

[JosEindhoven]

Hallo

Is het mogelijk om van het tabblad totalen alleen de in gevulde velden te printen.
Dit nadat op het tabblad kassa de versnaperingen zijn ingevuld door op de verschillende buttons te drukken en als laatste de button subtotaal is gebruikt.

 

[VenA]

Hoe moet de afdruk eruit komen te zien dan?

 

[JosEindhoven]

Hallo VenA

Je zou het moeten zien als een rekening voor iemand.(naam)
Met daarop de verbruikte versnaperingen en het totaal bedrag
Ongeveer zoals aangegeven op tabblad totalen

 

[VenA]

Waarom zet je die 20 items dan niet onder elkaar? Een filter op <> 0 en klaar. Wat wil je met de BTW-berekeningen? Klopt volgens mij niet veel van.

 

[JosEindhoven]

Hallo
Die btw moet nog anders. Maar dat was mijn vraag niet.
Uw vraag was hoe het de afdruk er uit moest zien. Ik heb daar geprobeerd antwoord op gegeven en
Vervolgens komt de volgende vraag.
Als u hiermee wil zeggen los het zelf maar op dan hoef ik de vraag hier niet te stellen.

 

[VenA]

Daar heb ik op gereageerd met de vraag: Waarom zet je die 20 items dan niet onder elkaar? Een filter op <> 0 en klaar.

 

[VenA]

Hoe slechter de opzet hoe meer code

Sub VenA()
  Dim j As Long, jj As Long, ar
    ReDim ar1(3, 0)
    ar = Sheets("berekenen").UsedRange
    For jj = 4 To 13 Step 9
      For j = 4 To UBound(ar)
        If ar(j, jj) <> 0 Then
          ar1(0, UBound(ar1, 2)) = ar(j, jj - 3)
          ar1(1, UBound(ar1, 2)) = ar(j, jj - 2)
          ar1(2, UBound(ar1, 2)) = ar(j, jj - 1)
          ar1(3, UBound(ar1, 2)) = ar(j, jj)
          ReDim Preserve ar1(3, UBound(ar1, 2) + 1)
        End If
      Next j
    Next jj
    With Sheets("Printen").ListObjects(1)
      If .ListRows.Count Then .DataBodyRange.Delete
      .ShowTotals = False
      If UBound(ar1, 2) > 0 Then
        .ListRows.Add.Range.Resize(UBound(ar1, 2), 4) = Application.Transpose(ar1)
        .ShowTotals = True
        .Parent.PrintPreview
      End If
    End With
End Sub

 

[emields]

of zo?

 

[JosEindhoven]

Goede morgen VenA en Emields

Bedankt voor jullie oplossingen
Beiden werken goed en ga ze eens langs elkaar leggen om uit te pluizen
Alle credits voor jullie 2 bedankt top :thumb:

 

[AD1957]

Hallo josenhelene,

Omdat ik zelf graag een beetje stoei met VBA (leerzaam)
Als bijlage een andere mogelijkheid.

uitgangspunten:
De bedragen van de consumpties zijn inclusief BTW

Verder:
Door in het blad 'berekenen" benamingen in te vullen of te wijzigen worden automatisch knoppen aangemaakt in het formulier.
Je ziet meteen het aantal wat je invult.
Op het formulier en de afdruk staat tevens de berekende BTW.

Waarschijnlijk zal de code voor verbetering vatbaar zijn (ben maar een beginneling)
Misschien kijkt er nog iemand van de profs mee en kan dan suggesties aandragen.
Hoop dat je er iets mee kunt.

 

[JosEindhoven]

Nou Albert,ik moet eerlijk zeggen,voor een "beginneling" Chapeau