Simpele VBA-vraag over validatie in macro

[tomswaelen]

Ik heb een Excel waar een zelf gemaakte print-knop achter zit, via macro. Die ziet er zo uit:

Sub Afdrukken()
'
' Afdrukken Macro
'

'
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
End Sub

Nu zou ik hier nog willen inbouwen dat deze print-knop niet werkt, wanneer een bepaalde cel (laat ons zeggen A1) de waarde 'Nee' bevat. Als deze 'Ja' bevat, mag gewoon geprint worden. Als er 'Nee' staat, mag er een foutboodschap weergegeven worden.

Of is dit toch moeilijker dan het klinkt? Ik ken dus heel weinig van VBA en macro's en zo...

Die validatiecel (A1) bevat wel een formule (Ja/Nee is de uitkomst van een formule). Maakt dat uit?

 

[ExcelAmateur]

Zou dit werken?

If Range("A1").Value = "Nee" Then Exit Sub

 

[tomswaelen]

Ik zal het eens proberen Ik zou ook wel graag vooraf een melding (Msgbox) laten verschijnen, met de melding dat er niet geprint kan worden omdat de validatie niet klopt. Hoe doe ik dat?

 

[ExcelAmateur]

Test dit eens.

Sub Afdrukken()
'
' Afdrukken Macro
If Range("A1").Value = "Nee" Then
  MsgBox "Er kan niet geprint worden omdat de validatie niet klopt"
  Exit Sub
End If

    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
End Sub

 

[tomswaelen]

Werkt perfect, bedankt!