ESC key to exit loop??

[nikko50]

How do I include the option for the user to exit the below loop with the ESCAPE key?


Do While Not IsEmpty(Cells(i, 1))

div = Cells(i, 1)

lne = Cells(i, 2)

'Application.Wait Now + TimeValue("00:00:01")
Sleep 1000
SendKeys div
SendKeys "{ENTER}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys lne
SendKeys "{TAB}", True
SendKeys "{ENTER}", True

Sheets("Sheet1").Select
Range("A" & i & ":B" & i).Select

With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With

'InteriorColor = ActiveCell.Interior.ColorIndex

Call SetCursorClickRight(Right_X, Right_Y)
'Application.Wait Now + TimeValue("00:00:01")
Call SetCursorClickLeft(Left_X, Left_Y)



i = i + 1
num = num + 1
Loop

 

[tweedle]

You can use API GetAsyncKeyState.

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Do 
'your stuff

  DoEvents
  If GetAsyncKeyState(vbKeyEscape) Then 'cancel on Esc
  Exit Do
  End If

Loop