Show Text In Active Window Caption
Aug 21, 2006In an open excel file, in the top left-hand corner, the file name is always "Microsoft Excel - Your File Name".
does anyone know how to have the top-left hand corner show "Your File Name" only?
ADVERTISEMENT
Active Window
May 8, 2007I've built a macro to run a loop that opens excel files, prints certain sheets and closes them. I have the macro working - to some degree. here is my code (this is excel):
Sub RMPProducer()
OldPath = "S:RMBS_Performance_Analytics Analysis1 Staging Folder For Monthly Model Templates2007200704VVDeals"
Dim t As Workbook
Dim s As String
Dim a As Window
With Application.FileSearch
.NewSearch
.LookIn = OldPath
.SearchSubFolders = False
.Filename = "*.xls"
.MatchTextExactly = True
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
s = .FoundFiles(i)
I have 2 problems. First problem is that I am trying to add a function to make the window close once its finished printing. This actually works - but it limits my loop iterations from i = 1 to 2 (so it only runs 2 times and I'm not exactly sure why). If I don't include the statement - this can run for up to 7 - 8 times (these are very large files) then excel runs out of memory. Unfortunately, i can't set the loop to run from i = anything other than one.
So What I would prefer is to be able to make the "ActiveWindow.close" command work - because this way I can run the entire loop. But I'm not sure how to. I tried window referencing, I tried adding a new active Window so when the file opens, its opening in the active window already, but nothing works.
Preferably, I need to be able to reference both windows, as my next macro will involve referencing 2 windows (one static - always open) and the other the loop above.
Show Range Of Cells In Label Caption
Aug 18, 2007I'd like to: Display the contents of a group of cells in a userform's label's caption. The columns containing the cell's which contents would be displayed are fixed (do not change). The rows will change. I need to reference the Ar, Br and Cr columns (where r is for row) of whichever column I am working on at a given moment.
View 4 Replies View RelatedMacro To Change Active Window
Apr 27, 2009I'm trying to enter this very simple macro that is supposed to switch from one active window to another. However, I'm getting an error, which I can't quite figure out. Here is the
View 2 Replies View RelatedVBA Grab Active Window Index
Jul 4, 2007Dim iStartBook As Long, iNewBook As Long
iStartBook = ActiveWindow.Index
ActiveWindow.NewWindow
iNewBook = ActiveWindow.Index
I'm trying to grab the "2" that .NewWindow generates. The above gives 1 both times, despite the obvious 2 in the caption after you run it. So what property works? What does .Index mean here?
Select Previous Active Window
Mar 25, 2009I have multiple excel workbooks open at the same time. I need to run a macro on one of them every 15 min but I need to return to the active window when the macro is done. How do I read what window is active then return to it when the macro is done?
Sub AutoSave()
dTime = Now + TimeValue("00:15:00")
Application .OnTime dTime, "AutoSave"
Windows("data.xlsm").Activate
Sheets("Data").Copy
Application.DisplayAlerts = False
ActiveWorkbook. SaveAs Filename:="c:excel" & Format(Time, "hhmmss"), FileFormat:=xlCSV
ActiveWorkbook.Close
Application.DisplayAlerts = True
Windows(1).ActivatePrevious
End Sub
Make A Cell The Top Left One In The Active Window
Feb 7, 2007I'm trying find a way in VBA to make a particular cell the top left one in the active window.
View 9 Replies View RelatedActive Cell Location In Window After Hyperlink
Dec 14, 2008I have a worksheet with frozen panes (Row and Column). I have hyperlinks that jump to the this worksheet. Is there anyway to have the window position itself so the active cell is in the upper left corner of my frozen panes?
View 9 Replies View RelatedConditionally Show/Hide Columns & Change Button Caption
Jan 22, 2009After scouring the entire OzGrid, I have found the following two macros that partly satisfy what I want to achieve. BTW, following two macros are executed on Sheet2 and I want to achieve the following:
On Worksheet_Activate, show columns that match the criteria value in Sheet1.D4 (Sheet1.D4 contains a dropdown list with about 6 text values). In addition to that, if Sheet1.D4 value is blank then show all columns. Right now, it successfully shows columns that match the D4 value but does not work if that D4 value is left blank, instead it hides all columns in range (C:CV). So in short, to the first macro, I need to add the criteria if D4 is blank, then keep the sheet intact and don’t hide anything, just show all columns.Once on that sheet after the Worksheet_Activate event has occurred, with the second macro “ToggleColumnsVisibility” following things need to happen. BTW, currently this macro is assigned to a button (from Forms Toolbar).If cell D4 has a value, then the button’s caption should read “Show All” and when that button is pressed, it should show all columns in the range (C:CV), and the button's caption needs to change to “Show Selected”. In “Show Selected” mode, when that button is pressed, it needs to show all the columns that match the D4 value.If cell D4 is left blank, then the button's caption should read "No Action" and when the button is pressed, it should not do anything but just show all columns.
As you will notice in the header, my experience with Excel is very limited, so detailed instructions will be greatly appreciated. I am also hoping that proposed solution uses some of the efficient/effective ways of using loops such as described below (example taken from this website from this link http://www.ozgrid.com/VBA/SpeedingUpVBACode.htm)
Sub TrueOrFalseFaster()
Dim bYesNo As Boolean
Dim i As Integer
bYesNo = (i = 5)
MsgBox bYesNo
End Sub
Sub ToggleTrueOrFalseFaster()
Dim bYesNo As Boolean
bYesNo = Not bYesNo
MsgBox bYesNo
End Sub .........
How To Have Excel File Open In Last Active Window / Workbook
Apr 15, 2013I compared data between excel worksheets all the time, well recently my computer was upgraded from Windows XP to Windows 7 and since then I have not been able to figure out how to have an Excel file to open in the Excel window selected(or last active window) when I have more than one workbook open. Is there a way to do this?
View 5 Replies View RelatedResize Active Window - Increases Height Of Workbook
Jun 7, 2014I was just wondering if it possible to create a macro that permanently increases the height of a workbook by a set increment
I have several workbooks that i have the code below assigned to
[Code] ......
So when they open they resize to that set size and position. and what ive been doing if i need to resize (which is often) is just adjust the values in the above code.
Not that the way ive been doing it is difficult but i was thinking how great it would be if i could have a macro i could run that permanently adds 9 to the .Height and subtracts 9 from the .Top
Show Window With A1?
Jan 18, 2012I have 3 worksheets in a workbook. How can I have the view go to A2 and View that on each worksheet? I do a Range("A2").Select But, it still shows the window on another column - row.
View 2 Replies View RelatedShow Window Option For Shared Workbook
Mar 9, 2007Everytime I open a Shared Workbook my OPTIONS get changed and my excel tasks in my start bar and consolidated. Is there a way to prevent that?
As of now I have to keep going through Tools>Options>Show Windows in Taskbar
Macro's aren't allowed in shared workbooks - so what are other options? I would want the same for anyone who opens the file, so a local fix on my machine won't be enough.
CommandButton Caption Text Clipped
Oct 14, 2009I have a commandbutton who's caption text is getting clipped along the bottom when I view the sheet at 100% zoom. If I look at 200%, the text is fine. What's going on here? I've included a pic of the offending button. Note the missing bottom part of the "g".
View 2 Replies View RelatedGo To Sheet Named As Text In Button Caption
Jun 3, 2008There is a 'Home' page with a button for each employee - clicking the button takes the user to the appropriate employee's timesheet
There is also an 'Add New Employee' button on the home page which brings up a form and allows a new employee to be added.
Each employee has only 1 worksheet (Which is created based on a blank template page)
When the 'Add New Employee' button is clicked a form pops up which ask for name, D.O.B etc. The user fills out the form and clicks ok. The template sheet is then copied, renamed to the employees name, and all relevent fields are added to the template sheet (based on the users input). A button is also generated on the home page with the employees name as a caption and when it is clicked it goes to employees timesheet.
I have almost got this working.
The only problem is this only works once, So For Example say i Add 'John' then i add 'Mary' on the home page i now have 2 buttons with 'John' and 'Mary' on them. The problem is as soon as a second employee is added (Mary), the first employees button(John) is linked to the second employee's Sheet rather than its own(Mary). and after the spreadsheet is closed the buttons dont work at all.
The link below has the spreadsheet i have made so far, you can test it out if my description doesnt make sense or you can see the code behind the 'add new employee' form:
############################################################
#### 'Add Employee' Button on Add New Employee Form ####
############################################################
Private Sub cmdadd_Click()
'check for Name
If Trim(Me.EmpName.Value) = "" Then ..............................
Label Controls Whose Caption Is Set From Text From A Work Sheet
Nov 23, 2007I have a label control whose caption is set from text from a work sheet
How can I set the text of the caption to bold
Link Cell Text To A Command Button Caption
Sep 4, 2006I have created a cover sheet with various command buttons linking into the available worksheets. I was wondering if it is possible to set the title of the command buttons by linking them to the text in a particular cell in each work sheet??
View 3 Replies View RelatedShow Blank In Filter In Active Column
Feb 20, 2009i try to create vba code, which will filter blankc cell in column where is cursor. this is my try, but it doesnt works.
View 4 Replies View RelatedShow / Hide Pictures In Active Cell Only
Dec 10, 2013I have on Sheet1 a table with a list of values in column A, and their corresponding picture in column B. On Sheet2 I have used the define name option to set up an index,match against the original table so that the relevant picture shows whenever someone selects one of the values in column A.
The problem is, while the pictures will change when the values are changed, because all of the pictures are "named", they will continue to show if a value not in the lookup table is selected.
Is there a piece of code that would allow me to specify if cell=blank,hide picture if not show picture?
I have seen the attached code, however this either shows or hides ALL the pictures on the active sheet, while I want to show or hide the picture in the active cell only.
Show Cell Value (text) In Comment Box Text Or Mouse Tool Tip On Gif Icon
Nov 16, 2007I have a spread sheet were the area is getting very limited. I need to insert a small icon and when the mouse goes over (like it does in a form tool tip) will show the value of a cell (text value) located in another sheet in same workbook, or I was thinking inset a comment next to the icon and link the comments of the comments text to cell with the text value.
View 14 Replies View RelatedShow Cell Value(text) In Comment Box Text, Or Mouse Tool Tip On An Gif Icon
Nov 16, 2007I have a spread sheet were the area is getting very limited. I need to insert a small icon and when the mouse goes over (like it does in a form tool tip) will show the value of a cell (text value) located in another sheet in same workbook, or I was thinking inset a comment next to the icon and link the comments of the comments text to cell with the text value.
I've look the properties of this to objects and can figure it out.
Macro To Only Show Rows That Contain Specific Text/Chinese Text Issue In Visual Basic ( 2007)
Jun 23, 2009I want to create 3 command buttons (active X) on a worksheet to toggle between showing rows which only contain the below text in column L (range L9:L30) and showing all rows containg the options (However, I also have some blank rows in this range and i always want them to remain hidden.)
My text options are:
High ¨‚
Medium ՠҪ
Low ’į
The text arrives in the cells via a VLOOKUP
Is the chinese text a problem? i can't type it into VB.
I've been using the following macro to hide and unhide rows with a command button in the same sheet:
Private Sub CommandButton1_Click()
Toggle_Hide_Unhide
End Sub
Sub Toggle_Hide_Unhide()
Dim rngCell As Range
Dim TakeAction As Boolean
If ActiveSheet.CommandButton1.Caption = "Hide" Then
TakeAction = True
ActiveSheet.CommandButton1.Caption = "UnHide"
Else
TakeAction = False
ActiveSheet.CommandButton1.Caption = "Hide"
End If
For Each rngCell In ActiveSheet.Range("I9:I30")
With rngCell
If .Value = 2 Then .EntireRow.Hidden = TakeAction
End With
Next rngCell
End Sub
Compare Cell Text To Set List And Show Text Differences
Dec 5, 2009I am trying to write a function that will compare the text of cell "A2" to the text of cell "B2" and display cell "A2"'s text characters that didnt match from cell "B2" in column C. Can anyone help me out with writing this formula?
EX: ....
Unload Active Userform And Show New Userform
Jun 8, 2009Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Application.ScreenUpdating = True
Unload Me
RestrictedOptions.Show
Else
Cancel = True
End If
End Sub
Trying to use above code to unload active userform and show new userform when red X (close) selected by operator. With the code as is, the Unload Me leaves the form on the screen and displays the RestrictedOptions form. If i remove the Restrictedoptions.Show, the Unload Me does remove the original form.
Active X Text Box Multiline And Bolding
Jan 14, 2010I have a couple of active x text boxes that I am using in a user form to enter data to a sheet. I wasn't able to get the text to move to the next line, but I changed the Multiline and EnterKeyBehavior to True and now when I hit enter it is working how I want it to. But when I click ok on my user form it is putting the data where I want it but it is putting a symbol that looks like a ? with a border around it in where I am pressing enter. Is there a way to avoid having this symbol show up?
The other question I have is if it is possible for specific text to be Bold in the text box and some not? I haven't been able to figure out a solution for that.
Replace Text On Non Active Worksheet
Aug 29, 2007Replace specific text within a defined range without having to select the sheet. I tried the following but this is obviously not the way to go.
Sub Open_Calls_Rename_Organizations()
With Sheets("Open Calls").Range("Organizations")
Cells.Replace What:="Institute Technology Code", Replacement:="ITC", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End With
End Sub
Making Active-cells Value / Text Hyperlink?
Apr 1, 2014How do you make an active-cells value / text a hyperlink?
View 1 Replies View RelatedFind Text And Copy Row Only If Active Cells In The Row
Jun 23, 2014I need to find a specific text in column D of sheet2 of my worksheet and copy that row to sheet1 to the last blank cell in column B. The macro should continue to search for the next text and copy rows only if there is active cells in the range column A : C of sheet2. I need a VBA code to do this.
View 5 Replies View RelatedForce Text To Uppercase In Active Cells
Jan 28, 2009To ensure correct data entry, I need to ensure that the filled cells in a column are always in Uppercase for example, irrespective of whether they are typed in upper or lower case.
I have found the following code, which seems to work quite well, even though I have the impression that it slowed my workbook down slightly.
Copying A Selection From A Listbox To The Active Text Box
Sep 21, 2009I am using a form which has 3 text boxes and a list box. How do I copy the selection of a list box to the text box based on my active text box. So, if I was in text box1, and I click a selection in listbox1, it copies that selection to textbox 1, etc.
View 4 Replies View Related