VBA code

L

LB79

I have a form that i want to show messages when the user clicks CONTINUE
but im not sure how i can get the CONTINUE button to show the different
messages. An example of what i have is below. When CONTINUE is clicked
a second time LBLMSG1 should show a different message.

Can anyone help?

Private Sub Continue_Click()
lblMsg1 = "Message 1"

End Sub
 
J

jeff

HI,

You need to track your loop count in a hidden or
out-of-the-way cell - this code does it on sheet3
cell A1:

Private Sub Continue_Click()
a = Sheet3.Range("A1")
Select Case a
Case ""
lblMsg1 = "Message 1"
Sheet3.Range("A1") = 1
Case 1
lblMsg1 = "Message 2"
Sheet3.Range("A1") = 2
Case Else
lblMsg1 = "Message 3"
Sheet3.Range("A1") = ""
End Select
End Sub

jeff
 
D

Dave Peterson

I'm not quite sure this fits with what you want to do, but maybe this'll get you
started:

(This was all under the userform.)

Option Explicit

Dim NextMessageNumber As Long
Dim myMessages(1 To 5) As String

Private Sub Continue_Click()

Me.lblMsg1.Caption = myMessages(NextMessageNumber)

'do more stuff

NextMessageNumber = NextMessageNumber + 1
If NextMessageNumber > UBound(myMessages) Then
NextMessageNumber = 1
End If

End Sub

Private Sub UserForm_Initialize()

myMessages(1) = "hi there"
myMessages(2) = "bye there"
myMessages(3) = "what's up"
myMessages(4) = "Please wait"
myMessages(5) = "almost done!"

Me.lblMsg1.Caption = myMessages(1)

NextMessageNumber = 2

End Sub
 
Top