A
ajay singh
Hi all,
I have a bunch of lines programmed into the excel sheet. The code
picks up the numbers from the cells and generates a pop-up messag
everytime a 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
I have a bunch of lines programmed into the excel sheet. The code
picks up the numbers from the cells and generates a pop-up messag
everytime a 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