help with leaving message please

[picto]

one of my collegues is leaving for a new job. Tom is the VBA guru in or office and we thought it would be fun to say goodbye and goodluck in VBA code printed on a Tshirt.

something like:

Sub goodbye
IF workload = 0 THEN GOTO newjob ELSE...
End Sub

Any Ideas folks.

Thanks in advance
Shaun

 

[Joe4]

Here is something simple, though I imagine some folks here will come up with something much more clever than this.

Sub GoodByeAndGoodLuck()
 
    Dim GoToNewJob as Boolean
    Dim GetBackToWork as Boolean 
    Dim WillBeBlamedForAllErrors as Boolean
 
    If Workload=0 Then
        GoToNewJob=TRUE
        WillBeBlamedForAllErrors=TRUE
    Else
        GetBackToWork=TRUE
    End If
 
End Sub

 

[snowblizz]

Sacrificing compilability (is that a word?) for humour something like:

Sub GoodByeAndGoodLuck()
    Dim In_Right_Now As Date
    Dim OldColleague As Variant
    Dim PlaceOfWork As Object
    Dim VBAProblems As Boolean
    
    For Each OldColleague In PlaceOfWork
        If VBAProblems = False Then
        Debug.Print "Goodbye and good luck!"
        Else
        Call TomPleaseFixThis(Now As In_Right_Now)
    Next
End Sub

 

[Jon von der Heyden]

Sacrificing compilability (is that a word?) for humour something like:

Sub GoodByeAndGoodLuck()
    Dim In_Right_Now As Date
    Dim OldColleague As Variant
    Dim PlaceOfWork As Object
    Dim VBAProblems As Boolean
 
    For Each OldColleague In PlaceOfWork
        If VBAProblems = False Then
        Debug.Print "Goodbye and good luck!"
        Else
        Call TomPleaseFixThis(Now As In_Right_Now)
    Next
End Sub

Very good
You need to close your If statement though

 

[yytsunamiyy]

provided we have an OldColleague Class:

Function Goodbye_and_goodluck() As String
Dim OldColleague As Person
Dim OldPlace As Object
For Each OldColleague In OldPlace
    If OldColleague.HasVbaTroubles Then
        Goodbye_and_goodluck = "Thats a fine mess you made Tom"
    Else
        Goodbye_and_goodluck "Goodby and good luck"
    End If
Next OldColleague
End Function

 

[xenou]

Sub Goodbye()
On Error GoTo Handler:

Msgbox "We'll miss you!"

Handler:
Call Tom

End Sub

 

[Domski]

Might need a big t-shirt but:

Sub ByeByeTom()

Dim LeavingPresentFund As Double, ****Ups As Boolean, Project As Range, ****up_Total As Long

LeavingPresentFund = InputBox("How much did you get for Tom's leaving collection?")

For Each Project In Range("Tom's_Projects")
    If IsError(Project) Then
        ****Ups = True
        ****up_Total = ****up_Total + 10
    End If
Next Project
        
If ****Ups = True Then
    MsgBox "Forget the reference Tom! You got " & Format(LeavingPresentFund, "£#,##0.00") & " from us!" _
        & vbLf & "Kindly return " & Format(****up_Total, "£#,##0.00"), vbCritical
Else
    MsgBox "Good luck in your future career Tom!!!" & _
        "Enjoy spending the " & Format(LeavingPresentFund, "£#,##0.00"), vbExclamation
End If

End Sub

Dom

 

[Norie]

Dom

Can you help me with some code?

For Each Project In Range("Tom's_Projects")

I get some kind of strange error.

Method 'Range' of object '_Global' failed

Perhaps Tom can help.

PS Could we have error tags as well as code tags?

No practical reason, just thought it might make posts prettier.

 

[Domski]

Maybe he's going to work abroad and can't be contacted

Dom

 

[picto]

Thanks everyone