Show UserForm Before Printing For Custom View Choice
Apr 9, 2008
When I click the excel printing icon, I want a userform to pop up in which I make the choice for a certain customview that I build. This customview must then be printout. Note that I want to use the standard Excel print icon, not a custommade one in the worksheet. I figured out some code, but it doesn't work. For instance my if structure returns "false" even if I did click that commandbutton, see the code below.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Static PrintRequest As Boolean
formMyview.Show
If formMyview.CmdCancel= True Then
MsgBox "printrequest canceled"
Unload Me
cancel=True
Exit Sub
End If
If PrintRequest = True Then
Exit Sub
End If
If formMyview.CmdOk = True Then
For Each Myoption In frameViewoptions.Controls
If Myoption.Value = True Then..........................
View 6 Replies
ADVERTISEMENT
Sep 26, 2008
I am trying to set a custom view when exiting, but I keep getting runtime error 424 saying an object is required. I am attempting to unprotect the sheets, check the value of an option button, set the custom view based on that value, and then protect the sheets. Please keep in mind that the user may or may not be on the sheet containing the option button when exiting. Here is the code I am having trouble with.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call UnprotectSheets 'Unlock to set option button value
With Worksheets("Customer_Info")
If btnExistCust.Value = True Then
ActiveWorkbook.CustomViews("Sales_Exist").Show
Else
ActiveWorkbook.CustomViews("Sales_New").Show
End If
End With
Call ProtectSheets 'Call the sub before closing
End Sub
View 6 Replies
View Related
Feb 27, 2008
I am trying to create a command button on a userform that when pressed will only display a specific worksheet of an excel workbook. I have the userform setup with the command buttons that will point to a specific worksheet but it is still behind the userform.
How can i make it so that when i hit the command button in the userform then print preview is shown for that worksheet, and the other worksheets are hidden. I also want to make it so that the workbook is hidden and all you see is the userform until you select a sheet.
View 3 Replies
View Related
Feb 6, 2008
I currently have a drop down menu in one of my worksheets, in which I have several different text values entered. What I would like to do is link each of those text values to a numerical value, which would be entered in to another cell. So if I select "Option A" from my drop down list, and Option A is equal to 200, I want "200" to show up in another cell. If I select "Option B" from my drop down list, and Option B is equal to 400, I want "400 to show up in that same other cell.
View 4 Replies
View Related
Jul 24, 2006
I was just reading an answer to a question re: printing a set area.
Dave Hawley mentioned the best method would be to set a "Custom View".
how to "call" a custom view from a Userform dropdown?
I need to print several "reports" which are seperate parts of the same sheet.
View 7 Replies
View Related
Nov 29, 2007
I have a workbook with 3 spreadsheets. When I put ptotection on 2 of the sheets, the custom view will not work on the other. Any way to make the views work?
View 5 Replies
View Related
Apr 1, 2008
I need to create a macro that whenever the user clicks the restore down button it will not restore down, but either do nothing, or make the application display full screen. The following code runs when the workbook opens and whenever a different sheet is activated and I would like it to run when the user clicks the restore down button.
Private Sub Workbook_Open()
Application. ScreenUpdating = False
Application.DisplayFormulaBar = False
Application.ShowWindowsInTaskbar = False
Sheets("01").Select
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With............................
View 4 Replies
View Related
Nov 14, 2012
I have a large spreadsheet from which I need to create separate Reports by hiding various rows and columns. I have followed instructions for creating a couple of Custom Views (View tab, Custom Views, Add, Inserted Name, OK, Saved the document) but nothing happens apart from getting the message "Some view settings could not be applied". In fact none of the view settings were applied.
View 1 Replies
View Related
Jun 15, 2008
I have a very wide sheet in which I have hidden and saved seven views.I am using it for a very long time but when i did some edit work in the 'full' view,the other views are not showing. In stead I am getting the messages "cannot shift objects off sheet" and "some view settings could not be applied".This is very frustrating since a lot of patience was tested while making this wide data.
View 2 Replies
View Related
Jul 24, 2008
I have 2 option buttons and 3 userforms. The passage between those userforms are made with "next/back" command buttons.
Options buttons are € and $ and they are in the first userform.
If the user make a choice between € and $ in the userform1, the following macro plays
If Me.Dollar Then
Sheets("Data").Range("B2").Formula = "$"
Else
Sheets("Data").Range("B2").Formula = "€"
End If
Problem
The other 2 userforms contains texts that depends on the choice made in the first userform/option buttons (€ or $)
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Text1.Caption = Worksheets("Data").Range("B2").Value
Text2.Caption = Worksheets("Data").Range("B2").Value
Text3.Caption = Worksheets("Data").Range("B2").Value
End Sub
so in theory userform initialize should change the text and get what s written in Data Sheet.B2 cell automatically and INSTANTLY. But it only gets the initial choice and when I go back/forward between userforms and even change the € to $ or vice versa the inital choice remains in the next userforms.
View 9 Replies
View Related
Oct 22, 2007
i am trying to use this code to view the workbook (WK) in the userform named WK
it can not reconize .spreadWK
Private Sub UserForm_Initialize()
Me.SpreadWK.Cells.Range("A1:E10").Value = ThisWorkbook.Worksheets("WK").Range("A1:E10").Value
End Sub
however this is saying that it can not reconize
.spreadWK
View 9 Replies
View Related
May 11, 2009
pop up form within userform to confirm choice. I have a button within a userform that clears the form:
View 5 Replies
View Related
Jun 5, 2008
Ive searched for a solution around this site and it all leads to a dead end. I have a userform created in Excel, where I want to import a existing worksheet from another workbook and display it on the user form, so the user can edit it. I have tried using the Office SPreadsheet 10.0. By copy the excel file contents and pasting it into the spreadsheet cells, but PasteSpecial doesnt work so all the formating is out the door.
View 3 Replies
View Related
Dec 11, 2007
I have a combo box on my userform. The selection made in the combobox will eventually control a calculation. I would like to generate some code so that when the user makes a selection in the combo box, and fills in all the requied info on the form, they can click a button on the userform which will generate a new combobox on the worksheet which would contain the user selection, along with the array that populates the combobox on the userform.
View 3 Replies
View Related
Feb 6, 2008
I have two option buttons on a userform and when the user selects an option button I would like it to stay selected when the userform is called again.
View 2 Replies
View Related
Apr 2, 2009
I have a workbook that I want to show or hide a selection of cells depending on another cell when printing it.
Example
If cell x = A2A then display a certain cell set if anything else then exclude cell set from printing.
View 2 Replies
View Related
Jun 13, 2013
So I was wondering if there is a way to show text on the screen while viewing/editing the workbook, but to not show those specific CELLS while printing.
View 4 Replies
View Related
Feb 26, 2014
what I would like to do is view a cell result in my userform with out deleting my formula
It works perfect from the excel side but I just cant get it right from the user form side
Ok so cell D6 contains a vlookup formula. I want the vlookup result to appear in my userform. I can get this to work but it overrides the vlookup formula with the result. This means that when I go to use it again it just shows the same result.This is what I have:
Cell D8 has a Combobox with a list of names to select from
this is the formula in cell D6 =VLOOKUP(D8,B107:I754,2,FALSE) This retrieves the selected customers account number from the combobox. I need my userform to display the account number with out erasing the formulas because I will need to search for more account numbers after.
I have named the textbox in my userform Customeraccountb
View 3 Replies
View Related
Jul 3, 2008
I have options buttons in a userform, first is "$" the other is "€"
When somebody chooses one of them, it writes the choice to a cell in the data sheet. But when clicked on the next userform I want some of the texts automatically change the currency depending on the choice made in the previous userform.
The formula below was is example
=""&Data!$A$2&" / m³"
=""&Data!$A$2&" / kWh"
View 9 Replies
View Related
Nov 3, 2009
I have a frame (Frame1) on a userform added using Microsoft Forms 2.0 Frame. I have added option buttons to the frame named OptionButton1 thru OptionButton4. I am trying to add code where certain cells are copied and pasted depending on which optbutton is selected. I tried the following code but because the option button is a frame object it doesn't seem to trigger the event.
Private Sub OptionButton1_Click()
'copy level 1
If Me.OptionButton1 = True Then
Worksheets("Sheet1").Range("G10:G32").Copy
Worksheets("Sheet1").Select
Worksheets("Sheet1").Range("C10:C32").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End If
End Sub
View 4 Replies
View Related
Jul 22, 2014
i want to ask if are some way to do it , to show 2 sheets in 1 sheet , because what i am trying to do is , with VBA copy table with pictures from database sheet to printing sheet , add blank columns and create another table in that blank area , and got this problem that formating goes crazy , because each table need different row heights. Maybe there is any way to copy my database sheet and paste special that it don't cares what i will do with row heights?
View 6 Replies
View Related
Mar 13, 2005
I have a problem I am using the following code,
Private Sub cmdPrint_Click()
frmOrders.PrintForm
End Sub
How is it possible to get the userform to be printed in landscape
View 9 Replies
View Related
Mar 13, 2014
Im trying to add a print button to a userform. But three things that have to happen when the button is clicked:
1.Excel has to tell the print dialogue box to ensure the page will only fit on one page by one page
2.The print dialogue box has to pop up so the user can ensure the settings of the print
3.Right now when the print happens scroll bars are printing from the userform. I need those to disappear
This code in its current state is messing with me, it appears I set it to one page by one page but yet when the print happens its only printing the last part of my userform. And right now it also does trigger the dialogue box so that part is solved. I just cant figure out why its not resizing to one page by one page.
View 3 Replies
View Related
Oct 20, 2009
I have a userform with frame and a listbox in a frame. Listbox is higher than a frame so a frame has a scroll bar.
How can I print the whole listbox with all items?
The code UserForm.PrintForm will print just the 'visible' part of listbox, but not the rest of it which is hidden in the frame
View 11 Replies
View Related
Dec 7, 2013
I want to make a lesson table which distribute the names to lesson choice priority.
You can see detail and explanation at attached file. LessonChoice.xlsx‎
View 3 Replies
View Related
Dec 9, 2006
See custom document properties for a give workbook by using File, Properties but where do sheet custom properties show up.
View 9 Replies
View Related
Feb 8, 2007
hi i have a formula in a module that show a date as such
"ddd d" and this shows up as say "fri 6"
how can i get it to show up "f 6" or maybe "fr 6" and not have to use the whole three letters
:o
View 9 Replies
View Related
Aug 20, 2008
Recently I found this forum through a Google search along with the perfect solution to a problem I was having finding and replacing text based on a table of replacement values. Here is the thread:
Multiple substitute or replace text using a table
I incorporated the SuperSub function that steveorg developed as a result of that thread into my worksheet by creating a new module and pasting the following code into it:
Function SuperSub(OriginalText As String, rngOldText As Range)
Dim cel As Range
Dim strOldText As String, strNewText As String
' loop through list of old_text used in substitute
For Each cel In rngOldText.Cells
strOldText = cel.Value
strNewText = cel.Offset(0, 1).Value
OriginalText = Application.WorksheetFunction.Substitute(OriginalText, strOldText, strNewText)
Next cel
SuperSub = OriginalText
End Function
It works like a charm as a formula, but I also have a macro in the same workbook that, as soon as it selects the sheet with the formula, calls the SuperSub function and starts executing the code as a macro (even though there is no call to this routine in the macro). The macro ran just fine before incorporating the function into my worksheet.
The formula looks like this: =TRIM((supersub( UPPER(E2),rngSubst)))
If cell E2 contains the string "101 North Main Street, Apartment 5", it would return "101 N MAIN ST APT 5"
Here is the macro:
Sub Import()
'
Sheets("Shoebuy FTP").Select
Range("A2:R200").ClearContents 'This is where it jumps to Function SuperSub(OriginalText As String, rngOldText As Range)
The function runs for every occurrence of the formula in the worksheet, and when it is finished, all of the cells containing that formula show a value of "#VALUE!". I should mention that it does not change the formula at all, but I then have to highlight each cell that contains the formula, press <F2> to edit, then <ENTER> to get it to display the correct results again.
It is probably some stupid little thing that I didn't do when I created the function, but I can't figure it out. I have written numerous macros, but this is the first time I have ever created a custom function.
View 5 Replies
View Related
May 8, 2013
I have a worksheet that has 8 activex listboxes. Each listbox is tied to the sames list of values (identified as a named range). The named range is a list of countries. Each country should only be selected once, therefore, I would like the selected country(ies) to not show up as a choice when the user makes a selection from another listbox. If this is too hard, maybe we can get a msgbx to appear anytime the users tries to select a country that has already been selected.
View 3 Replies
View Related
Jan 19, 2013
user form that has a list box that only picks up visual worksheet (not hidden ones) and then allows the user to select which ones to print via check boxes.
View 5 Replies
View Related
