Invoerlijst + Weekoverzicht

[SebastiaanNy]

Hoi allemaal,

Ik ben bezig met een Excel bestand waarbij informatie ingevoerd word op 'Blad1', Deze informatie bevat de volgende keuzes: Productnummer = 'producten' (blad2) en welk bedrijf dat product besteld= bedrijfsnummer (blad3). Nadat deze informatie is ingevoerd word op de 'printknop' gedrukt en komt er een print. Dit werkt werkt goed, de volgende stap was het maken van een weekoverzicht. Mijn vraag: Is er een mogelijkheid dat wanneer er op de knop 'printen' (blad1) word gedrukt er in een nieuw tabblad een regel word aangemaakt met de ingevoerde gegevens, en op het moment dat er een nieuwe invoer is hetzelfde gebeurd alleen op de volgende regel. Hierbij krijg je dus uiteindelijk een overzicht van de ingevoerde gegevens van die gehele week. Ik hoop dat mijn vraag duidelijk genoeg is uitgelegd, zie bijlage voor het excel bestand waar ik in werk. Bij voorbaat dank!


Bekijk bijlage SebastiaanBV.xlsm

 

[HSV]

Een beter structuur van je werkblad geeft betere code.

Test het maar eens.

Sub printen()
 With Sheets("invoerlijst")
  Sheets("Weekoverzicht").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 10).Value _
  = Array(.Range("B2"), .Range("B5"), .Range("B4"), .Range("B6"), .Range("B7"), .Range("B8"), .Range("B12"), .Range("B14"), .Range("B15"), .Range("B16"))
 End With
Sheets("Printversie").PrintOut , , 2
End Sub

 

[SebastiaanNy]

Harry allereerst bedankt voor de snelle en goede reactie! Het heeft me zeker verder geholpen om het werkend te krijgen. Alleen nu is de volgende stap dat ik bij diezelfde 'printknop' een save functie wil hebben. Ik heb zelf geprobeerd om de macro uit te breiden helaas zonder succes (beginneling&leergierig), ik kreeg hierbij foutmeldingen. Kan iemand mij uitleggen hoe ik de bestaande macro verder uitwerk om er een save functie in te implementeren? Alvast bedankt!

 

[HSV]

Zet boven 'End Sub';

thisworkbook.save

 

[SebastiaanNy]

Wederom bedankt Harry!

 

[HSV]

Graag gedaan Sebastiaan.

Zou je de vraag dan als opgelost willen markeren?
bvd.