I need to prepare count sheets for stock take on my company and I have a long list for data with hundreds of locations. What my colleagues have been doing is to filter the locations 1 by 1 and clicking print because we want the page numbering to be 'page 1 of 3', page 2 of 3 etc. for each location.
For example
Location a has 2 pages we want it to be page 1 of 2, page 2 of 2
Location b has 1 page we want it to be page 1 of 1
This is so that we can detect if any count sheets have gone missing.
I want to be able to print everything at 1 go, without filtering the locations manually and clicking print as it takes hours to do so.
Is there anyway I can do it? I have some knowledge on excel but not macros.
I have completed the first section of my spreadsheet.
Section 1 has a number of mandatory fields. Once these are complete and the user changes a combo box then Section 2 opens
I now want to repeat the same again for section 2. Making fields mandatory before a user can change a combo box to yes, which then opens Section 3
From looking around the forum / google I think I can only have one worksheet_change per sheet. If this is the case, how do I now start my next section (to basically repeat Section1 again)
The code I have is:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Range("E20"), Target) Is Nothing Then 'Section 1 Range("A22:A130").EntireRow.Hidden = True
I have a strange problem with a spreadsheet I've set up. It has several tabs with multiple information on each. The sums on each individual tab are linked to the front tab (which I've used as a summary page), but I haven't put any other links in.
For some reason, when I type anything in certain cells on one of the tabs (including the summary but not just that), it appears also on all the others, not necessarily in the same place. If I delete it on the the other tabs where it shouldn't be, it deletes the original on the correct tab, which I want to keep. This has been going on for ages, it annoyed me so much I completely recreated the spreadsheet, from scratch, but it's still happening.
I was trying to print a workbook which was about perhaps 20-30 sheets of roughly one page of printed info each. However, I saw the print job and it said it was printing over 7,000 pages!!!
It turns out there were about 4-5 worksheets which were blank (and also didn't have gridlines even though gridlines were checked on in options).
When I switched the sheets to page break view, lo and behold each sheet contained a few thousands "pages". I simply can't seem to reduce it down to a relatively normal size.
I tried going right past the edges of page 1 and deleting all columns/rows to the right and bottom of it to no avail. I selected the whole worksheet and removed all borders and any cell content with no luck.
I saw other "solutions" on the internet about copy/pasting the other unaffected sheets to a new workbook and deleting, but this seems cumbersome.
sorting data I use in a workbook for athletics. I've really chopped down my workbook for upload, In the worksheet "Leaderboard" I can call up stats for different lifts, and it finds (in this case) the top 5 lifts and the names for the kids that have those corresponding lifts.
My problem is that when two or more kids have the same lift, it will only call up the name of the first instance of that lift. You can see this in the "Leaderboard" worksheet, and the name "Adams, Andrew" appears for both lifts of 75. I would appreciate any help on how to correct this, as I've searched the Internet for weeks now looking for a solution. I've tried experimenting with different things as well, all to no avail.
taking a spreadsheet that has vertical repeating info in Column A and results in Column B and converting that to another sheet in a horizontal list. The main problem is that the repeating info in Column A may or may not always be the same for every customer; therefore, when it is placed in a horizontal format some cells may or may not have results. I tried a arbitrary lookup. Here is the formula I used:
This code will hide row 2 across Sheet1, Sheet2 and Sheet3 while recording in the macro record mode but when played back after recording will only hide row 2 on Sheet1. How do I get this code to work?
Sub MultiplePageHideRows() Rows("2:2").Select Sheets( Array("Sheet1", "Sheet2", "Sheet3")).Select Sheets("Sheet1").Activate Selection.EntireRow.Hidden = True Range("A1").Select Sheets("Sheet1").Select End Sub
I have a WorkBook with each sheet being a calendar month. I want to set the ActiveSheet as the current month so each time I open the WorkBook it opens to the current month WorkSheet not the last WorkSheet I was viewing.
With Wb.strMyBookINT Set S70Wscopy = Sheets("s70 pivot data") 'set s70 pivot data sheet for kpi 44 s70 pivot data Set IMFWscopy = Sheets("imf pivot data") 'set imf pivot datasheet for kpi 44 imf pivot data End With
With Wb.strMyBookEXT Set IMFEXWscopy = Sheets("imf ex") 'set imf ex sheet for kpi 15 imf ex End With
One of the best tools that Pivot Tables let's me use is the ability to create new tabs very easy. Anything field placed in the Report Filter is doable. My question is, is there a similar feature available in the regular data worksheet?
There were 2 macros. One printed all of the defined ranges (40) on separate pages, and the other printed all the graphs ("charts" - 39) on separate pages. I tried to combine the VBA code to print each range and then the corresponding graph. Everything is still on separate pages, but it saved time because I didn't have to collate after printing. It seemed to work. Then I tried figure out if I could print them all to a specific tray of the printer as set in the workbook or as the printer default. Now both the combined macro and the original macro are giving errors.
Is the code I have correct to do what I am trying to do (print each range and then the graph all on separate pages)? Is there any way to put the output tray choice into the macro?
Sub Load_Data_Report() ' ' Load_Data_Report Macro (print all tables & graphs) ' Macro recorded 12/21/00 by xxx ' ' Keyboard Shortcut: Ctrl+j '
Is there a way that I can set a single worksheet in a workbook to always be on manual calculation, but keep all other sheet in the workbook set to automatic?
I want to be able to open the workbook, any calculations to perform automatically and then i will select the 'manual' sheet and perform these calculations manually. I also need to these settings to always apply each time i open the workbook.
I am trying to setup a search page in a worksheet on a document. I want to be able to search by an indicator (DID#), but there maybe multiples of the same (DID#) in the data. I want to be able to have each instance of the multiples displayed on the search page. In addition, I want to reference other data that matches that (DID#) in separate cells.
Please see below, I want to have a search area that I can input the DID# and have a return of the corresponding info for that row. If I search "123" there are 2 entries and will need both displayed. The data is much bigger, but this is just a sample.
The user is asked for one piece of information "Enter the ID Number.
What the macro should do then is go to Wks1 find the ID Number and change some cells as a result. This bit works.
Set Wks2 = Worksheets(strWks)
7 rows from the bottom.
My intention was to capture the the name of another worksheet which is held on the same row as the ID Number on Wks1 and call it strWks.
Then further down the macro set the value of Wks2 to that of strWks so that the macro will then go to that sheet and remove data from the row with the same ID Number.
I get a Time Run Error 9.
It just seems to be the bit at the bottom where I am trying to identify Wks2 using strWks.
Sub Macro01C_Auto_Resign() Dim Wks1 As Worksheet, Wks2 As Worksheet Dim strFind As String, rngFound As Range Dim lngRow As Long, rngUnion As Range, strWks As String ............................
Subcript Out Of Range Error Coming Now For The Code Which Works For Me Before
Sub WHideRows()
Dim rRange As Range, rCell As Range Dim strVal As String
Set rRange = Worksheets("WIED PROBLEM WELLS").Range("A11:A110")
For Each rCell In rRange strVal = rCell(1, 3) & rCell(1, 4) & rCell(1, 5) & rCell(1, 6) & rCell(1, 7) & rCell(1, 9) rCell.EntireRow.Hidden = strVal = vbNullString Next rCell
End Sub
i am using the code above to hide the rows which doesn't have any values in all the following Cells 3,4,5,6,7 & 9 or Unhide the rows if there is value in any 1 of the following cells 3,4,5,6,7 & 9 from row number A11 to A110.
The same code works for me before. But now the code is not working. It says below the error message
I'm trying to execute a macro and it won't put the focus (radio button) to select x pages wide by x pages tall in the Page Setup/Page/Scaling Area. I looked at the macro and can't find a setting in the code but yet the focus won't change. What can I do about this? In other words the radio button stays selected as "adjust to "" % of normal size. Here's the code...
then I used vba to put number between 1 to 4 (since this is an 4x4 matrix) when there is a 0 in the matrix, but the numbers in row need to be no repeat??
so i need something like this for my output. Is there any code for search the number in the row?? How can I do this?? 1 4 2 3 1 2 3 4 1 3 4 2 2 3 4 1
I have several columns of data representing a shop operation along different years. Now I try to see how will it look like if I have 10 shops like this, all summed up. The problem is that each shop will have the same numbers as the other 9, just that it's first year of operation will be different.
Now, I don't want to have different sheet for each and every shop since their data is exactly the same. I only want to have 1 type of shop which I can add to a consolidated sheet but 10 times, and each time the first year shoud be different.
But again, I don't want to open a different table for each shop and than sum them up - I want to have only my one shop, and have a possibility to say when will I open my next shop and the consolidation will be automatically.
It is finding the name for a value from a table of values, the only problem is that there are more than one names which correspond to the same value. It doesnt matter to me which name it retrieves, but it lists the same name over and over again, where i'd prefer if it used a different name each time. Any way to keep it from using the same one?
VBA code. My sales data is arranged as months in columns and customers in rows. I have about 36 months of data that must be formatted as a single date column for pivot table manipulation.
I am creating several worksheet where the first two rows are repeated so that I can see those two rows as I proceed down the sheet. That feature works on some but not all sheets. What am I missing? I even tried copying the pages that are correct to another worksheet and that format doesn't copy to the next worksheet.
Suppose I have a following set of data in Sheet1...
FT 1 DD 2 MC 1 AD 1 EE 3 FL 2 GC 1
Under the first column, I have a series of text and under the second column, I have numbers, 1 - 4.
and I want the ouput from the data to be like
FT DD DD MC AD EE EE EE FL FL GC
in Sheet2, and the process will continue until there is a blank cell under the first column. Can someone help me with this? I have a very little experience in VBA.
How can I have a sub repeat itself? I have a code and I want it to ask the user at the end if they would like to do it again. If so the whole sub needs to be repeated. I'm sure this has something to do with looping, but I don't know how to manage this.
I have a list of colours from A1 to A10. This list may change, get longer or get shorter. In B1 I would like this list to repeat over and over again. but changes. I have attached the list in question, and what I would like it to do.
So to clarify - add a colour to Column A, it will add to the repeated list in Column B.
