Excel 2003 - Showing Userform

  • Thread starter Thread starter Steve Jones
  • Start date Start date
S

Steve Jones

Hi

Is it possible to have a userform display (show) on selection of a specific
cell?

I have come up with the code as below but it shows the form on everytime I
select any cell and not just "B18".


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

' Want userform to display on selection of cell B18.
' If any other cell is selected - nothing.

If Range("b18") = ActiveCell Then Call Furn Else ' "Furn" is UsrFrm.show
If Range("b18") <> ActiveCell Then Exit Sub


End Sub

Thanks for your help.

Steve
 
Hi Steve,

Something like this should work:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B18")) _
Is Nothing Then Furn
End Sub

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address = "$B $18" then
Call Furn
End If

End Sub
 
Try this:

If Target.Address = "$B$18" then Call Furn Else Exit Sub

Assuming you are running this inside of
Worksheet_SelectionChange
DonB
 
Thanks for your incredibly quick response, it works perfectly and I'd been
looking through books and sites for ages.

Cheers

Steve
Jake Marx said:
Hi Steve,

Something like this should work:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B18")) _
Is Nothing Then Furn
End Sub

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]


Steve said:
Hi

Is it possible to have a userform display (show) on selection of a
specific cell?

I have come up with the code as below but it shows the form on
everytime I select any cell and not just "B18".


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

' Want userform to display on selection of cell B18.
' If any other cell is selected - nothing.

If Range("b18") = ActiveCell Then Call Furn Else ' "Furn" is
UsrFrm.show If Range("b18") <> ActiveCell Then Exit Sub


End Sub

Thanks for your help.

Steve
Click to expand...
Click to expand...
 
Thanks for your incredibly quick response - I tried the code from Jake and
it worked fine.

I tried yours and DonB's with no success at all, I guess its me!

Once again many thanks
 
Steve said:
Thanks for your incredibly quick response, it works perfectly and I'd
been looking through books and sites for ages.
Click to expand...

No problem, Steve - glad to help!

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]
 
I added a space in the $B$18, that is why mine didn't work, but I can't see
why Don's didn't.
 
Thanks for your answers. I opted for the answer from Jake which worked fine,
I tried the other two answers and for whatever reason I couldn't get either
to work.

Following on from calling the userform, the user then presses a print button
and that runs through a sequence however it keeps "halting" as it keeps
calling the userform.

If I run the userform from a button and then press the print button
everything works as it should.

Where am I going wrong?
 
Back
Top