Showing a userform based on a condition.

  • Thread starter Thread starter Pete
  • Start date Start date
P

Pete

I have a workbook that I want to show different Userforms
based on condition within the spreadsheet. When I only
have the Private Sub set up everything works well, But
when the 2nd one is added I get an error for anbigous name.

Can anyone tell me how to correct this?


Private Sub Worksheet_Change(ByVal Target As Range)
If Range("P1BetDown") < Range("CBetDown") Then
UserForm7.Show
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("P1BetFlop") < Range("CBetFlop") Then
UserForm8.Show
End If
End Sub

Thanks
Pete
 
Pete,

Combine the two procedures in to a single Change event procedure.
E.g,

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("P1BetDown") < Range("CBetDown") Then
UserForm7.Show
End If
If Range("P1BetFlop") < Range("CBetFlop") Then
UserForm8.Show
End If
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
 
Chip

Is there a limit to how many of conditions you can stack
in there? I have a need for about 10-15 conditions.

Thanks for your insight
Pete
 
Back
Top