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

Datum van morgen invoegen in cel en daarna printen

Status
Niet open voor verdere reacties.
M

martindeboer1988

Gebruiker
Lid geworden
5 nov 2016
Berichten
93
Beste leden,

Helaas droom ik geen VBA code en kom er hier dus even niet uit.
Ik wil graag dat zodra er op de button geklikt word de juiste sheet geopend word en de datum van morgen in een specifieke cel komt.
Daarna moet de betreffende sheet uitgeprint worden.

Onderstaand heb ik tot dusver maar dat levert een Run time error 1004 "Method Range of object worksheet failed op"
Iemand suggesties ?

Code: 
Sub printdaglijst_Click()
Worksheets("PIP dagelijks").Activate
With Range(B28)
.Value = Now()
.NumberFormat = "mm/dd/yyy"
End With
ActiveSheet.PrintOut
End Sub
 
HTML: 
Sub printdaglijst_Click()


With Sheets("PIP dagelijks").Range("B28")
.Value = Now()
.NumberFormat = "mm/dd/yyyy"

End With
ActiveSheet.PrintOut
End Sub

test deze eens
 
JeanPaul28 zei:
HTML: 
Sub printdaglijst_Click()


With Sheets("PIP dagelijks").Range("B28")
.Value = Now()
.NumberFormat = "mm/dd/yyyy"

End With
ActiveSheet.PrintOut
End Sub

test deze eens
Klik om te vergroten...

Helaas maakt die alleen een print van de het actieve blad.
Misschien ter verduidelijking, de knop waarmee de print opdracht word gegeven bevind zich op een ander blad maar wel in hetzelfde bestand.
 
Heb inmiddels een oplossing gevonden :) dank je wel voor de "End With" toevoeging.

Code: 
End With
Sheets("PIP dagelijks").PrintOut
End Sub
 
Eenmalig de celeigenschappen van B28 goed zetten. De datum van morgen is niet Now maar Now +1 of Date +1
Code: 
Sub printdaglijst_Click()
  With Sheets("PIP dagelijks")
    .Range("B28") = Date + 1
    .PrintOut
  End With
End Sub
 
VenA zei:
Eenmalig de celeigenschappen van B28 goed zetten. De datum van morgen is niet Now maar Now +1 of Date +1
Code: 
Sub printdaglijst_Click()
  With Sheets("PIP dagelijks")
    .Range("B28") = Date + 1
    .PrintOut
  End With
End Sub
Klik om te vergroten...

Beste VenA,

Bedankt voor het meedenken en jou oplossing zal ook ongetwijfeld werken.
Alleen in het kader van "if it aint broke don't fix it" heb ik onderstaande gebruikt.

Code: 
Sub printdaglijst_Click()
 With Sheets("PIP dagelijks").Range("B28")
.Value = Now() + 1
.NumberFormat = "dd/mm/yyyy"
 
End With
Sheets("PIP dagelijks").PrintOut
MsgBox ("De daglijst word nu uitgeprint")
End Sub
 
Je kan met '.parent.printout' tussen de 'With' statement blijven.

Code: 
Sub printdaglijst_Click()
 With Sheets("PIP dagelijks").Range("B28")
   .Value = Now() + 1
   .NumberFormat = "dd/mm/yyyy"
  [COLOR=#0000ff] .parent.PrintOut[/COLOR]
 end with
MsgBox ("De daglijst word nu uitgeprint")
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan