Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Excel / Programming / February 2006

Tip: Looking for answers? Try searching our database.

worksheet_Change

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Leslieac - 22 Feb 2006 17:30 GMT
Hi,

I have written the following to open up a different user form when certain
cells are changed  (The User answers "Y" to the question).  This part is
working.  My problem is when I reset the worksheet to the default values of
"N", the worksheet views this as a change and is popping up all the user
forms.  I've been trying to add the first section (which isn't working), that
if any of the cells in the range b18:p28 are changed to "N", then do nothing.

I would appreciate any help... Leslie

Private Sub Worksheet_Change(ByVal Target As Range)

   
   If Range("b14:p26").Cells = "N" Then Exit Sub
       
       
   
   If Not Intersect(Target, Me.Range("g18:g26")) Is Nothing Then
   With Target
           frmBeltBuff.Show
       End With
   End If

       If Not Intersect(Target, Me.Range("h18:h26")) Is Nothing Then
       With Target
           frmBevel.Show
       End With
   End If
   
   

End Sub
Bob Phillips - 22 Feb 2006 17:51 GMT
Don't get it.

You fire up a form if a value is entered in any og G18:G26, or any of
H18:H26. but what has B18:P28 got to do with it? Do you not want to fire the
form if the selected cell is N. If so then

Private Sub Worksheet_Change(ByVal Target As Range)

  If Not Intersect(Target, Me.Range("g18:g26")) Is Nothing Then
       If Target.Value <> "N" Then
           With Target
               frmBeltBuff.Show
           End With
       End If

  ElseIf Not Intersect(Target, Me.Range("h18:h26")) Is Nothing Then
       If Target.Value <> "N" Then
           With Target
               frmBevel.Show
           End With
       End If

   End If

End Sub

Signature

HTH

Bob Phillips

(remove nothere from email address if mailing direct)

> Hi,
>
[quoted text clipped - 24 lines]
>
> End Sub
Leslieac - 22 Feb 2006 19:31 GMT
Thanks so much.  That seems to be working.  The larger range of B18:P26 is
because I have that many more User Forms to create in that range.  I was just
trying to combine 2 to see if it would work.

> Don't get it.
>
[quoted text clipped - 53 lines]
> >
> > End Sub
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.