Code Affects Screen Display!
Mar 2, 2009I use the following piece of code to Hide/Unhide columns as required by a specific worksheet.
View 4 Replies
ADVERTISEMENT
VBA / Display Screen On Opening Workbook?
May 3, 2013I have a great bit of code for a spreadsheet I'm working on by a board regular called Norie;
The code is;
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Name "ThankYou" Then
Worksheets("ThankYou").Visible = xlSheetVisible
Application.Goto Worksheets("ThankYou").Range("A1"), True
Cancel = True
UserForm1.Show
[code]....
When I open the workbook it shows for about 1 second another sheet in the workbook rather than just instantly showing the "START" tab.
Is there any way to get over this to make this code 100% perfect?
I just really would love upon opening this workbook for the sheet that 1st comes into view to be the START SCREEN TAB, without any flash preview of another sheet.
Prevent Display Of Hyperlink Screen Tip
Feb 19, 2009I'm working with text boxes in Excel that have hyperlinks attached to defined names on a worksheet. Basically just to navigate around a large sheet.
They work fine, but when the mouse is hovered over the text box it automatically displays the address of the defined name, which looks messy and I want to get rid of it.
I have tried inserting a single space in the screen tip box, but that displays a small rectangular box. I have also tried "" hoping nullstring maybe interpreted as not to display, but it instead displays the speech marks.
Has anybody done this before? I've seen it done, but I have no idea how the model creator did it.
VBA Display Both Screen Resolutions For Dual Monitors?
Jun 26, 2014I am trying to create a macro that checks and displays the screen resolution for both the Main monitor and the secondary monitor.
Currently I have this code that displays the resolution on the main screen only:
Declare PtrSafe Function GetSystemMetrics32 Lib "User32" _
Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
Sub ScreenRes()
Dim lResWidth As Long
Dim lResHeight As Long
Dim sRes As String
lResWidth = GetSystemMetrics32(0)
lResHeight = GetSystemMetrics32(1)
sRes = lResWidth & "x" & lResHeight
MsgBox sRes
End Sub
However I want to then display another message with the secondary display's resolution (or on the same message box).
Splash Screen - How To Display While Macro Runs
Sep 27, 2011I have a splash screen I want to display while a macro runs. I've created all the necessary code based on information from this site but have a question about where to actually put the code as all the example I've seen are based on workbook open events.
I tried placing my code
UserForm1.Show
with in the macro I waned the splash screen to be displayed during but that doesn't work. Well, it does, but not as I intended. The splash screen pops up for the specified duration as part of the macro stopping the macro, then closes and the rest of the macro finishes running.
Do i need to call the splash screen from a certain point in the macro I wish it to be displayed during? I dont want the macro to stop running while the splash screen is showing.
Active Cell Display :: Centering In The Screen
May 1, 2007What is the syntax for centering in the screen whatever cell a value has been changed in or needs the users attention?
View 9 Replies View RelatedHyperlinks: Extract Display Text & Screen Tip
Dec 15, 2006I have copied a webpage into excel It contains URL javascript link.
a) I wonder if I can copy this link out without keystroking each row.
b) When I point at the link, a few numbers come out. I want to extract these number out.
I am thinking of creating a macro so that it can be performed automatically because I have more than 300 rows.
Excel Camera Tool - Print Preview Different From Display On Screen
Nov 27, 2012I have place a camera-picture of a table on the right side of a chart. On the screen it looks great! (See below - with some redaction)
Problem Example.png
.... but when I print it the table expands off of the side of the chart. Scale is 100%, zoom is 100%, Excel 2010 (See below - with some redaction). Whether or not I have a print area does not seem to make a different in the problem. Also, it appears that this happens with any shape I put in that place, it's not specific to the camera tool.
Problem Example_Print Preview.png
Create Search Facility That Will Run On Variable Functions And Display Information On Screen
Dec 23, 2013I have an excel file with a large amount of employee data in it and want to create a search facility that will run on variable search functions and display the information on the screen
I want to be able to enter variable search functions as follows:
Employee Number; shows all information on employee
Division: shows all employees in division (possible from a list of all divisions)
Appraisal Eligibility : Applicable shows all the applicable employees
Job Role: shows all the employees with the same job role (possibly from a drop-list of all roles)
I know its easier in Access, but all records in Excel as a legacy and don't have time to create an access database currently.
Code To Position Sheet On Screen
May 29, 2012I'm using a bit of code (below) which is not amazing but which does seem to work, the idea being that entering a number then the active cell relating to that number will be highlighted and the sheeet position will "goto" it to move it into view on the screen. I have adapted this from something in one of my old Workbooks, and I admit it's probably a bit messy!
The problem is, it doesn't seem to always put the returned active cell in the same place, sometimes it's nicely central to the screen, but at others it's right at the top. As the numbers corrrespond to the top line of each little area of 30 rows, I'd like it to to come about 10-12 rows down. I can't seem to get this to work!
Code:
Sub FindSection()
Dim nm As Integer, txtnum As String, Found As Range
txtnum = Application.InputBox(prompt:="Enter a Number")
Set myRange = Worksheets("T&M SHEET").Range("K:K")
[Code]....
VBA Code For Full Screen With Save As
Aug 21, 2013i have an excel workbook containing approx 20 worksheets. What I would like to do is make the workbook go full screen when the user opens the file and allow the user to save as into the same file path the workbook is stored when closed
View 2 Replies View RelatedAn Object Code= Flickers The Screen
Nov 27, 2009way i could stop my sheet from flickering everytime i change my cell selection via keyboard/mouse. i checked and this problem is only with code below that i run in view code of my sheet...
PHP
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim str As String
Dim cboTemp As OLEObject
Dim ws As Worksheet
Set ws = ActiveSheet
On Error GoTo errHandler
If Target.Count > 1 Then GoTo exitHandler
If Target.Address(False, False) = "Z3" Then
Call GoToMatch
Exit Sub
End If
Delete Splash Screen UserForm & Code
Sep 4, 2006Some time ago (not sure how long ago) I created a splash screen that comes up when I first load a particular workbook. There was only one worksheet in the workbook and at that time the data in the worksheet was not so relevant and hardly ever used. That workbook name is "Employees" and the worksheet name is "EmpData".
Subsequently, the worksheet ("EmpData") in the workbook "Employees" has became relevant to a new workbook named "Payroll" I created. This workbook is used all the time. It had four different active worksheets.
I realized last week that the data in "EmpData" was very relevant to the work in the "Payroll" workbook so I copied "EmpData" worksheet in it's entirety to the "Payroll" workbook as a fifth worksheet using the same name as before, "EmpData". Now each time I open the "payroll" workbook the splash screen shows up and hangs around for several seconds or longer. It has become quite irritating and I want to delete it.
Running Simple VBA Code Causing Screen Errors
Nov 30, 2009I have a rather large workbook (30 sheets, 10MB) that has one worksheet with many INDIRECT functions in it (pulling data from the same file, different tabs). I am working to put simple code into the workbook to protect and/or unprotect all worksheets. I have gotten code to work to both protect and unprotect all the sheets, but when I run the unprotect code (see below), and then I go to edit the workbook, data from the sheet with many "indirect" functions temporarily "overwrites" the data on the active sheet (this is fixed when I scroll my mouse over the effected cells). I am developing this workbook for other users, so I'd like to fix this before sending it off to them.
This problem does not happen until after I run the following .....
Mouse Click Freezes Screen - Code Still Executes
Jun 16, 2006it would be possible to have text disappear after being displayed in Excel for a while.
My son and I played around with games (helping create a photographic memory, I told the youngster!) on the thing and until yesterday neither of us noticed that clicking the mouse anywhere (actually just clicking it) causes the screen to "freeze" while the code still happily erases the text in the background.
Hitting ESC allows the screen to cath up to the actual code EVEN THOUGH the ESC key is actually disabled from breaking the code.
Display A Splash Screen Which Fades In And Then Fades Out And Closes Itself Leaving The Ap Showing
Jun 13, 2006I am trying to display a splash screen which fades in and then fades out and closes itself leaving the ap showing. I have utilized code that I found wih permission to use but I'm still doing something wrong.
Option Explicit
'// This Userform code has everything you need to make a captionless userform
'// Fade In & Out
'// Transparency
Private Declare Function SetLayeredWindowAttributes _
Lib "user32" ( _
ByVal hWnd As Long, _
ByVal crKey As Long, _
ByVal bAlpha As Byte, _
ByVal dwFlags As Long) _
As Long
'// Title Bar
Private Declare Function GetWindowRect _
Lib "user32" ( _ ..............................
Refresh Screen To Display On Form 1 After Exiting A Second Form
Mar 30, 2007I have 2 forms. Form1 and Form2. I load Form1 to display. A button on Form1 calls Form2 to display. After I hit Cancel-Unload on Form2 it doesn't dissapear. How do I get rid of the residual image of pesky Form2 after I unload it and only display Form1 WITHOUT having to reload Form1 after Form1 calls Form2
In English
Form1 Displays
Form1 call Form2 to display
Form2 is unloaded by hitting a button on Form2
Form2 is unloaded, however, it's image still displays!!!
Need some way to force screen to refresh without having to unload Form1!
One Workbook Affects All Workbooks
Nov 20, 2009I have made a workbook file which is a form. I deleted all tool bars except "Print" and "save as". And I have saved this workbook. When I startup XL again to do other work It brings up my same bar arangement as my form. When I change it back it also changes my form file. How do I keep my form arrangement seperate from the standerd excel set up?
View 13 Replies View RelatedCan A Cell Have A Formula That Only Affects Other Cells
May 16, 2009What I need to happen exactly is this:
If cell BE72 says "Natural", then cell CM11 equals the value in cell BE73.
If cell BE72 says "Deflection", then cell CT11 equals the value in cell BE73.
If cell BE72 says "Dodge", then cell DA11 equals the value in cell BE73.
If cell BE72 says "Insight", then cell DH11 equals the value in cell BE73.
If cell BE72 says "Luck", then cell DO11 equals the value in cell BE73.
If cell BE72 says "Sacred", then cell DV11 equals the value in cell BE73.
If cell BE72 says "Compet.", then cell EC11 equals the value in cell BE73.
But, If nothing is entered in BE72, then I want to be able to type my own values in cells CM11 through EC11 without overwriting any formula.
Since I cannot have a formula in a cell and still type in it without overwriting the formula, I was wondering if it's possible to have another cell (maybe cell A1) that has this formula in it. Can a cell like A1 hold a formula that functions for other cells even though nothing happens in A1? If so, how would I make the above work?
Zoom Level Affects Shapes Positioning
Jun 30, 2008Sub CreateRectangles()
X = 1
Do Until ActiveCell.Offset(X, X).Value = 0
X = X + 1
Loop
variable = Round(-0.026 * (X * X * X) + 0.56 * (X * X) + 24.7 * X + 5, 0)
Set Box = ActiveSheet.Rectangles.Add(ActiveCell.Offset(0, 0).Left, ActiveCell.Offset(0, 0).Top, variable, variable)
With Box
.ShapeRange.Fill.Transparency = 0.3
.Font.Size = 18
.Font.Name = "Trebuchet MS"
.Text = ActiveCell.NoteText
End With
End Sub
Calculated Field Deletion Affects All Pivot Tables?
Jul 2, 2014I have my raw data in one Worksheet and have made multiple pivot tables based off this data. Since I needed to have the same calculated fields in all these Pivot Tables, I used to simply duplicate the pivot table sheet and edit the pivots to create a new table.
Now, I'm trying to create a new pivot table from scratch, by selecting the base data table and going to "Insert Pivot Table". However I see the same Calculated Fields and upon removing, the field is removed from all other Pivot Tables.
Web Form Interface- Amount Of Lines Affects Speed
Sep 18, 2006I built a web form interface which I use to adjust orders on a web-based system our company uses.
The code I have looks at a sheet, checks if the line needs adjusted, makes adjustments as needed, and then clicks a box for lines needing ordered.
Here is the code I use:
Sub Adjustorder()
Application.ScreenUpdating = False
Dim ie As Object
t = ThisWorkbook.Sheets("Adjust").Range("C3").Value 'checks for valid orders to adjust
If t = 0 Then MsgBox ("No Skus to add"): Exit Sub
Set ie = CreateObject("InternetExplorer.Application")
With ie
This all works fine, but the amount of lines can be anywhere from 1 to 11,000. The fewer the amount of lines needed to loop through, the faster it does each line. With 11,000 lines it took nearly 1 second per line. With 200 lines it took 2 seconds for all of them.
Macro Copying & Pasting Chart Affects Its Size
Sep 13, 2006I have a macro that takes a worksheet and copies it to another workbook. It works, but the graph that is contained in the new worksheet ends up a little screwy; for instance, the Plot Area is larger than it should be (height-wise along the screen), and the chart's legend isn't in the exact same place as in the original chart.
ThisWorkbook.Worksheets(tempSheet).Copy After:=wb.ActiveSheet 'before:=ThisWorkbook.Sheets(1)
RenameTemplate
'unlink copy from template
'must unprotect before unlinking. We'll leave it unlocked cuz we don't care.
wb.ActiveSheet.Unprotect
'cells
wb.ActiveSheet.UsedRange.Copy 'ThisWorkbook.Sheets(tempSheet).UsedRange.Copy
wb.ActiveSheet.UsedRange.PasteSpecial Paste:=xlPasteValues ......................
Application Onkey: Prevent Users From Using The Print Screen Or The Alt Print Screen Buttons On The Keyboard
Dec 29, 2009I'm just looking to prevent users from using the print screen or the alt print screen buttons on the keyboard. I have this script that works if I use "39" (Right Arrow)but wont work if I use "42" (Print Screen Button).
View 5 Replies View RelatedDisplay All VBA Code In Code Window (VBE)
Sep 4, 2006When I started using VBA, all the code for each module was shown in the code window. This was a bit cumbersome when looking for one sub in particular. Now when I load VBA, all the Subs and Functions have their own page, and can be selected from the right hand drop down list. This is much easier for entering code, and finding subs. However, it is sometimes useful to see 'the big picture', so how do I swap between the two types of display?
View 2 Replies View RelatedVBA Code To Display A Msg Box If The Returned Value Is #N/D
Jan 13, 2010I have a sheet where I put a code from a product in Column B, and the name of the product will appear in Column C, with a VLOOKUP Formula. What I would like to do is, get a VBA code to display a msg box, if somebody enter a the wrong code. If that happen a #N/D will appear in Column C.
In this Sheet I already have the bellow VBA Code, to avoid repeated product codes:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, Dn As Range
If Target.Count 1 Then Exit Sub
Set Rng = Range(Range("B1"), Range("A" & Rows.Count).End(xlUp))
If Application.CountIf(Rng, Target) > 1 Then
MsgBox "O valor introduzido " & "(" & Target & ")" & " é duplicado. O Menino está a Dormir???"
End If
End Sub
VBA Code To Display Result In Message Box
Dec 6, 2012I have 4 columns in a worksheet.
A B C D
number type date name
I am using an input box to enter the value of column D. After the value of column D is entered, I want a message box that displays the corresponding data in column A and B. with the vba coding?
How To Code Combobox To Display Several CSV Files
Jul 9, 2014I am coding my first UserForm. I've gotten some of it working. I need to display a ComboBox that will display 3 different CSV files. Since these will be updated here and there, I didn't think AddItem would work. How i should script this?
View 2 Replies View RelatedDisplay Text On New Line Code
Jul 10, 2007I have a problem here.
I am trying to create an inputbox such that the text will display line by line instead of one line display
EG:
Selection = InputBox("Enter Your Selection No. 1 for aaa. 2 for bbb")
Above code will display text as:
"Enter Your Selection No. 1 for aaa. 2 for bbb"
But i would want the text to be displayed in:
"Enter Your Selection No."
"1 for aaa"
"2 for bbb"
Code In Sheet2 Display All Data Of That Project
Jun 20, 2009i have my employees data in sheet1. If i entered any project code in sheet2
column b1 it will diplay all the employees details along with emp code and name in next rows
sample data file attached