bepalen welke tabbladen afgedrukt moeten worden en welke niet

[davylenders123]

Bij deze het bestand waar alles in zit.


Hierin kan je ook zien wat ik bedoelde met de lege rijen.(Enkel in kolom B en C , kolom A zijn vaste waardes die niet veranderen en er altijd blijven staan kunnen ze ook niet verwijderen/aanpassen)

 

[HSV]

Waarom is rij 1 leeg gelaten?

Sheets(nummerplaat) bestaat nu niet.

.Cells(1).CurrentRegion.Columns(1).Offset(2).Name = "b"

 

[davylenders123]

Rij 1 staat normaal een foto met bedrijfsinfo die ik in het vb verwijderd heb.
En de print button komt daar ook te staan en dan moet hier nog een titel blokkering op zodat rij 1 en 2 altijd zichtbaar zijn als ze scrollen.

 

[VenA]

Zoek eens op currentregion.

Blijkbaar niet gedaan.

 

[davylenders123]

Zo doet hij wel wat hij moet. :thumb:

Sub hsv()
With Sheets("bron")
  .Unprotect ""
  .Cells(1).CurrentRegion.Columns(1).Offset(2).Name = "b"
    s0 = Join(Filter([transpose(if((offset(b,,1)<>"")*(offset(b,,2)<>""),b,"~"))], "~", 0), "|")
    If Len(s0) > 0 Then Sheets(Split(Replace(s0, "-", ""), "|")).PrintPreview
  .Protect ""
 End With
End Sub

Allemaal bedankt voor jullie hulp in deze :thumb::thumb:

De code van daan108 deed ook zijn werk , maar was veel trager dan de code van hierboven.

VenA zoeken op currentregion was ik nog niet aan toegekomen , wou ik morgen te doen.