rapporten aanpassen en printen

[Jarjar1969]

Goedeavond,

Ik zit met een lastig probleem. Ben redelijk bekend met excel maar dit is voor mij een echte hoofdbreker.

De situatie is als volgt. Ik heb een excel bestand dat uit verschillende andere bestanden met vertikaal zoeken heel veel informatie ophaalt van een artikelnummer en die gegevens dan duidelijk weergeeft in een soort dashboard rapportage van dat specifieke artikel.

sheet 1
In cel b2 staat het bewuste artikelnummer (dit is een data validatie lijst drop down lijst dat in sheet 2 gevult kan zijn vanaf cel f4 tot en met f5004). In veel andere cellen in sheet 1 staat een vertikaalzoeken formule die linkt naar cel b2 en dan de informatie ophaald uit andere excel bestanden. Er zijn ook nog wat grafiekjes die worden gevult met verbruik per maand en voorraad per maand.

sheet 2
Hier staat in cel f4 en verder naar beneden een willekeurig aantal artikelnummers dat ik naar believen kan wijzigen.

Doel van dit rapport is dat ik dus een dashboard rapport per artikel kan printen en dat werkt goed als ik dat artikel voor artikel wil doen.

maar nu komt mijn vraag:
hoe krijg ik het nu voor elkaar dat ik bijvoorbeeld 250 of 500 dashboard rapportages kan printen van 250 of 500 artikelen die ik plak in sheet 2 zonder dat ik handmatig in sheet 1 cel b2 het volgende artikelnummer uit de validatie drop down lijst moet selecteren en dan op print moet klikken.. dat kost nogal wat tijd namelijk om dat handmatig te doen. Let op het kost soms enige seconden voor het rapport om de data allemaal te verversen voordat ik het rapport kan printen. Ik dacht zelf aan een print button of zo iets maar heb geen ervaring van VBA.

Ik wil het printen van het rapport dus automatiseren in een steeds wisselende hoeveelheid artikelen die ik elke keer in sheet 2 bepaal.

Al vast bedankt voor de moeite.

Groeten,
John

 

[Elsendoorn2134]

John,

Dit is op zich niet al te moeilijk, je hebt dus gewoon een macro'tje nodig die het artikelnummer vanuit
de lijst op sheet 2 vanaf cel F4 naar B2 kopieert, het tabblad uitprint en het volgende artikelnummer opzoekt.
De macro zou er ongeveer uit moeten zien zoals hieronder. Aangezien we geen bestand van je hebben gehad
hebben we de macro niet kunnen testen.

Public Sub DoorloopArtikelen()

Dim lTeller As Long

With Sheets("Blad2").Range("F4")            'Loop door de lijst op blad2 vanaf cel F4.
    Do While .Offset(lTeller, 0) <> 0       'Doorloop de lijst tot de cel een waarde nul heeft.
        Sheets("Blad1").Range("B2") = .Offset(lTeller, 0)
        Sheets("Blad1").PrintOut            'Print het tabblad uit.
        lTeller = lTeller + 1               'Verhoog de teller voor de volgende regel.
    Loop
End With

End Sub

Veel Succes.

 

[Jarjar1969]

Bedankt!!

Reuze bedankt!

Het werkt, ik moest alleen de naam van de sheets en de cel (F4 had D4 moeten zijn) aanpassen.
En ik krijg alle prints zoals ze zouden moeten zijn inclusief de verschillen in de data.
Ik ben hiermee echt geholpen.

Groeten,
John

 

[Elsendoorn2134]

John,

Mooi, dan stel ik voor om de vraag als opgelost te markeren.

Elsendoorn2134