Spreadsheet dates in a calendar layout?

[stereosympathy]

HI,

I have a sheet pasted below, I am wondering if it is possible to take data and have it automatically laid out in a calendar format. Say all the dates in column G could be sorted into a calendar with reference text from column E. Any help on this would be appreciated.

Unique Print Schedule.xls
	A	B	C	D	E	F	G	H	I	J	K	L	M
9	16212	596123	9/4/2007	Judson	JusdonRockets	2	9/10/2007	300	UPSGND	Approved	None	1518-125WHHC	Grommet25pcsONLY!!!!
10	16255	596214	9/5/2007	MCASA1	PhilipWelpSoccer	2	9/10/2007	200	UPSGND	AwaitingApp	None	1525-23WHHL
11			9/6/2007	SuccessPromotions	SpringfieldCardinals	3	9/11/2007	4800	ADVISE	Approved	None	1518-15WHHP
12	16275		9/6/2007	UNICH1	NorthCarolinaFieldHockey	2	9/11/2007	2006	UPSGND	AwaitingApp	None	1118-12DCARBLUE	6SamplestoDonnyDonDon
13	16278		9/6/2007	Wilson	NFLShield	4	9/12/2007	500	UPSGND	Approved	None	1625WHMW
14				SuccessPromotions	SpringfieldCardinals	3	9/12/2007	5000	ADVISE	Approved	None	1518-15WHHP
15	16215-A	596124	9/4/2007	CustomTowels	UPS	1	9/13/2007	150	UPSGND	Approved	None	1118-12WHHR	Hook&GrommetInsureShipment
16				Agua	ExerciseWithAltitude	1	9/13/2007	150	UPS2Day	AwaitingApp	None	1625-25WHHC
17	16304	587476	9/7/2007	GREGRE	GCHSTigres	2	9/14/2007	75	UPSGND	Approved	None	1525-23-BKHL	ShipFromTeamSpiritTowels
18	15750	594266	8/6/2007	GreenBayPackers	ForceProud2BLoud	3	9/17/2007	144,002	UPSGND	Approved	None	1118-12WHHR	None
19	15778		8/7/2007	PPISports	U.S.Cellular/Wisconsin"W"	3	9/18/2007	55,200	ADVISE	Approved	None	1118-12WHHR	usesecondsforextra's
20	15753	593678	8/6/2007	McArthur	ArizonaCardinals	4	9/20/2007	67,006	ODFL	Approved	StrikeSent	1218-13WHFI	6postProToDon
21	16204		9/4/2007	PPISports	MichiganGoBlue	1	9/20/2007	1016	UPSGND	AwaitingApp	None	1118-12PMS109	10towelstoGregCannon6toDon
22	16256		9/7/2007	TimeWarner	BuffaloBills"Billieve	5	9/26/2007	60036	ODFL	AwaitingApp	None	1118-12WHHR	36postprotoDonnyDon
23			8/31/2007	Agua	WreckEmTech	?	10/1/2007	1005	UPSGND	AwaitingApp	None	1518-125WHHC
24			8/28/2007	Agua	GoHogs	3	10/1/2007	1005	UPSGND	AwaitingApp	None	1518-125WHHC
UpComingOrders

 

[triff]

Replace the existing code for the corresponding lines in the macro with the following lines. That should work.

varFirstOfMonth = varCalMonth & "/01/"  & strYear ' this is now set up in US date format mm/dd/yyyy 
strCalMonth = MonthName(varCalMonth)

Let me know if the code does everything that you want.
regards
Michael

 

[stereosympathy]

That didn't work either. Its weird that it works on your and not on mine. I tried formatting the date in numerous ways but nothing I do does anything. Do you think it could be because I am not displaying a 2 digit number for the month date? I posted an updated version of my sheet below for reference. I really do appreciate all your help and please don't go to any trouble to fix the problem. Thanks a lot.

Unique Print Schedule.xls
	A	B	C	D	E	F	G	H	I	J	K	L	M	N
5	PrintTotal:		230,581	CurentMonthPrintTotals:		129,020		Note:ScrollOverPO#ToViewJobStatus&Scheduling
6
7	PO	SALES	DATE				SHIP		SHIP			TOWEL
8	NUM	ORDERNUM	REC'D	CUSTOMER	PRINTNAME	Screens	DATE	QTY	Type	PPAPP	STKAPP	Model	Handling	Complete
9	16408	596959	9/14/2007	NFLNE	NFLFutbolAmericano	4	9/17/2007	202	FEDEXRED	Approved	None	1218-13WHFI	ShipFedexOvernight!
10	16346-A	596688	9/10/2007	Agua	SunstreetMortgage	2	9/18/2007	302	FEDEXRED	Approved	None	1626-30WHDC	Hook&Grommet
11			9/13/2007	Agua	McDonaldsHacerGolfOuting	5	9/18/2007	304	UPSGND	Approved	None	1626-30WHDC	Hook&Grommet
12	15753	593678	8/6/2007	McArthur	ArizonaCardinals	4	9/20/2007	67,006	ODFL	Approved	None	1218-13WHFI	6postProToDon
13	16204		9/4/2007	PPISports	MichiganGoBlue	1	9/20/2007	1016	UPSGND	AwaitingApp	None	1118-12PMS109	10towelstoGregCannon6toDon
14	16325	596540	9/10/2007	Agua	GolfEtc.	1	9/24/2007	154	UPSGND	Approved	None	1626-30WHDC	Hook&Grommet.4samplestosend
15	16256		9/7/2007	TimeWarner	BuffaloBills"Billieve	5	9/26/2007	60036	ODFL	Approved	None	1118-12WHHR	36postprotoDonnyDon
16	16231		8/31/2007	Agua	WreckEmTech	?	10/1/2007	1005	UPSGND	Approved	None	1518-125WHHC	None
17	16232		8/28/2007	Agua	GoHogs	3	10/1/2007	1005	UPSGND	Approved	None	1518-125WHHC	None
18	16237		8/28/2007	Agua	UConnHuskies	3	10/3/2007	1005	UPSGND	Approved	None	1518-125WHHC	None
19	16242		8/28/2007	Agua	GoBulldogs	3	10/3/2007	1505	UPSGND	Approved	None	1518-125WHHC	None
20	16409		9/14/2007	Chargers	SanDiegoChargers	4	10/4/2007	68006	ODFL	AwaitingApp	StrikeNeeded	1518-15WHHL	Label:ChargersRallyTowel
21	16310		9/9/2007	FirstNationalBank	KansasUniversityHomecoming	2	10/30/2007	25018	ODFL	AwaitingApp	StrikeNeeded	1118-13RYFC	StriketoCorey&Vern
UpComingOrders

 

[triff]

I had assumed that the dates started in row 2. I note that you start in row 9. Try replacing the following third line of this code

' Now fill in the daily sheets 
Sheets("UpComingOrders").Select 
lngInputRow = 2

with

lngInputRow = 9

Michael

 

[stereosympathy]

Awesome!! That is so cool! It works! Thank you so much for helping me with this!

 

[triff]

No problems. A good opportunity forme to further develop my VBA skills. all the best.
Michael