Tabbladen printen obv selectievak

[stevenb83]

Mijn Excel bestaat uit meerdere tabbladen. Deze bladen worden benoemd obv de waarde in cel A2, welke weer verwijst naar de datum in kolom C van tabblad 'total'. Overigens wordt tabblad 'total' gevuld obv gegevens uit een ander document.

Nu wil ik graag tabbladen selecteren om af te drukken, middels een selectievak in kolom N.

Is dit mogelijk?

 

[VenA]

Waarom zoveel dezelfde tabjes? Kan toch prima met 1? Waarom van die vervelende vinkvakken? Moet er direct geprint worden als je zo'n vervelend vakje aanvinkt of wil je een serie van verschillende datums in 1 keer afdrukken. Waarbij de rest van de aangevinkte ook gelijk meegaan of wat wil je eigenlijk? Je kan hier eens kijken https://www.helpmij.nl/forum/showthread.php/952362-Gegevens-invoeren-en-afdrukken

Zonder vinkvakjes maar door een x wat ook nog wel met een dubbelklik te realiseren is.

Sub VenA()
  ar = Sheets("total").Cells(5, 1).CurrentRegion
  With Sheets("Printen")
    For j = 3 To UBound(ar)
      If LCase(ar(j, 14)) = "x" Then
        .Cells(2, 1) = ar(j, 3)
        .PrintPreview 'printout
      End If
    Next j
  End With
End Sub

 

[stevenb83]

hartelijk dank! dit is helemaal top! En veel makkelijker dan mijn complexiteit met zoveel tabs en vink-vakje.

Nog één vraagje:
ik heb de code aangepast zodat de sheet 'printen' niet naar een printpreview gaat, maar direct wordt afgedrukt. Is het ook mogelijk dat er in de kolom N (afdrukken) een getal wordt gezet en dit aantal wordt afgedrukt in plaats van de x nu?

 

[VenA]

Sub VenA()
  ar = Sheets("total").Cells(5, 1).CurrentRegion
  With Sheets("Printen")
    For j = 3 To UBound(ar)
      If ar(j, 14) <> "" And IsNumeric(ar(j, 14)) Then
        .Cells(2, 1) = ar(j, 3)
        .PrintOut , , ar(j, 14)
      End If
    Next j
  End With
End Sub

 

[stevenb83]

dit is perfect. Hartelijk dank voor de snelle medewerking.