Macro

[erikjw13]

Ik heb onderstaande macro:

Sheets("Printblad NP < 65").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Invulblad").Select
Range("F30").Select
Sheets("Printblad NP < 65 op 65").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Invulblad").Select
Range("B27").Select

End Sub

Deze cel (F30) heeft de optie Ja / Nee

Hij staat standaard op Ja.
Nu wil ik eigenlijk regelen dat deze in deze macro op "Nee" wordt gezet, daar waar staat Range("F30").Select

Is dit mogelijk?

Alvast bedankt Erik

 

[Haije]

voeg dit toe of vervang door:

Range("F30") = "Nee"

 

[erikjw13]

Werkt

Bedankt
Erik

 

[gast0660]

Sub overbodige_selects()
Sheets("Printblad NP < 65").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Sheets("Invulblad").[F30] = "Nee"
Sheets("Printblad NP < 65 op 65").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Sheets("Invulblad").[B27] = "nog een overbodige select"
End Sub

 

[SjonR]

zo dus niet:

Sub ZoKanHetDusNiet()
With Sheets("Printblad NP < 65")
    .PrintOut , , 1, , , , 1, , 0
    Sheets("Invulblad").[F30] = "Nee"
    .PrintOut , , 1, , , , 1, , 0
End With
End Sub

Bij testen .Printout even op printpreview zetten ivm onnodige papierverspilling

 

[gast0660]

@ SjonR,

ZoKanHetOok

:thumb:

 

[HSV]

@SjonR, @gast0660,
Het zijn wel twee verschillende bladen die geprint moeten worden, dus die '.preview' is zo gek nog niet als waarschuwing.

 

[SjonR]

@ Harry

Ik snap je niet. Ik heb waarschijnlijk te veel zon gepakt vandaag.

 

[HSV]

Dan heb je de vraag niet goed gelezen.

 

[SjonR]

@ Harry,

dit maakt het niet duidelijker!

 

[HSV]

Dan is de zon waarschijnlijk niet de boosdoener.

 

[VenA]

Iets meer uitleg en een voorbeeldbestand is wenselijk.

De macro-opname vertaalt naar VBA levert zoiets op

Sub VenA()
  For Each sh In Sheets(Array("Printblad NP < 65", "Printblad NP < 65 op 65"))
    sh.PrintPreview
  Next sh
  With Sheets("Invulblad")
    .Range("F30") = "Nee"
    .Range("B27") = "Nee"
  End With
End Sub

 

[SjonR]

 

[HSV]

Sub zokanhetook()
  Sheets(Array("Printblad NP < 65", "Printblad NP < 65 op 65")).PrintPreview
  Sheets("Invulblad").Range("F30") = "Nee"
End Sub