Selectie printen via een macro knop op basis van vast gegeven in het excel blad

Status
Niet open voor verdere reacties.
R

rayda39

Gebruiker
Lid geworden
20 mrt 2009
Berichten
84
Beste mensen,

Hopelijk kunnen jullie mij helpen.
Ik heb een file gemaakt zodat onze medewerkers alleen nog maar een knop hoeven te klikken en dan en userform kunnen invullen, dit werkt naar behoren.

Nu zou ik nog graag het volgende willen.
Ik wil graag een print knop hebben die de dagverwerking uitprint.

Voorbeeld :

In kollom A staat de voorwaarden en vanuit die voorwaarden moet geprint worden
Op 6-4-2018 moet er het gebied A2:N14 geprint worden.
Op 7-4-2018 moet er het gebied A15:N16 etc.
Er is verder geen keuze nodig dan de dag zelf.
Het gebied dat geprint moet worden kan dagelijks veranderen, en daar zit nu net het probleem voor mij.

Voorbeeld bestand is toegevoegd;)

Mvg

Bekijk bijlage Helpmij.xlsx
 
Laatst bewerkt:
Het lijkt erop dat dit voldoende is:
Code: 
Range("A10:N20").PrintPreview [COLOR="#008000"]'Of PrintOut[/COLOR]
 
VenA zei:
Je kan ook een voorbeeld plaatsen zonder wachtwoord waarin alle relevante tabbladen zichtbaar zijn toch? Het zijn allemaal fratsen die je even inbouwt als het project klaar is. Lees ook even http://www.helpmij.nl/forum/announcement.php?f=5
Klik om te vergroten...

Beste, dank u wel voor de info, ik heb het even goed doorgelezen en zie inderdaad dat ik dan wel een overdaad aan gegevens geef, ik zal mijn vraag ook duidelijker moeten maken.

Mvg
 
edmoor zei:
Het lijkt erop dat dit voldoende is:
Code: 
Range("A10:N20").PrintPreview [COLOR="#008000"]'Of PrintOut[/COLOR]
Klik om te vergroten...

Beste Edmoor,

Ik heb mijn vraag aangepast omdat ik niet helemaal duidelijk was en niet helemaal volgends de regels.
het probleem zit hem in het feit dat het variable is.

Op 6-4-2018 moet er het gebied A2:N14 geprint worden.
Op 7-4-2018 moet er het gebied A15:N16 etc

Hopelijk ben ik nu wel duidelijk geweest.

Mvg
 
Het quoten is niet nodig. Je hebt kolom A opgemaakt als tekst waardoor de datums niet als datum gezien worden. Als je dit aanpast dan kan je dmv het autofilter wel wat doen. Kan je dus ook doen zonder macro.

Met macro
 

Bijlagen

  • Helpmij.xlsb
    19,7 KB · Weergaven: 81
Dit zal beter werken.
Code: 
sub hsv
With Sheets("databasecontrole").Cells(1).CurrentRegion
    .AutoFilter 1, , 7, array(2, format(date, "m/d/yyyy"))
    .PrintPreview
    .AutoFilter 1
  End With
end sub
 
Opgelost

Beste allemaal,

Momenteel heb ik het opgelost, ik denk ook dat mijn vraag alsnog niet duidelijk was.

k heb de volgende code gebruikt.

Code: 
Sub jemacro()
Sheets("Motorenlabel").Select
    Sheets("databasecontrole").Visible = True
    Sheets("databasecontrole").Select
Dim leverancier As String
For i = 1 To 1
    leverancier = Sheets("databasecontrole").Range("A1").Offset(i - 1, 0).Value
        Selection.AutoFilter Field:=1, Criteria1:=Sheets("databasecontrole").Range("O1")
        Sheets("databasecontrole").PrintOut Copies:=1, Collate:=True
Next i
 Sheets("databasecontrole").Select
 Selection.AutoFilter Field:=1
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Motorenlabel").Select
End Sub

Als ik nu dus op de macro knop klikt komt alleen de gegevens eruit van de zelfde dag.

Jullie hebben mij wel goed op weg geholpen.
 
Waarom die For loop van 1 tot 1 en Offset(i - 1, 0) ?
 
Beste Edmoor,

Eerlijk gezegd, geen idee.
Ik heb niet zoveel verstand van VBA, ik heb de code van het net geplukt en aangepast naar wat ik wilde.
Wat en de loop doet en de offset doet heb ik geen idee.
Ik zal eens kijken op het net wat het eigenlijk betekend.
Meestal pak ik een stuk code en pas die aan en als het werkt ben ik al blij.

Mvg
 
Vba heeft ook een F1 knop.
Beter en sneller dan het net.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan