• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

VBA Tabbladen kopiëren, hernoemen en printen (orders)

Status
Niet open voor verdere reacties.
R

RG3

Gebruiker
Lid geworden
18 aug 2017
Berichten
19
Goedemiddag,

Ik heb een vraag.

Ik heb een order bestand in excel (zie bijgevoegd). Daarin wil ik in het tabblad orders een "totaal bestand" van de aangenomen orders zetten. Vervolgens moeten deze orders op aparte A4tjes komen om door de productie te worden afgehandeld.

Nu heb ik het al voor elkaar gekregen om de orders in losse tabbladen aan te maken met de macro "Order_Aanmaken". Dus dat gaat goed.

Maar nu:

De aparte werkbladen (losse orders) hoeven niet opgeslagen of bewaard te worden. Dus wanneer ik op de macro "Order_Aanmaken" klik, wil ik dat het afdrukvoorbeeld wordt getoond van de zojuist aangemaakte orders.

Kan ik iemand mij helpen?

Groeten, Rick
 

Bijlagen

  • Orders test.xlsm
    34,3 KB · Weergaven: 32
Waar is de macro "Order_Aanmaken" te vinden?

Probeer het zo eens.
Code: 
Sub VenA()
  ar = Sheets("Orders").Cells(3, 1).CurrentRegion.Resize(, 1)
  Set d = CreateObject("Scripting.Dictionary")
  For j = 3 To UBound(ar)
    d.Item(ar(j, 1)) = ""
  Next j
  With Sheets("Order picker (blanco)")
    For Each k In d.keys
      .Cells(3, 2) = k
      .PrintPreview
    Next k
  End With
End Sub
 
Bedankt, hier kan ik weer een stuk verder mee !
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan