Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
On click procedure fails, but not during debug
Hi,
I'm using Excel 2000 and XP pro. When I select a breakpoint and debug pressing F8, the code seems to work. When I get to this line of code the variables show the proper values and the message box does not fire. For Each rng In myRng If rng.Value = "" Then MsgBox "You have not selected a Part Number to quote.", vbOKCancel Exit Sub End If When I remove the breakpoint and click on the button, the message box fires. I don't know why. Does anyone have any suggestions? Thanks, Dan Dungan This is a portion of my on click procedu Private Sub cmdAddPart_Click() 'To prepare for printing--This checks that all required component prices are entered Dim rng As Range Dim myRng As Range Set myRng = Range("FormulaCriteria") 'To determine how many parts the agent has added, 'Set a variable to count how many times the agent clicks the command button Dim clickcount As Variant Application.EnableEvents = False 'ActiveWorkbook.Unprotect ("pricing") For Each rng In myRng If rng.Value = "" Then MsgBox "You have not selected a Part Number to quote.", vbOKCancel Exit Sub End If If Len(rng.Value) = 1 And rng.Offset(0, 6).Value < 1 Then MsgBox rng.Offset(-1, 0).Value & vbCrLf & "missing.", vbAbortRetryIgnore, "Missing Price Error" Exit Sub End If If WorksheetFunction.Sum(Range("E83:O83")) < 1 Then MsgBox "You have not entered a quantity", vbAbortRetryIgnore End If Next rng Sheets("Print").Select Columns("P:P").Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="<0", Operator:=xlAnd ActiveSheet.PrintOut Selection.AutoFilter Sheets("QuotedPart").Select Range("A2:C2").Select |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
On click procedure fails, but not during debug
On Oct 12, 12:23 pm, dan dungan wrote:
Hi, I'm using Excel 2000 and XP pro. When I select a breakpoint and debug pressing F8, the code seems to work. When I get to this line of code the variables show the proper values and the message box does not fire. For Each rng In myRng If rng.Value = "" Then MsgBox "You have not selected a Part Number to quote.", vbOKCancel Exit Sub End If When I remove the breakpoint and click on the button, the message box fires. I don't know why. Does anyone have any suggestions? Well its because I didn't press F8 enough times. So, there is some logic error. I'll work on this. No help required at this time. Thanks, Dan |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Pivot Table Creation Macro fails with Error #5 "Invalid procedure call or argument" | Excel Programming | |||
Procedure fails after updating XP to SP2 | Excel Programming | |||
Debug.Print in a WITH procedure? | Excel Programming | |||
Help required to debug mailmerge procedure | Excel Programming |