vba / macro

[K Timmer]

Hallo.

ik zie volgens mij iets over het hoofd ?

ik commandbutton waar ik mee kan printen ( macro).
het printen mag alleen als er WAAR (waar/onwaar CheckBox) in een
cell(B6) in een blad(HBlad) staat.

zie hier.

Private Sub CheckBox1_Click()

End Sub

Private Sub CommandButton1_Click()
    If Worksheets("HBlad").Range("B6").Value = "ONWAAR" Then GoTo 1234:
      Sheets("Test").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Sheets("HBlad").Select
1234:
End Sub

Groeten Koos.

 

[Wigi]

Vervang al die code door:

Private Sub CommandButton1_Click()

    If Worksheets("HBlad").Range("B6").Value Then Sheets("Test").PrintOut

End Sub

Wigi

 

[K Timmer]

Hallo Wigi.

Het werkt perfect.

hartelijk dank.

Groeten Koos.
:thumb: