Ok or Cancel code
 

'Use the Find method to find the Our ref. number on the sales sheet
Set rng = SlsSh.Range("BP1:IV1").Find(InvSh.Range("K23").Val ue, , , xlWhole)

After the above portion of code runs I want to only allow the code to
continue only if the cell below the cell that is found is empty in Row2. If
it is not empty the message box should give the option to select OK to
continue and overright the existing information or CANCEL to cancel the
code.

Any one know how I can go about this?
Many thanks if you can be of help.
Pat

Ok or Cancel code
 

If IsEmpty(rng.Offset(1,0).Value) Then
ans = MsgBox("OK to continue?", vbOKCancel)
if ans = vbCancel Then Exit Sub
End Idf

--
HTH

-------

Bob Phillips
"Pat" wrote in message
...
'Use the Find method to find the Our ref. number on the sales sheet
Set rng = SlsSh.Range("BP1:IV1").Find(InvSh.Range("K23").Val ue, , ,
xlWhole)

After the above portion of code runs I want to only allow the code to
continue only if the cell below the cell that is found is empty in Row2.
If
it is not empty the message box should give the option to select OK to
continue and overright the existing information or CANCEL to cancel the
code.

Any one know how I can go about this?
Many thanks if you can be of help.
Pat

Ok or Cancel code
 

Hi,
That will do nicely, only I need to execute the opposite instruction.
Instead of IsEmpty I need to use the opposite to this. It escapes me to
what that function should be!


"Bob Phillips" wrote in message
...
If IsEmpty(rng.Offset(1,0).Value) Then
ans = MsgBox("OK to continue?", vbOKCancel)
if ans = vbCancel Then Exit Sub
End Idf

--
HTH

-------

Bob Phillips
"Pat" wrote in message
...
'Use the Find method to find the Our ref. number on the sales sheet
Set rng = SlsSh.Range("BP1:IV1").Find(InvSh.Range("K23").Val ue, , ,
xlWhole)

After the above portion of code runs I want to only allow the code to
continue only if the cell below the cell that is found is empty in Row2.
If
it is not empty the message box should give the option to select OK to
continue and overright the existing information or CANCEL to cancel the
code.

Any one know how I can go about this?
Many thanks if you can be of help.
Pat

Ok or Cancel code
 

I have remembered what I should enter.
If Not IsEmpty(rng.Offset(1,0).Value) Then

Cheers

"Pat" wrote in message
...
Hi,
That will do nicely, only I need to execute the opposite instruction.
Instead of IsEmpty I need to use the opposite to this. It escapes me to
what that function should be!


"Bob Phillips" wrote in message
...
If IsEmpty(rng.Offset(1,0).Value) Then
ans = MsgBox("OK to continue?", vbOKCancel)
if ans = vbCancel Then Exit Sub
End Idf

--
HTH

-------

Bob Phillips
"Pat" wrote in message
...
'Use the Find method to find the Our ref. number on the sales sheet
Set rng = SlsSh.Range("BP1:IV1").Find(InvSh.Range("K23").Val ue, , ,
xlWhole)

After the above portion of code runs I want to only allow the code to
continue only if the cell below the cell that is found is empty in
Row2.
If
it is not empty the message box should give the option to select OK to
continue and overright the existing information or CANCEL to cancel the
code.

Any one know how I can go about this?
Many thanks if you can be of help.
Pat