Im trying to use a spinner to change cell value this change in value initiates VBA then conditional operator 'IF' based on the cell in question. Code works fine when value is entered into cell but not when spinner changes value of the cell. Any ideas?
Private Sub Worksheet_Change(ByVal Target As Range) Dim KeyCells As Range Set KeyCells = Range("N3") If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then If Range("N3") = 2 Then
Last edited by silkpantsman; 07-14-2015 at 06:10 PM.
Here's the approach I would use..
a) Make a subprogram that does the same actions.
b) Change the above Sub to call that subprogram, perhaps after verifying the target.
c) Assign the same macro to the spinner control (right-click on it, …)
That's about it.
- Stu
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
silkpantsman 
Register To Reply
Bookmarks