asked on

loop until A1 = A5

Hi
I need somekind of loop whether it is for loop or do while or anykind of other loops or even if statements; i am just not sure what is the best way of doing it- here is my pseudocode:

show application.cursor = xlwait
as long as A1 is not equal A5
once A1 = A5 then i want to display
application.cursor = xldefault

can someone help me with a code in the above pseudocode? thanks

rettiseert

You can use this:

Dim A1 As Integer
Dim A5 As Integer

'Example initial values:
A1 = 0
A5 = 100

Application.Cursor = xlWait

Do While A1 <> A5
A1 = A1 + 1 'Example
Loop

Application.Cursor = xlDefault

karinos57

ASKER

i don't think i can initialize like that. this is what i am trying to do, I've got an Excel spreadsheet that pulls data from sql server. The user puts code number in A1 as soon as that happens then the external data in the sheet is refreshed
Issue: the user has no indication that the program is doing anything. Sometimes the query completes quickly in 20 seconds. But sometimes it may take upwards of 2 minutes depending the size of the data, during which time the user has no clue that anything is being updated. I'd like something that lets the user know that the data is being refreshed and they need to wait.

ASKER CERTIFIED SOLUTION

folderol

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

SOLUTION

Robberbaron (robr)

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial