 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
| HomeDiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWordDirectoryUser Groups Related Topics Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ... |
MS Office Forum / Excel / Programming / January 2008cell change
I have the following code: Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo stoppit Application.EnableEvents = False With Me.Range("drw1inforng") If .Value <> "" Then MsgBox ("") End If End With stoppit: Application.EnableEvents = True End Sub 'drw1inforng' is a named range on my sheet. When I make a change in this range, nothing happens. What am I doing wrong here? Thanks What would you like to happen? The code executes when any cell on the sheet changes but your don't tell it to do anything. Here's a guess that does something and may get you going:- Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo stoppit Application.EnableEvents = False For Each c In Range("drw1inforng") If c.Value <> "" Then MsgBox c.Value End If Next stoppit: Application.EnableEvents = True End Sub Mike > I have the following code: > Private Sub Worksheet_Change(ByVal Target As Range) [quoted text clipped - 13 lines] > range, nothing happens. What am I doing wrong here? > Thanks I am looking for a way to run a macro when a cell in a range is changed. I used the code that you suggested and each time a cell is changed, it goes thru all the cells in that range. i only need it to work on the cell that is change within a range of cells. How do I do this? Thanks > What would you like to happen? > [quoted text clipped - 32 lines] > > range, nothing happens. What am I doing wrong here? > > Thanks Try the UNION method with Target and drw1inforng ranges > I am looking for a way to run a macro when a cell in a range is changed. I > used the code that you suggested and each time a cell is changed, it goes [quoted text clipped - 38 lines] > > > range, nothing happens. What am I doing wrong here? > > > Thanks Can you give me an example? > Try the UNION method with Target and drw1inforng ranges > [quoted text clipped - 40 lines] > > > > range, nothing happens. What am I doing wrong here? > > > > Thanks Sorry should have used INTERSECT method: Private Sub Worksheet_Change(ByVal Target As Range) Dim rngUnion As Range Set rngUnion = Application.Intersect(Target, Me.Range("drw1inforng")) If Not (rngUnion Is Nothing) Then On Error GoTo stoppit Application.EnableEvents = False If rngUnion.Value <> "" Then MsgBox ("Not blank") End If stoppit: Application.EnableEvents = True End Sub ----- > Can you give me an example? > [quoted text clipped - 42 lines] > > > > > range, nothing happens. What am I doing wrong here? > > > > > Thanks Thanks I'll give it a try > Sorry should have used INTERSECT method: > [quoted text clipped - 62 lines] > > > > > > range, nothing happens. What am I doing wrong here? > > > > > > Thanks will this doit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub If Not Intersect(Target, Range("drw1inforng")) Is Nothing Then MsgBox Target.Value End If End Sub Mike > I am looking for a way to run a macro when a cell in a range is changed. I > used the code that you suggested and each time a cell is changed, it goes [quoted text clipped - 38 lines] > > > range, nothing happens. What am I doing wrong here? > > > Thanks Works fine for me! Good luck. > I have the following code: > Private Sub Worksheet_Change(ByVal Target As Range) [quoted text clipped - 13 lines] > range, nothing happens. What am I doing wrong here? > Thanks |
Reply to this Message |
 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.