If loop based on logic function

[ajay singh]

Hi all,
I have a bunch of lines programmed into the excel sheet. The code pick
up the numbers from the cells and generates a pop-up message everytime
value is entered in the cells above them.

Each column contains one work week's data. The top row of the shee
contains the workweek number.

What I want to do is put two consecutive "if" condition for dat
verification.

If the data is entered in the column of the current workweek then i
should run the above mentioned codes with some modification (I ca
handle the modification part).

If the data is entered in the column of any workweek later than curren
workweek then it should run the above mentioned codes in anothe
configuration

Before it starts with the forecast section, it should verify the colum
in which the data is been entered against the current week and the
choose accordingly.

This is how the code starts

Private Sub WorkSheet_Change(ByVal Target As Range)
Dim FP As Range
Dim FQ As Range
Dim FR As Range
Dim FS As Range
Dim ACP As Range
Dim ACQ As Range
Dim ACR As Range
Dim ACS As Range

' FOR FORCAST '''''''
Set FP = Range("E38:BI38")
If Not Application.Intersect(FP, Range(Target.Address)) _
Is Nothing Then
MsgBox "Please Order " & Target.Offset(24, -1).Value & " Quantity o
Pump Systems by the End of Work Week " & Target.Offset(-2, -1).Value
End If




Thanks a lot for your help in advance.

Aja