code doesnt work
Is that in the 'Sale' sheet code module ? and also, change this line
If Target.Address = "sale!$P$2" Then to this If Target.Address = "$P$2" Then -- Regards, Juan Pablo González "Choice" wrote in message ... Still not working, this is exactly what i have in there. when i go to Sale!P2...type in a number nothing happens Private Sub Worksheet_Change(ByVal Target As Range) Dim ans If Target.Address = "sale!$P$2" Then If WorksheetFunction.CountIf(Range("Tracking!C4:C100" ), Range("Sale!P2")) 0 Then ans = MsgBox("Continue", vbYesNo) If ans = vbYes Then Application.Run (SortTracker) End If End If End Sub |
code doesnt work
Also, save and close your workbook to get event code to activat
----- Juan Pablo Gonzalez wrote: ---- Is that in the 'Sale' sheet code module ? and also, change this lin If Target.Address = "sale!$P$2" The to thi If Target.Address = "$P$2" The -- Regards Juan Pablo Gonzále "Choice" wrote in messag .. Still not working, this is exactly what i have in there. when i go t Sale!P2...type in a number nothing happen Private Sub Worksheet_Change(ByVal Target As Range Dim an If Target.Address = "sale!$P$2" The If WorksheetFunction.CountIf(Range("Tracking!C4:C100" ) Range("Sale!P2")) 0 The ans = MsgBox("Continue", vbYesNo If ans = vbYes Then Application.Run (SortTracker End I End I End Su |
All times are GMT +1. The time now is 01:41 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com