Running a Macro based on Forms Combo Box

[mtampa]

Hi Guys,

I have a forms combo box that outputs to cell K3. When item 3 is selected and the value in cell K3 = 3, I want my macro called EMPVILL to run. However, it only fires when I type a 3 in the box and hit enter. As of now, when I change the value of the combo box to 1, 2, 3 or 4, nothing happens, it just sits there.

Here is the code I'm using:

rivate Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$K$3" Then
Select Case Target.Value
Case Is = 3: Call EMPVILL
Case Else: 'Do Nothing
End Select
End If
End Sub

Can someone point me in the right direction to make it fire when cell K3 changes to the value of 3?

Thanks,

Mike

 

[mtampa]

Did you delete your Worksheet_Change procedure?

Yes I did. Would I be able to send it to you for a quick look if it's not too much of a bother?

 

[AlphaFrog]

Yes I did. Would I be able to send it to you for a quick look if it's not too much of a bother?

If you want to upload it to a file share site and post a link, I'll take a look.

Or just post all your code for the Test_K2 and EMPVILL macros

 

[mtampa]

I can't upload to any share sites at work, but here are th codes:

Sub EMPVILL()
'
' EMPVILL Macro
' Macro recorded 10/11/2011 by tampami
'

'
ActiveSheet.Shapes("Drop Down 96").Select
Selection.ShapeRange.IncrementLeft -527.25
Selection.ShapeRange.IncrementTop 3#
End Sub


And


Sub Test_K3()
If Range("K3").Value = 3 Then Call EMPVILL
End Sub

 

[AlphaFrog]

Can you double check that you assigned the Test_K3 macro to the combobox and not the EMPVILL macro?

 

[mtampa]

That would be it!!!!!!!!!

AlphaFrog - thank you very much for your patience and help. I really can't thank you enough!

 

[AlphaFrog]

http://www.mrexcel.com/forum/showpost.php?p=2893496&postcount=8