• 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.

Variable printout sheet

Status
Niet open voor verdere reacties.
M

martindeboer1988

Gebruiker
Lid geworden
5 nov 2016
Berichten
93
Beste leden,

Wederom ben ik hier weer met een voor jullie makkelijke vraag :rolleyes:

Ik zit met het volgende ik heb een excel bestand met 3 sheets genoemd PIP dagelijks,PIP wekelijks,PIP maandelijks.
Tevens heb ik een sheet waarbij de gebruiker de 3 sheets afzonderlijk kan uitprinten.
Hier is onderstaande code aan gekoppeld.

Wat ik graag zou willen is een 4e knop waarbij Excel automatisch de juiste sheet van de bijbehorende datum uitprint.
Dit deel moet dus variabel zijn, de waarde hiervan bevind zich in cel K24 en onderstaand heb ik tot dusver.
Maar aangezien het niet werkt zit ik er waarschijnlijk een beetje ( of veel meer dan een beetje naast :p )

Code: 
Private Sub printlijstvandaag_Click()
Dim range As ValueChange
range("K24").Select
ValueChange = x
Sheets("x").PrintOut
End Sub
 
Doe het bestandje er even bij. Van de code klopt iig niets.
 
dit zou genoeg moeten zijn:

Code: 
Sheets(Range("K24").Value).PrintOut
 
Laatst bewerkt:
SjonR zei:
dit zou genoeg moeten zijn:

Code: 
Sheets(Range("K24").Value).PrintOut
Klik om te vergroten...

Ik kreeg het op die manier niet werkend maar als onderstaande wel.

Code: 
Private Sub printlijstvandaag_Click()
With Sheets(range("K24").Value)
End With
Sheets(range("K24").Value).PrintOut
End Sub
 
Het feit dat "range" bij jou niet naar een hoofdletter springt zegt me dat er iets in de code niet klopt. Je toevoeging voegt echter daadwerkelijk niets toe.

Hier nog even hoe je volgens jou opzet de code had kunnen schrijven. Waarom je eerst een variabele toewijst en vervolgens de variabele weer hernoemt is mij een raadsel.

Code: 
Dim valueChange As String
valueChange = Range("K24").Value

X = valueChange

Sheets(X).PrintPreview
 

Bijlagen

  • PIP voorbeeld.xlsm
    70,6 KB · Weergaven: 24
Laatst bewerkt:
Iets anders ingericht en zonder hulptabel.
 

Bijlagen

  • PIP voorbeeld.xlsb
    43,2 KB · Weergaven: 21
Iedereen bedankt voor alle hulp zo gaat het helemaal lukken :)
Vanavond kom ik er even niet meer aan toe.
 
Begin zo snel mogelijk met een basisboek over VBA.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan