Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
combining worksheets
Hi Everyone, I need some help. I have a workbook that contains a worksheet for each day of the Month. eg. March 1 is named 01, March 2 is named 02 and so on. I would like to add a summary worksheet that will List all the dates in Column A, and in Column B the number of calls received for that day. Each worksheet is formatted exactly the same and the information for column B can be found in cell B1 of each worksheet. I am not very good at VBA. Could someone help me write a VBA to populate column B. Thanks, Julie -- zapszipszops ------------------------------------------------------------------------ zapszipszops's Profile: http://www.excelforum.com/member.php...o&userid=33217 View this thread: http://www.excelforum.com/showthread...hreadid=530364 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
combining worksheets
One way ...........this uses the value of the sheet names 01,02,03 etc) to
position each day on the summary sheet in the correct row, avoiding any sortation and if there are gaps missing days. The summary sheet is renewed each time the process is run and created if it does not exist. It transfers the value in B1 on each sheet to the related row on the summary sheet. Sub SummaryDate() Dim wS As Worksheet, sumCreate As Boolean ' check if summary sheet exists sumCreate = True For Each wS In ActiveWorkbook.Sheets If wS.Name = "Summary" Then sumCreate = False Next ' if no summary sheet add it at start If sumCreate Then Worksheets.Add befo=Sheets(1) ActiveSheet.Name = "Summary" End If ' clear then fill the summary sheet Sheets("Summary").Cells.ClearContents For Each wS In ActiveWorkbook.Sheets If Val(wS.Name) = 1 And Val(wS.Name) <= 31 Then With Sheets("Summary") .Cells(Val(wS.Name), 1) = wS.Name .Cells(Val(wS.Name), 2) = wS.Range("B1") End With End If Next End Sub -- Cheers Nigel "zapszipszops" wrote in message news:zapszipszops.25tram_1144296601.1185@excelforu m-nospam.com... Hi Everyone, I need some help. I have a workbook that contains a worksheet for each day of the Month. eg. March 1 is named 01, March 2 is named 02 and so on. I would like to add a summary worksheet that will List all the dates in Column A, and in Column B the number of calls received for that day. Each worksheet is formatted exactly the same and the information for column B can be found in cell B1 of each worksheet. I am not very good at VBA. Could someone help me write a VBA to populate column B. Thanks, Julie -- zapszipszops ------------------------------------------------------------------------ zapszipszops's Profile: http://www.excelforum.com/member.php...o&userid=33217 View this thread: http://www.excelforum.com/showthread...hreadid=530364 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
combining worksheets
Wow, that's awesome! Thanks Nigel -- zapszipszops ------------------------------------------------------------------------ zapszipszops's Profile: http://www.excelforum.com/member.php...o&userid=33217 View this thread: http://www.excelforum.com/showthread...hreadid=530364 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I combining several worksheets onto one | New Users to Excel | |||
Combining two worksheets into one | Excel Discussion (Misc queries) | |||
Combining worksheets | Excel Discussion (Misc queries) | |||
Combining worksheets | Excel Worksheet Functions | |||
Combining worksheets | Excel Worksheet Functions |