Insert Beforeprint In New Workbook
Apr 4, 2007
It shouldn't be this hard, from within an excel macro I am currently adding a new workbook and doing "some stuff" basically creating a report based on the first workbook.
In the new workbook I want to add a BeforePrint event to the ThisWorkBook Module. I can add it to other sheets, to code modules and other code to the thisworkbook module....but not the BeforePrint?
here is the code I've been working with, I also checked Chip Pearson's site and still can not figure it out.
Add Beforeprint To New Workbook Crashes?
View 9 Replies
ADVERTISEMENT
Apr 3, 2007
I’m launching a new workbook, exporting some stuff, basically creating a report. But then I want to add a BeforePrint event to the new worksheet. Both of the macro below works great right up until I change “Sheet1” to “ThisWorkBook”…then Excel crashes.
Sub AddCode1()
Dim VBCodeMod As CodeModule
Dim LineNum As Long
Dim Copybook As Workbook
Set Copybook = Excel.Workbooks.Add
Set VBCodeMod = Copybook.VBProject.VBComponents("sheet1").CodeModule
LineNum = VBCodeMod.CountOfLines + 1
VBCodeMod.InsertLines LineNum, "Private Sub Workbook_BeforePrint(Cancel As Boolean)" & Chr(13) & "if ActiveSheet.CodeName <> ""Sheet1"" or ActiveSheet.CodeName <> ""Sheet2"" or ActiveSheet.CodeName <> ""Sheet3"" then" & Chr(13) & "MsgBox(""This Electronic Outcome Review Summary Report is NOT optimized for Printing......................................
View 5 Replies
View Related
Sep 22, 2009
The following code is not working like I thought it would. I've got 4 named cells on a worksheet, and if any of them are blank, I don't want the user to be able to print it. What am I missing? Is it something with my Cancel = True statement?
View 2 Replies
View Related
Jun 13, 2008
the following code work on both PC and mac? It works fine on PC, but on mac the BeforeSave and BeforePrint code does not work and the SaveASheet code gets as far as opening and pasting the sheet but then is unable to save automatically.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
SaveASheet
End Sub
Private Sub Workbook_Open()
Sheets("Open").Activate
End Sub
Sub SaveASheet()
Dim fName As String
Dim myPath As String
Dim sht As Worksheet
#If Mac Then..........
View 9 Replies
View Related
Jan 27, 2008
I have a dynamic print range defined as follows:-
=OFFSET(Sheet1!$A$1,0,0,MATCH("PRINT_AREA_ROWS",Sheet1!$A:$A,0),MATCH("PRINT_AREA_COLUMNS",Sheet1!$1:$1,0)), lets say this equates to range("A1:D12")
I also have a workbook beforeprint event defined as follows:-
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = "Pete"
End Sub
My problem is that after the Print Event has fired , the dynamic range has been converted into a static one i.e range("A1:D12"). I have tried this on all version of Excel from 97 to 2007 and it behaves the same so premably this must be by design rather than a bug?
Am I doing something wrong? What is the work around? I'd rather not have to create the dynamic range within the print event procedure unless I have to as my workbook has many, many tabs!
View 9 Replies
View Related
Feb 26, 2010
I would like to BeforePrint check Left and Right Header for a specific text. If the text is different then i.e. “XYZ Test” then call sub ClearForm().
View 9 Replies
View Related
Jan 14, 2014
The amazing code I saw was from this thread Auto lock cells after data entry when file saved... where the code was made by Jafaar Tribak.
It basically locks cells that have had data inputted into them when the file is saved (with a nice prompt warning of the used cells being locked.
This is Jafaar's file [URL]
And this is my file where I'm trying to make it work in the "Employee data entry" Sheet:
[URL]
And finally this is the file after I tried to copy the code over : [URL]
Trying to make it so that in the employee data entry sheet locks cells after an employee inputs some data into said cells.
I thought that by setting an "inputrange" on the employee data entry sheet the code would track it down automatically but maybe I'm completely wrong. I cant see anything wrong with it (probably because I"m not that good at vba) but I fear I may have left out something really simple!
I seem to disable my other macros when i try to insert this code in (I have a macro that when you click on a cell a calendar pops up so you can click on a day from the calendar rather than typing out the date)
View 9 Replies
View Related
Jan 16, 2013
is there a non VBA way to insert the workbook name in a cell?
View 1 Replies
View Related
Apr 7, 2009
I want to put the vba code into each "ThisWorkbook" in each workbook that is in a folder. I want the code that is placed in each "ThisWorkbook" to run whenever that workbook is opened.
How would I go about doing that? I have this code so far to open the workbooks that are in the folder.
View 6 Replies
View Related
Oct 18, 2008
How do I insert an existing worksheet (previously exported from the same workbook)? I need to be able to do it programmatically.
View 10 Replies
View Related
Apr 8, 2009
i have a workbook with over 100 odd worksheets of different names... i want to insert 1+ columns in every worksheet . For Example ...
in worksheet 1 name abc .. insert 1 column in column B (put clumn b data in column C)
in worksheet 2 name def .. insert 2 column in column B (put clumn b data in column d)
in worksheet 3 name ghi .. insert 3column in column B (put clumn b data in column e)
View 4 Replies
View Related
Aug 11, 2013
how to insert multiple tabs in the workbook?
i try this
Code:
Option Explicit
Sub Add_Multiple_Tabs()
Dim Tabs As Variant
Dim I As Byte
[Code]...
View 7 Replies
View Related
May 3, 2013
[URL]
"Is there a way to insert a column in a workbook that doesnt run all the way through the page?" Is a page break a potential fix?
View 2 Replies
View Related
Oct 31, 2013
I have a PO Template which I wish auto insert below information in the footer.
a) User Name
b) Create date
c) Last modify user
d) Last modify date
e) Print date
f) No of pages (Say Page: 1 of 3)
When the PO is issued, the softcopy will be saved in a Server.
In certain circumstance, the existing PO will required to be revised. Most cases, it might not be the same user who created this.
For tracking on identity, I wish the last modify user, date and print date to be captured and printed in the footer note?
Whether I can lock the footer information as well? So that all user will not be able to edit these information?
View 2 Replies
View Related
Jul 11, 2007
I have a workbook with 61 sheets in it.
What I need to do is insert two rows at the top of each sheet. Now I know I can manually do it, or write a macro to, that bit's easy.
However, when I insert the rows, a lot of my formulas try to pick out the wrong range.
So for example, lets say we're looking at sheet 1. When I insert 2 rows at the top this style of formula still works...
=B14/B12 (it automatically becomes =B16/B14)
=SUM(B10:B11), =B12+B14, =B12*0.25, these also update automatically.
Even a reference to ='Sheet 2'!B48*2 still updates automatically. But formula's of this kind do not...
=SUM(Sheet4:Sheet10!B5)
(regardless of inserting 2 rows, this formula does not change to =SUM(Sheet4:Sheet10!B7) )
View 3 Replies
View Related
Sep 19, 2013
I have a stocklist that is currently in excel with product codes in column B. (eg 60080U-090)
I want to insert product images into column A. The product images are labelled as the style code (eg 60080U-090)
Now this is where you will chuckle, previously we have spent hours manually adding each image into the relevant cell and resizing.
Images are saved on a folder in the desktop labelled "Imagery" The excel workbook is saved in the same folder and labelled "Stock"
View 9 Replies
View Related
May 2, 2006
I am copying the times from a bi-weekly timesheet to a monthly timesheet. What I am doing is opening the bi-weekly timesheet, executing VBA code that opens the monthly timesheet and inserts the appropriate data. What is happening is if I execute the code via the VBA editor the program works flawlessly and copies the data. When I try to bind the code to a macro and execute it, it opens the monthly timesheet but just flat out stops where it should begin inserting the data. No errors or anything.
Here is the
Sub tstoitsrev3()
' Define Variables
Dim wsheet As String, wsheet2 As String
Dim wb As Workbook
Dim hourarr(9), dayarr(9), mchkarr(9)
Dim mcheck, mdiff, edate, sdate, wsmnth, yr
If there is anything I can do to perhaps help streamline the code or a smarter way of accomplishing my task please let me know. I had to upload the workbook screenshots to a seperate source due to their size. Thank you in advance for all your help and I hope to become a valuable part of the community.
WEEKLY TimeSheet:
MONTHLY TimeSheet:
On a quick side note I cannot modify the timesheets in any way other than through the code. For example, I cannot re-locate where data is placed on the time sheets.
View 9 Replies
View Related
Jun 16, 2008
I need a macro that will do the following scenarios.
1. I have two workbooks.
a. The first contains a sheet with " Names" listed in column A.
b. The 2nd contains a sheet with "Names" listed similar to first workbook. The only difference is that the 2nd workbook contains 2 other columns, "Age" in B and "Address" in C.
2. Only the 1st workbook is opened.
3. When I click a name in the 1st workbook, it will look for a match with that of the 2nd workbook.
a. If there's a match, it will copy the corresponding "Age" and "Address" and display them as comment to that name in the 1st workbook.
b. Else, it will display a comment that no record was found.
View 3 Replies
View Related
Jul 25, 2007
I have 2 workbooks open, one called "Temp" and the other called "CRM 2"
My active workbook is "Temp". I am trying to insert a value into the active cell in this workbook, based upon the value of a checkbox in the other spreadsheet. Here's my
If Windows("CRM 2.xls").SelectedSheets.CheckBox6.Value = True Then Selection.Value = "By Phone"
I've tried variations on this such as:
If Windows("CRM 2.xls").ActiveSheet.CheckBox6.Value = True Then Selection.Value = "By Phone"
View 8 Replies
View Related
Mar 23, 2012
I have a master data sheet with four columns, A, B, C and D
Column A has the primary data and B,C,D has dependent data values;
So when I insert a new cell in Column A with cells Shift Down, I want mandatorily new cells to be inserted in the same row in col B, C and D as well so that data integrity is maintained;
View 2 Replies
View Related
May 7, 2009
I can use the MATCH function when i am in excel but i am having trouble getting it to work when i am trying to insert the formula using VBA.
Here is the code i have but it wont even compile........
View 9 Replies
View Related
Mar 26, 2012
Copy data from workbook, open existing workbook, select range and paste. But my copied data is lost.
Sub Select_Copy_Paste()
'
'
Windows("ElektroFunctiesDatabase.xlsm").Activate
Sheets("PowerSupply's").Select
Range("A2:I6").Select
Selection.Copy
[Code] .........
' Here i need to do something to paste data into r.address?
View 4 Replies
View Related
Feb 11, 2010
I m not able to use the standard Excel Paste Special function when I copied a range of cells in another Excel workbook opened in a separate instance of Excel. Instead, Paste Special thinks that I have copied some non-Excel objects and gave me the Paste As options. This is not the case if I open both workbook within the same instance of Excel. Could you share with us if there is a trick to trigger the normal Paste Special options in such situations (without having to invoke Macro procedures)?
View 2 Replies
View Related
May 30, 2014
Trying to create a new workbook from another open workbook, then copying all the sheets that aren't called "Summary" to that new open workbook and then saving it. I get a subscript error on this line:
[Code]....
View 3 Replies
View Related
Jun 16, 2014
All i did was i just created a form to open a workbook from the directories.
Code to copy the data from that recently opened workbook to my workbook where I have my forms. I need to copy that data as in the case that i don't know the workbook and the sheet name i'am going to open as i may open any of the files!!
View 2 Replies
View Related
Jan 23, 2014
I have data that daily needs to be refreshed and printed to pdf.
I figure the simplest way to do this would be to task schedule the workbook to open daily. Then on open it will refresh the data, print it after all data has been refreshed and close the workbook.
I set it up originally without the need to print so I have all the queries set to refresh when opening the file, however when I now try and put the code to print to pdf on the workbook open event it runs before the queries are finished running. (Query notes: queries were created through Microsoft query, and are accessing a MySQL database queries set to refresh when opening the file queries set to enable background refresh).
View 4 Replies
View Related
Feb 27, 2014
I've been using the following code to bring in individual cell values from one closed workbook to an active one. I would like to modify this is possible to bring in multiple cells at once and also pull them into a different worksheet in the active workbook. Basically, my command button is on Sheet1 but I'd like the data to pull into a cell on Sheet2.
Private Sub CommandButton1_Click()
With Range("Q9")
.Formula = "='C:Users[Workbook Name.xlsm]Worksheet Name'! N27"
.Value = .Value
End With
View 6 Replies
View Related
Jun 17, 2014
I have been trying to edit a code which previously saved a copy in a new workbook to a specific folder/path. (Additionally it copies and clears some figures, but this is working as it should.)
However I would like the copy to be saved at the same location as the original workbook, regardless of the path the original workbook is saved.
I.e if I need to move the workbook containing the code to a new folder/location, when using the macro, the new copy should be stored in the same folder/location as the original one.
For now it is only saving the copy into "My Documents"
Code:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 16-02-2009 by ceng
'
Sheets("Bunker ROB").Select
Sheets("Bunker ROB").Copy
ActiveWorkbook.SaveAs Filename:= _
ActiveWorkbook.Path & Range("D3"), _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
[Code] ........
View 2 Replies
View Related
Jun 30, 2014
I run a model in Excel that automatically saves my file every xx iterations. After saving the file I want to make a backup of the file. Tried
[Code] .....
but get a permission denied error message.
I don't want to use .SaveAs as it is a huge file that takes a while to save and SaveAs has a tendency to break links that should not be broken..
View 13 Replies
View Related
Aug 21, 2014
I have an open workbook (A) and this is where the code should reside. I want to use VBA to copy the content of an entire worksheet from a closed workbook (B) to an existing worksheet in workbook A. How would you accomplish this?
View 7 Replies
View Related
