Displaying multiple forms

[DaveRadford]

Afternoon,

This is probably simple but i have tried various syntax's and it still seems to complain.

I want to display multiple forms for example, if the 1st range is selected, i want to show the 1st form if the second range is selected then ill want to show the second form, making way for the 'is nothing' of course. In time im sure there will be a 3rd form but that shouldnt be a problem once i have the correct syntax.

Thanks,


If Intersect(Target, Range("$B$11:$B$45")) Is Nothing Then Exit Sub
UserForm1.Show vbModeless

If Intersect(Target, Range("$D$11:$D$45")) Is Nothing Then Exit Sub
WSFilter
CreateWSList
UserForm2.Show vbModeless

 

[RoryA]

What kind of routine is it? If it is event code, as it appears, what event is it?

 

[DaveRadford]

Well teh code before i put in to sub:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("B11:B45")) Is Nothing Then
UserForm1.Show vbModeless
ElseIf Not Intersect(Target, Range("D11:D45")) Is Nothing Then
WSFilter
CreateWSList
UserForm2.Show vbModeless
ElseIf Not Intersect(Target, Range("H11:H45")) Is Nothing Then
UserForm3.Show vbModeless
End If
(I have added a 3rd full a minute ago, this works fine and it brings up the second form still)


Could this be causing it:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D11:D46")) Is Nothing Then
Application.EnableEvents = False
Target.Value = UCase(Target.Value)
Application.EnableEvents = True
End If
End Sub

Other code is for button clicks on the spreadsheet.

Thanks,

 

[RoryA]

Are you clicking on a locked cell, or double-clicking it? If you double-click it, then the double-click acts based on the active cell (which cannot be the locked one) so if the active cell is in D11:D45, then you will see the second form.

 

[DaveRadford]

Wow, spot on! as before i just happened to be in the second range it was form 2 but didnt check that.

I was double clicking the locked cell whilst in the range specified.

Thanks for your help, it all makes sense now :D

However, i dont suppose theres a way to counter act this?

 

[RoryA]

You' have to allow selecting locked cells I think. (or use some funky API stuff to work out the location of the mouse pointer)