Looping and If Structures

Please help, and thank you in advance. I am trying to loop the following If
Structure until Range("E2") = "":

If Minus1Var >= ABCvar3 Then
ABCvar4 = Minus1Var * Range("E2")
Range("E2").Delete Shift:=xlUp
Range("D2").Select
Range("D2").Insert Shift:=xlDown
Range("D2").Select
Range("D2").Value = ABCvar4
Range("D2310").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If

horsepro001 wrote:

> Please help, and thank you in advance. I am trying to loop the following
> If Structure until Range("E2") = "":
>
> If Minus1Var >= ABCvar3 Then
> ABCvar4 = Minus1Var * Range("E2")
> Range("E2").Delete Shift:=xlUp
> Range("D2").Select
> Range("D2").Insert Shift:=xlDown
> Range("D2").Select
> Range("D2").Value = ABCvar4
> Range("D2310").Select
> Selection.Sort Key1:=Range("D2"), Order1:=xlAscending,
> Header:=xlGuess, _
> OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
> End If

You've posted in a newsgroup dealing with general questions about the
Windows Vista operating system. You should post programming questions in a
programming newsgroup. Here is a list of all the public MS newsgroups:

http://aumha.org/nntp.htm

If you don't see what you're looking for there, posting in a non-MS
newsgroup for developers in whatever programming language you are using
would be the next step.

Malke
--
MS-MVP
Elephant Boy Computers
www.elephantboycomputers.com
Don't Panic!

Vista doesn't loop - it soars.


If you have a question about a specific programming language, macro or
application software you would do better to post that question in a
newsgroup specific to the application software or programming language
you're trying to use.

--
Richard G. Harper [MVP Shell/User] rgharper@gmail.com
* NEW! Catch my blog ... http://msmvps.com/blogs/rgharper/
* PLEASE post all messages and replies in the newsgroups
* The Website - http://rgharper.mvps.org/


"horsepro001" <horsepro001@discussions.microsoft.com> wrote in message
news:AD974F21-6748-4F45-8816-F35765880593@microsoft.com...
> Please help, and thank you in advance. I am trying to loop the following
> If
> Structure until Range("E2") = "":
>
> If Minus1Var >= ABCvar3 Then
> ABCvar4 = Minus1Var * Range("E2")
> Range("E2").Delete Shift:=xlUp
> Range("D2").Select
> Range("D2").Insert Shift:=xlDown
> Range("D2").Select
> Range("D2").Value = ABCvar4
> Range("D2310").Select
> Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess,
> _
> OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
> End If