Intersection, Date, and Merged Cell Problem 1

[monagan]

I have a worksheet set up with dates(merged cells) and departments(two separate cells) on the top and names on the side like this:

06/01-03 06/04-10 06/11-17
Ship Main Ship Main Ship Main
Bob
Jim
Lisa
Bill

Now I have another sheet that someone puts in the date and the name and the department, and hours worked in that department.

My question is, how do I (1) Get the date in the right column if it falls in or on the start or end date, then

(2)how do I get it to be in the shipping or maintenance column.

 

[SkipVought]

If you have multiple workbooks, then you have to reference the workbook/worksheet & range.

Check this out. How Can I Make My Code Run Faster? faq707-4105

For instance you could do something like this

Dim wsData as Worksheet, wsOther as Worksheet
set wsData = Workbooks("MyData.xls")").Worksheets("What") 
set wsOther = Workbooks(MyOther.xls").Worksheets("Sheet1") 
...
With wsOther 
   ENAME = .Range("a14").Value
   EDate = .Cells(7, 8).Value
   EHOURS = .Range("a20").Value
   EDept = .Range("a17").Value
   EMonth = .Range("h9").Value
End With
...

Check this out. How Can I Make My Code Run Faster? faq707-4105



Skip,

_{[red]Be advised:[/red] When transmitting sheet music...
If it ain't baroque, don't fax it!}

 

[monagan]

Thanks Skip for Everything you do around here.

 

[monagan]

I'm having loads of trouble using The pivot Table or report.

This is my first time using, and maybe that is the main problem

I just want the whole month listed out, like I had before.
7/12-7/18 7/20-7/26 7/28-7/31
Main Ship Main Ship Main Ship
Jim
Bob 5 0
Bill
Lynn

Is this possible with a pivot table or report?


"We have enough youth, How about a fountain of SMART?

 

[SkipVought]

You had WEEKS.

Create a column in your Source data for the Week based on the date.

Skip,

_{[red]Be advised:[/red] When transmitting sheet music...
If it ain't baroque, don't fax it!}