Here's some code, written by assorted forum members (thanks again!). It is attached to a button and intended to print a report that is determined by the contents of cell Y4.
Sub PrintSingle()
Application. ScreenUpdating = False
ActiveSheet.DisplayAutomaticPageBreaks = False
With ActiveSheet.PageSetup
.PrintArea = "$Y$4:$AG$21"
.Zoom = 95
.Orientation = xlLandscape
End With
Application.ScreenUpdating = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub
I've been using/testing this for a couple of weeks now and it has appeared to work exactly as intended. Today, however, as I've attached it to additional sheets, and begun testing them, I noticed that it isn't actually following the code in determining page setup options. The options selected in each individual sheet's setup box are overriding those specified in the code.
Apparently, the only reason it's been printing appropriately for the last couple weeks is because the options selected in the setup box for that particular page are the same as those specified in the macro.
I'm making a little calculator thing for some of my colleagues, and I've created a warning sheet at the front in case their macro security is set to high or they disable macros.
The thing is, when the workbook is opened with macros enabled, and when it's closed, this warning sheet flashes briefly. Is there any way to avoid this?
My code is:
Private Sub Workbook_Open() Worksheets("Form").Visible = True Worksheets("Form").Activate Worksheets("Enable macros").Visible = False UserForm1.Show End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False Worksheets("Enable Macros").Visible = True Worksheets("Form").Visible = False Me.Save Application.ScreenUpdating = True End Sub
Second, all the rest of us can click the print button to print the one single page that we are viewing. He says when he does this, that each time it automatically starts printing all the pages in the workbook. He wants to only print the one page.
As you can see, I have 2 worksheets. I want that all entries in columns B,D,E and F automaticly fill in in multiple tables in sheet2. Also, if possible that macro creates tables (for example: if I have 100 rows, I want to extract 100 separetly values from column B,D,E and F and to enable automatic creation for new table - for 101 entry )
here is the dropbox link of the file:
HTML Code:
[URL]
So, I want when I click on the button I want to automaticly import all mentioned values into sheet 2 (I have marked with RED where to put values from which column). In this example, I expect, when I clik on Print all tables button, to print 7 tables in sheet2. In sheet2 I have 2 tables as you can see.
What I have just tried is click "Reset" in the macro menu and resaved the macro and the workbook, and the proper max/min lines seem to be working. However, I still feel a little unstable about it and will watch it closely.
(My next questions is how to "freeze pane" a row of headings on the results page and post the results onto row 2 and downward *without* deleted row 1) Hello,
Here is my hurdle. Could someone please look at the code below and see if there is a hint why all rows from the top all the way down (from R5 to R604) are outlined, when the code should successfully be stating already that if a value in the S column (to the right) is the maximum, then only outline the rows that across the R rows (up and down) that are the MIN? Then, those red-outlined rows should successfully display on the Results page.
It worked before, but I do not know now why all of the rows on the Details page are now selected.
Is there some indicator in the code that says outline everything?
Issue 2: When I try to run the macro from a button I created, a pop up message says that the file is already open. If I take that literally, it is indeed true because I want the file open. Apparently Excel thinks I have 2 files open with the same title. It wants me to either close one of them or rename them, according to the message. But there isn't another file open according to my searching. What does that message really hint for me to do?
I have a date on one sheet, and what I thought was the same exact date on another sheet. I want to vlookup off the date, however the values aren't the same. i.e. when I check to see if they = I get a false. They're both formated the same, custom date m/d/yyyy h:mm, and when I ran the check to see if one was text (t=(A1)) I get confirmation that they are both non-text!
How should I use the If formula in K3 if I want to sum (A3+D3+H3) only if at least one of the cells is not blank. If all of the three cells are blank, I need K3 to stay blank.
I came with the following that worked with only A3+D3 but when trying to include a third cell (h3) I get a "value" result.
I have 2 text cells (A1, B1) that appear to be the same, however, when I typed the formula "=if(A1=B1,"Yes","No)" in cell C1 the result is NO! (see attachment)
I have some columns of data that won't get perfectly aligned. The numbers in all the cells are right aligned but the numbers in some of the cells are a few pixels to the left compared to some other cells that appear to be properly right aligned.
I have attached a screenshot if my explanation isn't clear.
I'm trying to paste the column that my code found into the blank cell C18, which may change in the future, but I got an error that I need to select the cell to paste the column to - I'm not getting the code right. Here's what I've tried:
For Each Cell In Sheets("Total Sell Dollars").Range("1:1") If Cell.Value Like "2014*" Then BlankRow = Sheets("Total Sell Dollars").Range("C" & Rows.Count).End(xlUp)
Cell.EntireColumn.Copy Sheets("Total Sell Dollars").Cells(BlankRow + 1).Select.Paste Sheets("Total Sell Dollars").Select End If Next
When I run this: Cell.EntireColumn.Copy Sheets("Total Sell Dollars").Cells(BlankRow + 1).Select.Paste line gets highlighted and it says: "Run Time error '424': Object Required"
This is the code that I tried when I got the paste error: Cell.EntireColumn.Copy Sheets("Total Sell Dollars").Cells(BlankRow + 1)
and the error was: Run-time error '1004' We can't paste because the Copy area and paste area aren't the same size.
Try one of the following: Click one cell, then paste. Select a rectangle that's the same size, then paste.
Once I paste the column that excel found, I want to go to the next column and paste the found column into the cell C19 - which may change in the future and so on until all the found columns with 2014 in them are pasted.
when I sort data columns that contain drop-down menus. My spreadsheet has several columns: "Patient name", "Room #", and "Phone #". Each cell within the "Phone #" column should have a drop-down validation list containing two possible entries: the room's designated telephone number, or NONE. Whenever I add a new patient to a room, these three columns need to be sorted alphabetically by patient name. But when I sort all three lists simultaneously, it looks great- but then I realize that the drop-down lists associated with each "Phone #" cell haven't sorted! They stay in their original location and don't sort with their cell. So the designated telephone numbers for each room are all screwed up.
I would like to know if there is a way to print several different workbooks at once but keeping my printing format which I would like to be Landscape and Fit to one page. Reason is simple as I work in a office where staff is handed in several jobs to do everyday. They finish the jobs and log all the info on the database. I log on to database and put all their daily diaries and because it is all over the place I have to go in each file and set printing preferences which takes an hour in the morning and hour in the evening. I could do with some sort of automation where all diaries are automatically printed in Landscape and Fit on one page.
I have a report that is generated from a manufacturing process that looks like the example below. the report is 40 pages long when all the data is printed. i am looking for a way to only print this range if a dimension is "out of tolerance". if the dimension is within tolerance, there is always the "garbage" text of plus and minus. if every row is "within tolerance" in the range the cells in the OutTol column would all contain the "garbage" text but it will not always be identical. so, in summary, actual OutTol values = print and all "garbage" = not printed.
What can I do to link my worksheets together? I need the months to link from january to december.
I'm trying to come up with a system to maintain attendance of employees. How do I come up with a rolling system to add and deduct the points as their attendance changes? The goal of each employee is to have the least amount of points as possible, because he/she will be penalized once they receive a certain amount of points.
Let's say that Jane was hired in October. She has accumulated 10 points by December from tardies, call-ins, etc. By the end of January, she has perfect attendance; she is awarded half a point to be taken off toward her 10, giving her 9.5. In February, there is a day she does not show up, so now her total goes up to 12.5 (3 pointed added because of NCNS-no show no call). In March and April, she has perfect attendance, so now her total is 11.5. (half a point allowed for each month with perfect attendance)
By rolling, I mean a formula that will calculate continuously over month after month and have the points roll over month to month.
I have a formula '= COUNTIF(A1:A5,"<"&TODAY())' that counts the number of expired dates in one column. I want to include a second condition to this formula that will check if another column of dates are blank then they should not be counted. So if for example a1:a2 have expired dates, and b1:b2 have both got dates then they should be included in the count.
Here's what I'm attempting to do: For each column, X,Y, Z, I am attempting to count nonblanks. However, the data was imported from Access and Oracle, and Excel treats what appear to be blank cells as nonblanks. I've tested this theory by highlighting a couple of "blank" cells and deleting them, and my count changes. So, can I get Excel to put a value into my "blank" cells, so then I could filter it out, or create a formula that would only count dates in my columns (which is what I'm after).
This is what I'm looking at:
A B C 1 2/4/2006 2/6/2006 ("blank") 2 ("blank") 12/13/2005 1/7/2006 3 2/20/2006 1/15/2006 ("blank")
In each column if I use a COUNTA I'll get a total of 3, instead of 2 for A, 3 for B and 1 for C.
I have an Excel 2003 program that contains macros. One of the macros hides certain command bars and disables the worksheet menu bar. On close the opposite is true. The problem is, if a user uses the disable macros when opening then the worksheet menu bar and other command bars are still available. I would like to hide all of the data sheets and display another sheet that would normally be hidden displaying a message that the macros have to be enabled for the program to work correctly if disable macros is chosen. When the enable macros are used I would like the Error page to be hidden.
I have a user that keeps a maintenance log in an Excel worksheet and sends an updated copy once a week to a board member. Two weeks ago, the board member started complaining that he was prompted to enable/disable macros on opening and became worried when my user stated that no macros were used in the book. He is now concerned that we have sent him a virus.
I know the file is clean because I've scanned it, and when I look at the file in VB, there are no modules or classes present just the Sheets 1-3 and the ThisWorkbook file. None of these objects have any code in them. My user does have some macros in PERSONAL.XLS but they are not used in the workbook in question.
No one else gets the prompt for enabling/disabling macros. Even if I set my security to prompt for any macros, I get no message. I'm convinced that there must be some setting in his Excel that is causing this individual to get this message. Is there anything else other than a macro that would cause this?
Is there a way to hide a macro from the list where you choose which to run, but not in the VBA editor? The userbox I just created calls upon 2 different macros, and has a macro to bring up the userbox. I need a way to hide the macros in Module3 from selection, but keep the macros in Module4 available to choose to run.
I have two macros. Macros 1 opens another excel file, counts the number of rows it has, inserts that number of rows into the master file and then copies the data over. Key code as follows (x3 for 3 worksheets)... For k = 1 To numrows Selection.EntireRow.Insert Next k
Macros 2 'cleans' the appended data by systematically going through each row, checking if certain cells have data, and if not deletes the rows. Key code as follows (x3 for 3 worksheets)...
For l = lastrow To 12 Step -1 If WorksheetFunction.CountA(Range("B" & l & ":C" & l)) = 0 Then Rows(l & ":" & l).Select Selection.Delete Shift:=xlUp edelrows = edelrows + 1 End If Next l
Here's the weirdness. macros 1 runs fairly quick the first time out (few seconds). Macros 2 takes about 2 minutes to run (which I'm fine with). However, when I run macros 1 AFTER running Macros 2, Macros 1 goes from taking a few seconds to a few minutes.
how to use excel 4 macros. I do not even know where to put them. I have inherited some spreadsheets that have both Xcel 4 Macros and vba macros in them. (Well, I get a warning that I cannot switch them off when I disable macros on opening a workbook). I cannot even find the offending version 4 macros so that I can re-code them in VBA.
I am automating a paper form that collects information from 7 other paper forms and then prints out the results. I have created an excel spreadsheet to do this but I am having problems getting the printed output to match the print preview.
I have inserted an image of the form into the sheet header and aligned the cells on the sheet so that the information is in the correct position when previewed in "print preview".
The problem is that, although this will print correctly on the machine I created it on, it is misaligned on any other machine I have tried.
I've made a 40 page list on Excel, On the very top of this list is my titles of whats is in the collums. How do I repeat this through out, so it appears on the top of every page.
I have inserted checkboxes in an excel worksheet to turn on/off certain data. They are working just fine. But I have set them all to not print (by unselecting the checkbox that says "print" in the format dialogue). SOME of the checkboxes don't print, but most of them do. I can't figure out why.
