Sub of Function niet gedefinieerd

[verluc]

Wie kan mij een zetje geven voor volgend probleem: krijg foutmelding op Call druk

Sub Workbook_open()
Application.Goto Sheets(Right(Date, 4)).Range("A" & Rows.Count).End(xlUp).Offset(1)
Select Case MsgBox("Wilt U deze lijst afdrukken ?", vbYesNo + vbQuestion, "Selectie")
Case Is = vbYes
Call druk
Case Is = vbNo
Exit Sub
End Select
End Sub

Met dank

 

[edmoor]

Dat zegt dat de sub genaamd druk niet kon worden gevonden.
Daarnaast zou ik Select alleen gebruiken wanneer je op meer dan 1 mogelijke waarde moet controleren en deze in dit geval zo schrijven:

Sub Workbook_open()
    Application.Goto Sheets(Right(Date, 4)).Range("A" & Rows.Count).End(xlUp).Offset(1)
    If MsgBox("Wilt U deze lijst afdrukken ?", vbYesNo + vbQuestion, "Selectie") = vbYes Then
        Call druk
    End If
End Sub

Gebruik ook de codetags als je hier code plaatst.

 

[verluc]

Edmoor,

Bedankt voor Uw kortere versie van mijn macro, doch na gebruik hiervan blijkt de foutmelding op : Call druk
Enig idee voor eventuele aanpassing hiervan ?
P.S. Hoe gebruik ik codetags ? Zie geen aanduiding op het scherm om deze in te schakelen.
Met dank

Dat zegt dat de sub genaamd druk niet kon worden gevonden.
DaarEnaast zou ik Select alleen gebruiken wanneer je op meer dan 1 mogelijke waarde moet controleren en deze in dit geval zo schrijven:

Sub Workbook_open()
    Application.Goto Sheets(Right(Date, 4)).Range("A" & Rows.Count).End(xlUp).Offset(1)
    If MsgBox("Wilt U deze lijst afdrukken ?", vbYesNo + vbQuestion, "Selectie") = vbYes Then
        Call druk
    End If
End Sub

Gebruik ook de codetags als je hier code plaatst.

 

[edmoor]

Codetags kun je gebruiken als je op Ga geavanceerd klikt. Selecteer dan de code en klik in het menu op het # teken.

Wat m'n antwoord op je eigenlijke vraag betreft, heb je een routine die druk heet en waar staat deze?

Aanvulling:
De routine genaamd druk moet in dezelfde sectie (ThisWorkbook) of in een module staan.

 

[namliam]

Code tags kan je ook type [cade] code hier [/cade] waarbij je de a vervangt voor een o

 

[edmoor]

Ja, maar ik vond het beschrijven van 1 mogelijkheid voldoende

 

[verluc]

Edmoor,

Zeer bedankt voor Uw macro en info
Heb de Sub Druk verplaatst en alles is in orde.
Goede jaarwisseling gewenst.

 

[Roncancio]

Graag de vraag nog op opgelost zetten.
Bvd.

Met vriendelijke groet,


Roncancio