Is it possible to 'Do Nothing' in VBA? 2

[inso18]

Hi all, I'm new to this forum. Nice to join here.

I have a small question -

I'm using a loop and inside it and If-Elseif-ElseIf-End If condition. As the loop goes up with his value certain conditions activate on certain values. On some values though I need the code to do nothing. Is there a command to that?

Thanks a bunch.

 

[combo]

You set the conditions when the code does something, otherwise nothing changes. In 'If-Elseif-ElseIf-End' there is no final '-ElseIf-Else-End' condition, so in some cases the code can 'do nothing'.

combo

 

[mintjulep]

DoEvents

 

[TonyJollans]

If you want to do nothing, just code nothing ...

If [i]condition[/i] Then
    Msgbox "Hello - I'm doing something!"
ElseIf [i]another condition[/i] Then
    Msgbox "Hello - I'm doing something else!"
Else
End If

(DoEvents does something - you may or may not want to do it.)

Enjoy,
Tony

------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

Professional Office Developers Association

 

[fumei]

Depending on what your logic specifically is, you may also want to consider using Select Case. In which case (pun intended), as has been mentioned, you simply give no instruction to do anything.

Select Case Textbox1.Value
  Case  0 To 9
     Msgbox "You have input 0 to 9"
     Textbox2.Value = Textbox1.Value
  Case 10
[COLOR=red]     ' do nothing[/color red]
  Case 11 To 30
     Msgbox "You have input 11 to 30."
     Textbox3.Value = Textbox1.Value * 12
  Case Else
     Msgbox "You have input greater than 30.  Please " & _
            "reinput a value."
     Textbox1.Text = ""
End Select

Gerry
My paintings and sculpture

 

[inso18]

Nice solutions.
Thanks, folks.

 

[mintjulep]

This little timer simply locks up if I try the do nothing approach.

Public Function pause(wait As Double)

    Start = Timer
    
    Do While Timer < Start + wait
        'wait.
    Loop


End Function

While it works fine with DoEvents.

 

[TonyJollans]

Works OK for me.

Enjoy,
Tony

------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

Professional Office Developers Association

 

[mintjulep]

Hum,

Works ok if called in immediate window on its own.

Locks up excel if called from another function.

 

[TonyJollans]

I can call it from anywhere - even a UDF in a cell.

Tested in Excel 2003 - although the result is what I would have expected whatever the version. I'm afraid (odd expression when I think about it!) I don't know what the problem might be.

Enjoy,
Tony

------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

Professional Office Developers Association