Opening And Closing Group Shortcut?
Sep 30, 2011I know that the shortcut to create a group is Shift + Alt + Right arrow but is there a shorcut to open and close the group?
View 1 RepliesI know that the shortcut to create a group is Shift + Alt + Right arrow but is there a shorcut to open and close the group?
View 1 RepliesHi everybody, I'm doing my first excel application program and everything is going good,
but I have one problem.
I want to click on a command button in one workbook that is supposed to lead me to a specific sheet in another workbook and to close the first workbook.
I used the following ....
I do not understand why my code returns a Run Time Error"9" Subscript out of range. With the following code, I opened a workbook and then wish to close that same workbook without saving. Eventually I will be pulling information from the workbook but for now I just want it to open and then close right away.
Private Sub cb_NewDate_Change()
ListIndex = cb_NewDate.ListIndex
If ListIndex = 0 Then
Application. ScreenUpdating = False
Workbooks.Open Filename:="I:JoeNetwork Conversion FactorsNetworkConversionFactors_Ver_2_0_0.xls"
Application.Workbooks("I:JoeNetwork Conversion FactorsNetworkConversionFactors_Ver_2_0_0.xls").Close False
End Sub
I have a problem, where every time I close or open any workbook, Excel prompts me to "Enable or Disable Macros" in one particular workbook, wether I have tried to open it or not. In the said workbook, I have a macro that automatically updates a pivot table upon selecting the worksheet where the pivot table resides.
The code for it is as follows:
Sub UpdateIt()
Dim iP As Integer
Application.DisplayAlerts = False
For iP = 1 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables(iP).RefreshTable
Next
Application.DisplayAlerts = True
End Sub
Private Sub Worksheet_Activate()
Call UpdateIt
End Sub
There is something in the code that calls UpdateIt any time a workbook is opened, closed or selected.
I was wondering if there is any code using an on-click method. When clicking a button i need excel to exit the file/sheet without saving (no prompts) and then re-open the exact same file/sheet once it has closed.
In a way this is like a refresh button.
I am running a script that populates about 70 or so workbooks based on information from the database. Naturally this script is quite slow but what seems to take the most time is opening and closing workbooks. Is there a way to "hide" the workbook opening/closing operation on the screen? I have tried using the
Application. ScreenUpdating = False
this sped the code up but you still see the workbooks opening on the screen.
I have code in VBA that takes a source Excel file and parses it to multiple re-formatted worksheets. Each formatted worksheet is different depending on a variable in the source. There are n of each type of data (1:n Water Sources, 1:n Water Treatment, 1:n Water Storage). Each item needs a copy of a blank re-formatted worksheet appended to the end of the existing data-type worksheet. For example: Water Source #2 is appended to the bottom of Water Source #1 on the same worksheet.
Currently, I am opening the blank re-formatted workbook each time an additional variable of same type is found in the source file. Meaning, if there are 8 Water Sources, I am opening and closing the blank re-formatted workbook 7 times to copy a blank Water Source to the bottom of the Water Source worksheet and then populate the data. AND if there are 3 Water Treatment, I would open and close the blank formatted workbook 2 more times to copy a blank Water Treatment to the bottom of the Water Treatment worksheet. The same goes for Water Treatment.
Obviously, a huge waste of resources and performance. I would rather open the blank re-formatted workbook once (first time an additional worksheet is needed), use the worksheets as needed, and close it at the end.
Attached is my current, working code of the above.
How should I re-write it to check if the blank workbook is already open use it, if not open it?
Code:
Sub Add_Facility(ByVal Worksheet_Name, Copy_Range, Max_Limit)
Dim Last_Row As Integer
Dim Source_Range As Range
Dim Dest_Range As Range
Dim wkb As Workbook
Set wkb = ActiveWorkbook
[Code] ........
Excel will hang up as if it's gone into a continuous loop (Although no looping macros are active) when you open or close a user form. The task bar in Excel will flash Ready Calculate. Visual basic reports no code is running but excel either crashes or becomes very unresponsive. I have to exit and reopen excel in order to fix the problem . It also doesn't happen at any one specific point it can vary. I have various VLOOKUPs around the workbook and userforms display the correct information. I use the INDEX formula in the control source of textboxes. I also use the offset formula to make sure DTPICKER displays correctly.
I am using 'Option Explicit' at the start of all my code. I have tried a 3rd party code cleaner. No visual Basic references are MISSING
[URL]
So I have two dates:
Opening Date: 29/07/2014 13:27
Closing Date: 29/07/2014 14:42
These are formatted in DD/MM/YYYY and HH/MM
I need to subtract the dates and find the time taken from the opening and closing time.
I have two forms...clicking a specific button on the first form should display the second form which works fine.
VB:
Private Sub Image_Employees_Click()
Form_Main.Hide
Form_Employees.Show
[Code].....
When I do this twice, however, the second form seems to freeze/hang and I have to close Excel and then re-open it. I feel like I'm overlooking something obvious...
I have a userform which opens when the workbook opens. Ideally Id like to have the userform open without the workbook coming up and have the workbook close when you close the userform. If thats not doable then is there a way to just close the workbook when the userform is closed?
View 3 Replies View RelatedI am trying to write VBA code that groups cells between blank rows and inserts a message if a string of text (a name) is missing from the entire group. I want the code to search cells in column A and group the cells between blank cells. Use the name I input in an input box as the search criteria and insert a message in the Column C next to the last blank cell in the group and then move on to the next group and highlight the cell in red with bold text. I am including a spreadsheet with an example of what the sheet should look like before and after the code is run.
View 11 Replies View RelatedI have date fields as column labels in a pivot table. When I try to group them I'm only given the option to group by integers and not by months, years etc.
I've had a look at the format settings of the column and they are formatted as date fields.
I have several groups of data in the same sheet. Each group has two blank rows above the first row of data. Each group has column "B" in common (e.g., "Phone" in the example attached). I'd like to add a title/label of "Phone" to the first column in the row immediately preceding the first row of data for that group.
View 1 Replies View Relatedhow to use the group box to group a number of option buttons together.
Question is, lets say, i have a total of 4 group box. if i want it to work in such a way where by once 2 option buttons are being selected (1 option selected from each group box), the rest of the option buttons in the 4 group box will be greyed out. is that possible?
My store uses a retail price "code" wherein a price like 99 in expressed as a
code like "PP"--exchanging the number digits 1-0 as letters.
Is there a function to do this automatically?
In Col X of the attachment, I have manually entered the count of the rows within each sub group, as determined by the counter in Col W. How can I do this automatically? I need this because when I filter the spread sheet by Rank, I need to know how many selections, of the filter Rank query, were in a sub group of ? number.
View 2 Replies View RelatedI have a need to open a file from my companies intranet. My current method was to open said file via the method that the recorder gave me. However, I would like ot be able to open a said file without having to start open another workbook.
This is the path:
[url]
So the command is this:
Workbooks.Open [url]
Links are not actual links
So what I need to know. Is how can I open this file without opening a workbook. I haven't been able to use the VB "Open Statement" to open a file and I don't believe that I've been successfull using the Filesystem object either.
I have this massive spreadsheet, with the maximum rows excel will fit on one sheet. In the interest of simplicity, this is what the raw data looks like:
Last First Amount
Jones Jim $1000
Jung Joe $700
White Jon $100
Jones Jim $200
Jones Jan $300
Jung Joe $800
White Jon $200
What I want to do is automatically get excel to group all the same names together. Then I want it to sum all the values for each name, then order by largest total value for each person, then order that by name alphabetically. In other words, the above would look like this after the sort:
Last First Amount
Jung Joe $800
Jung Joe $700
Jones Jim $1000
Jones Jim $200
Jones Jan $300
White Jon $200
White Jon $100
Or, if necessary, there could be sum total rows under each name...although I don't have spare rows, so IDK. I could delete some rows if I had to, but would rather not.
Conditional formatting. I want to change the color of a group of cells based on data in another group of cells. Example:
If cells G8 and G9 (which are merged) are between 80% and 94%, then I9,I10,I11 (which are merged) will turn Yellow. Also, under the same scenario, IF G8 and G9 is greater than 94%, then cells I9, I10, I11 will turn Red.
When i have an excel sheet opened and hit ctrl +f the find replace window displays. I want to add a button on spreadsheet that when i click on it, the find and replace window appears, I can not figure out how to do this. I tried using .onkey
View 8 Replies View Relatedi have tried using the letter M as a shortcut key (because it is to activate a "Move" function) but unfortunately it doesn't work. I gather from this that not all of the keys are available as shortcut keys presumably because they already have function.
Is there a way around this? and/or is there a list somewhere of the available shortcut keys?
Need way to list the active shortcut keys? I know there are manyy lists of the desfault shortcuts, buit I'm trying to generate a list of the curreently active shortcut keys & what macros they tie to. I have a vague recollection that someone had a VBA means of doing this, but I cannot find it in the forums I've searched.
View 2 Replies View RelatedCan I have shortcut key go to sheet, example when i click in cell (BU1) - automatic go the sheet bu1.
View 2 Replies View RelatedIs it possible to launch a program through desktop shortcut with VBA? I have the following code and it is giving me an 'Invalid procedure call or argument' error
Edit: Typing the string into the Run command works fine.
Dim objWsh As Object, _
strDesktop As String
Set objWsh = CreateObject("WScript.Shell")
strDesktop = objWsh.SpecialFolders("Desktop") & "Wildfire 3.0.lnk"
Set objWsh = Nothing
Shell strDesktop, vbMaximizedFocus
I have an Excel add-in that makes use of an Application-level event handler to detect when workbooks are activated / deactivated, and adjusts the command bars / ribbon accordingly. The add-in also includes a developer mode, so I have a shortcut key to stop the add-in while running, set the .IsAddIn property =False, and then change whatever settings I feel that I need to.
Problem is, when I run the shortcut to stop the add-in, and then run my shortcut to restart it, my event handling no longer works. I've done some MsgBox testing, and verified that the class module's "Initialize" event gets called, but subsequent events (i.e. WorkbookActivate) go unnoticed.
I'm wondering if Excel will allow me to start an Application event handler using WithEvents, stop it (by setting the class module variable = Nothing), and then re-start the event handling.
The one thing that has always bugged me about Excel is that in order to modify an existing cell, I need to click on the cell and then click in the formula box above. If I want to overwrite the contents of the cell, I can just start typing, but if I want to edit it, I need to use the mouse. It really seems like like Alt-D should move up to this window like it does in Internet Explorer. I can move around Most Windows applications without need of a mouse save for this one area.
View 4 Replies View Relatedi need to create a shortcut (ideally ctrl-z) that will allow me to search column D which has a tonne of street names in it. i need to do a "custom" search and enter "contains" and then have the field on the right be left empty for me to enter what i need to enter.
I want to hit ctrl-z (or a b c d e f g h etc...) and have that blank field brought up for my to enter something to search for and have all those criteria met "custom-contain-?whatitype?"
I've tried using the record new macro function but it won't let me leave the dialogue box open for me to enter my street name.
i hope i explained that well enough....
basically i want to hit ctrl-z and have that custom-contains for column d open and ready for me to search.
autofilter is on. and i am referring to the drop down menu that lists "top 10" "all" and "custom" i want to chose custom and then chose "contains" from the first drop down menu in the dialog box that pops up.
Though VBA is very similar to VB6 (which is what I took a course in a few years ago) there are some things I can't figure out. One of them is ending and closing a procedure (i.e. if an "if then" statement is not met). In VB6, if I remember correctly, you would use "Me.Close". What is a similar method in VBA for taking this action?
View 2 Replies View RelatedI want to know the short-cut keys for the deleting sheet.
View 3 Replies View Related