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 procedure:
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
|
Similar Threads
