StartingOut
Board Regular
- Joined
- Feb 1, 2011
- Messages
- 92
It sad but true, I don't see why this isn't working. Please Help!
I have 2 forms and on several sheets a button that when clicked I want it to check the value in a cell on the active sheet and if it = one of 2 possible sets of 3 letters it open a respective userform and if the cell has noting in it or some other value it displays a mesage.
Sub Button41_Click()
Set sh = ActiveSheet
If sh.Range("J12") <> "PTG" Then UserForm2.Show
If sh.Range("J12") <> "FTS" Then UserForm1.Show
Else
MsgBox "No Record Available to Update", vbExclamation
End Sub
I have 2 forms and on several sheets a button that when clicked I want it to check the value in a cell on the active sheet and if it = one of 2 possible sets of 3 letters it open a respective userform and if the cell has noting in it or some other value it displays a mesage.
Sub Button41_Click()
Set sh = ActiveSheet
If sh.Range("J12") <> "PTG" Then UserForm2.Show
If sh.Range("J12") <> "FTS" Then UserForm1.Show
Else
MsgBox "No Record Available to Update", vbExclamation
End Sub
