wolverineb
02-14-2010, 11:32 PM
Any thoughts on why this section of code would always branch to the "Is Nothing" branch simply because the user scrolled?
Basically, if there is any scrolling of any kind (scroll wheel, scroll bar, page-up/down), the dialog appears to continue normally (i.e. it allows the user to click on a cell, reflects that cell's address in the box, etc.), but then ALWAYS results in the InputBox's "cancel" behavior.
It works properly if no scrolling is done.
I have found a couple of other complaints about this, but only in obscure locations and always without an answer.
On Error Resume Next
Set rngShopOrderToMove = Application.InputBox(sMessage1, gsAPPNAME, _
Default:=rngCurrentRowShopOrder.Address, Type:=8)
On Error GoTo MoveShopOrder_Error
If rngShopOrderToMove Is Nothing Then
MsgBox "Operation Cancelled"
GoTo ErrorExit
Else
Set rngShopOrderToMove = wksSheet.Cells(rngShopOrderToMove.Row, _
glSCHED_SO_COL)
End If
Basically, if there is any scrolling of any kind (scroll wheel, scroll bar, page-up/down), the dialog appears to continue normally (i.e. it allows the user to click on a cell, reflects that cell's address in the box, etc.), but then ALWAYS results in the InputBox's "cancel" behavior.
It works properly if no scrolling is done.
I have found a couple of other complaints about this, but only in obscure locations and always without an answer.
On Error Resume Next
Set rngShopOrderToMove = Application.InputBox(sMessage1, gsAPPNAME, _
Default:=rngCurrentRowShopOrder.Address, Type:=8)
On Error GoTo MoveShopOrder_Error
If rngShopOrderToMove Is Nothing Then
MsgBox "Operation Cancelled"
GoTo ErrorExit
Else
Set rngShopOrderToMove = wksSheet.Cells(rngShopOrderToMove.Row, _
glSCHED_SO_COL)
End If