Apr 21 2019 02:07 AM
I have a "private worksheet" below that monitors U30 THRU U629. My macro starts off by clearing all contents of U30 thru u629 prompting this private macro to initiate. I would like to suppress this first initialization of the private macro (since this is just a reset) and allow only subsequent activation:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Range("$AW$21:$AX$629").AutoFilter Field:=1
If Not (Application.Intersect(Range(" U30:U629"), Target) Is Nothing) Then
If MsgBox("Select NO until ADDITIONAL SHARES are manually entered. Have you finished manually entering ADDITIONAL SHARES?", vbQuestion + vbYesNo, "") = vbYes Then
Call ManualCalculate
End If
End If
End Sub
Apr 21 2019 08:34 AM
SolutionApr 21 2019 02:50 PM
Michael thank you! With your help my final code to fix this issue looks like this and is embedded in the macro that does the clearing of the contents. This worked perfectly:
Application.EnableEvents = False
Range("Z10,Z8,R2,T2:T27,U2:U11,V2:W5,U30:U629").Select
Range("U30").Activate
Application.CutCopyMode = False
Selection.ClearContents
Application.EnableEvents = True
Apr 21 2019 03:03 PM
Apr 21 2019 04:50 PM
Wow I select and activate in multiple macros causing my entire process to take about 6mins. I always wondered how to make things run faster. I will begin implementing your suggestion. Ill get back to you soon with the result as I have much code to modify. Thanks
Apr 22 2019 06:48 AM
Apr 21 2019 08:34 AM
Solution