'Im am actaully automating a sheet called FTP from some inputs from sheet
called WAS
'The rows in WAS are dynamic. And begins from row 6. In the code j=6.. the
cell name is at j=5
'Thr FTP sheet needs to be automatically filled on clicking a macro and the
row headers are placed at 3.. teh row entries start at i=4)
'The input details from WAS a
Column D: Project Name
E: task
F: assigned to
H: Planned start date
I: planned End date
J: actual Start
K: actual end
L: Planned Effort
O: Status

The output fileds in FTP sheet are
Column B: Assigned To
C: work item (this is from WAS' Project name_Task i.e, concat of Columns
D&E with an _)
D,E,F,G,H : these contain monday to friday of a week i.,5 working days of a
week
What i have to do is when i click on the macro i should get a prompt box
with a list asking to select the date range for a working week .
say the box should contain a list with ranges like
31-Dec-207 to 4-Jan-2008
7-Jan-2008 to 11-Jan-2008
...
and this range of working days should be till 29-Dec-2008 to 2-Jan-2009

So when i pick one of teh above range , the five days in a week shud
distribute in 5 columns say D3,E3,F3,G3,H3 and the ranges include only mon to
friday dates and do not include sat and sunday. so whtever current date im in
now , i shud be able to pick any date range and get the dates corresponding
to the
range only in those 5 columns...
This is the code that i have witten below Sub automateFTP()

After this i have to place the following logic

The distribution of the day wise effort will be based on a logic which would
check for 8 hours of work on a
particular day (say it checks for 8 for an individual(asigned to)). If 8
hours has already been consumed in
a particular day then no other task will be planned for the day then it will
try to distribute 8 hours for the remaining day
, If less than 8 hours has been planned then the new task will be
distributed as 8-x
where x is the hours for already planned task.

I had jsut written the code for the folwing . Can u pls help me as
ThisWorkbook task is quite urgent to finish and im unaware of how to do..
'bringing in ProjectName_taskname and assigned to name from WAS into FTP

Sheets("WAS").Activate
J = 6 'WAS entries start from 6th row . so j=6
I = 4 'FTP entries start from 4th row. so i=4

While Cells(J, 4).Value < ""

If (Cells(J, 15).Value < "Completed") Then

Sheets("FTP").Cells(I, 3) = Cells(J, 4).Value & "_" & Cells(J, 5).Value
Sheets("FTP").Cells(I, 2) = Cells(J, 6).Value


End If

I = I + 1
J = J + 1

Wend
Sheets("FTP").Activate

End Sub