The most pointless combination of functions

[Greg Truby]

To Lewiy --

Just skimmed it quickly...

You do not need to test booleans for true or false, they ARE true for false, i.e. you can tighten

Do
    With Door
        If .Locked = True Then
            Do
                Mobile.Dial ("555-1234")
            Loop Until Mobile.Answer.Object = Missus
            Application.Wait (TimeValue(Len(Nagging)))
        End If
    End With
Loop Until Door.Locked = False

Down to:

Do While Door.Locked
    Do
        Mobile.Dial ("555-1234")
    Loop Until Mobile.Answer.Object = Missus
    Application.Wait (TimeValue(Nagging))
Loop

Also please note that (as Bryony has pointed out) Nagging is a long, not a string so Len(Nagging) is always going to return 4.

Any finally, your variable Patience (no relation to Bryony) is ambiguous. You need to specify herPatience or myPatience. If hers then obviously it's:

dim herPatience as byte

:wink:

 

[xlHammer]

I tried pasting into the code window and this line spontaneously appeared;

Set Missus.Mood(Today) = Rand()

and I couldn't delete it?

 

[kgkev]

I tried the deleting all reference to "missus" and it deleted half my code in all my macro that I have ever create - I can't understand it.

 

[Patience]

I tried pasting into the code window and this line spontaneously appeared;

Set Missus.Mood(Today) = Rand()

and I couldn't delete it?

I think it interferes with the PMT function. Excel can't cope with both.

 

[xlHammer]

Aargh! It's writing itself, what does this mean?

If Missus.Mood(Today) <= Min(Tolerence) then
Shoes(Pairs) = Shoes(Pairs).Count + 1
End if

 

[Lewiy]

Greg:
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
Due to the inherent volatility of the Missus object, I have decided to cut this down to a more stable piece of code:

Sub Find_Keys()<o:p></o:p>
Dim Pockets As Range, Keys As Range<o:p></o:p>
Set Pockets = Range(Jacket.Pockets, Jeans.Pockets)<o:p></o:p>
Set Keys = Location(Keys)<o:p></o:p>
If Not Intersect(Pockets, Keys) Is Nothing Then<o:p></o:p>
    CarKeys.Found = True<o:p></o:p>
    Else<o:p></o:p>
        CarKeys.Found = False<o:p></o:p>
        Mobile.Dial(vbTaxi) Destination:= Office<o:p></o:p>
        Exit Home<o:p></o:p>
End If<o:p></o:p>
End Sub

 

[Greg Truby]

I think it interferes with the PMT function. Excel can't cope with both.

 If Missus.Mood(Today) <= Min(Tolerence) then

Fascinating, I would rather have expected

Do Until Missus.Mood(Today) >= Min(Tolerence)...

Due to the inherent volatility of the Missus object, I have decided to cut this down to a more stable piece of code...

A most prudent observation & decision, methinks. I definitely think you've improved robustness.

 

[xyzabc198]

=AND(AE1<>"",AE1=TODAY())

Might not be the most pointless conditional format ever...but im pretty new to this

 

[RoryA]

If we were in .Net, then we could:

Try
    herPatience
Catch It
Finally
   BuyFlowers
End Try

 

[Lewiy]

=AND(AE1<>"",AE1=TODAY())

Might not be the most pointless conditional format ever...but im pretty new to this

Actually, I wouldn’t say that was pointless at all, you are testing that a cell contains today’s date and that it is not blank. I can think of several reasons why you would want to test this condition.