I use this code to hide the tool bars in a workbook, the code works but when I go to a new sheet the row and column headings are visible. I tried several things that didn't work.
Code:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
On Error Resume Next
With Application
.DisplayFullScreen = True
[Code] ..........
In the code below using msoBarTop places the menubar at the top but it seems to just place it in a new row at the right of all menus.
How or can I dock the menubar next to the last menubar?
I have the below code that hides some tool bars when the workbook is opened. If I min the screen, then max again the toolbars are back, is there a way to prevent this?
Code:
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
On Error Resume Next
With Application
.DisplayFullScreen = False
.CommandBars("MyToolbar").Enabled = False
.CommandBars("Worksheet Menu Bar").Enabled = True
[Code] ........
I have opened an Excel file (map1.xls) and changed some little things in that file.
after that I open a new Excel file with some VBA code in it.
In ThisWorkbook I have this ...
This is the code I use to temporarily remove menu barsfor a spreadsheet that is managed by user forms. I have code at the close of the program to replace the menu bars. The code work well although and it places a list of enabled bars in the range C1:C50 on the sheet "Bars". The range C1:C50 is not locked before the sub routine 'Hide Menus' runs. However after the sub routine 'Hide Menus' runs, the range C1:C50 is always locked and I don't understand why this is so, I would prefer it not to be.
Sub HideMenus()
Application. ScreenUpdating = False
i = 0
Worksheets("bars").Range("c1:c50").Clear
On Error Resume Next
For Each Allbars In Application. CommandBars
If Allbars.Visible = True Then
i = i + 1
With Worksheets("bars")
.Cells(i, 3) = Allbars.Name
If Allbars.Name = "Worksheet Menu Bar" Then
Allbars.Enabled = False
Else
Allbars.Visible = False
End If
End With
End If
Next
Application.DisplayFormulaBar = False
On Error Goto 0
Application.ScreenUpdating = True
Opening.Show
End Sub
I have a workbook that I created as an interface for my workplace. I disabled the File, Menu, Edit, etc...menu bars through .Control("x").Visible = False and .Enable = False as well
Now when I open a new workbook all the menus are there still which is good but when I open a previously saved workbook all the menus are missing. Is there a way where I can have ONLY my workbook have the menus gone and for them to appear in other workbooks that were saved?
In excel 2007, when I do workbook_Activate I want to hide all of the command bars. in 2003 vesion I used
.CommandBars("Worksheet Menu Bar").Enabled = False
But it is not working for me on 2007.
I have a form that is dynamically created at runtime. I have assigned the controls to a frame in VBA and also attached a horizontal scrollbar manually to that frame.
How can I control the scrollbar in VBA to appear, when columns of controls added to the frame exceeds 10. If not I want the scrollbar to be invisible?
Private Sub UserForm_Initialize()
Const cTextBoxHeight As Long = 16
Const cTextBoxWidth As Long = 40
Const cGap As Long = 10
Dim W As Integer
Dim a As Integer
I need to work with the run times for some equipment. This is just hours and minutes and I get the raw data as like "Pump # 1 - 35:30". This is not date/time data per se, just a raw number of hours. I thought I would format the cells as hh:mm and for 15:00 I would just enter 15 to save time. No go, that becomes 1/15/00 00:00 and displays as 00:00. I discovered that if I just leave the formatting as general and enter 15:00 it works fine and displays right but the formula bar says 3:00 PM (Excel figured to format it hh:mm). When I enter 30:00 it again seems fine but the formula bar says Excel stores it as 1/1/00 6:00:00 AM (Excel figured to format it [h]:mm:ss but I deleted the seconds).
I can just set the formatting as [h]:mm to be consistent and enter the full 15:00 but I guess that after working that out I am just curious - can Excel store hours:minutes as just hours:minutes without turning it into a meaningless date? And without converting it to a decimal number? I don't want to total 1:30 + 1:45 = 3.25; I want the total to be 3:15. Again, it appears that [h]:mm will do what I need but it just seems unelegant to me that it is stored as some weird date and I wonder if it will cause a problem at any point.
I am trying to derive the EMI for a Loan Amount and also chart a PIE graph for the same..
Instead of Manually feeding the values such as :
Variable 1 : Loan Amount : Min : Rs 50,000/- Max :Rs 5000000/-
Each Spin (1 Unit) -Rs 25000/-
Variable 2 : Interest Rate : Min : 5% Max : 30%
Each Spin (1 Unit) -0.25%
Variable 3 : Tenure/Duration : Min : 6 months Max : 30 years
Each Spin (1 Unit) - 6 months
I want to have a Scroll-Bar where the values can change Automatically but am not aware of using the same...
Can someone please help me with a small attachment with the above variables attached to it..The values drawn should be displayed as well above the Scroll-Bar and maybe can make the Min and Max more dynamic by storing it somewhere in the Sheet..
I am looking for Non-VBA solution to do the same..
In the menu via TOOLS-->OPTIONS-->VIEW I am trying to remove the scroll bars from just one worksheet but when unticked, this option affects all of the worksheets in my workbook. Is there a way to just nail this selection down to one sheet via properties?
View 2 Replies View RelatedWithin the 'tools' menu option you have 'Macros'. On a standard tool bar you have the option to record a new macro, edit......, however sometime last week I created a custom button and placed icons on my tool bars that allowed me to click them to record new or run custom made macros. After a clicking the 'custom macro' buttons a few times by mistake, I decided to remove the custom buttons in the hope of returning the macro options (within the 'Tools' menu option) back to normal. However this has not been the case. Now I have no option to record a new macro the the 'tools' menu system.....it has disappeard. Please could someone tell me how I can reset the 'Tools' menu system back to normal?
I am trying to create a simple translation tool for my product catalog, which is in Japanese, to English.
I have the Japanese and the English terms listed in a file (say, File A) in Col A and Col B which will keep increasing every week.
I want to create a macro which goes thru this list and replaces ALL the Japanese terms to English in "ALL THE SHEETS OF THE PRODUCT CATALOG" (say, File B) .
I have created a button in File A so that when I press this button, I browse my computer, select the file (product catalog) to be translated, replace all the Japanese terms to English terms in ALL THE SHEETS and saves it under a different filename.
I'm a big fan of the old crossword these days so i decide that i will try and create a crossword creator in excel!
problem is i'm not sure how to use the Thesaurus tool?
Lets say i have a string in cell A1 how would i modify the string using the thesaurus?
also any idea how i can randomly generate a word?
I have an application that I attached to this post, which I have been working on, for the last four or months, in my free time on the weekends and the last part I need some help with. The doc has been updated with new macros and a chart.
I would like help with a macro that I can activate and cause a message box to appear when I open the excel doc. I would like also to be able to activate the message box and its associated macros after the document has been opened. If you look on Sheet1 of the attachment you’ll get an idea of where I am trying to go with the message box. I would like it to have
- Message “The Current Time is (Macro puts current computer time here)”
- Question “How much time do you have?” then beneath this question
- Blank field labeled Hour to give answer
- Blank field labeled Minute to give answer
Depending on the current time on the computer as well as the hour and minute entered, a macro with a matching title (each macro includes a time, hour, and minute in its Sub name) a code in VBA will be selected that fits that criterion. For example, let’s say it is 5:30am and I entered 1 hr and 15 min in the empty fields of the message box. As a result the macro named “Sub Hour1Min15time530am” will be activated. Also due to the fact that the macros I have are in 15 min intervals the code would need to round to the nearest time, so if it was 5:33am when I ran the code the macro would default to 5:30am whereas if it was 5:39am when I ran the code the macro would default to 5:45am. You’ll see time controls at the bottom of the application. If I can get the code I am looking for those are going to be removed.
I am making a Program search tool for my company. I would like the operator to type a part number into a cell. If the part number is valid (from a master list on a different sheet), then I would like to pull the information from the master list and populate a few cells on the search worksheet.
Example:
An operator types: "W3303-01" in a cell and clicks a button. The macro would populate cells on that worksheet with information from another worksheet that pertains to "W3303-01"
I have 143 macros, but I put 8 of them here b/c the post would not go through with all of them. I couldn't fit all of them on an attachment either b/c the file size was too big. However, I have this goal I have been working on for the last three months on the weekends and the last part.
I would like help with a macro that I can add onto the ones I have. I would like the macro to activate and cause a message box to appear when I open the excel doc. I would like also to be able to activate the message box and its associated macros after the document has been opened.
I would like the message box to have
- Message “The Current Time is (Macro puts current computer time here)”
- Question “How much time do you have?” then beneath this question
- Blank field labeled Hour to give answer
- Blank field labeled Minute to give answer
Depending on the current time on the computer as well as the hour and minute entered, a macro with a matching title from the list below will be selected that fits that criterion. For example, let’s say it is 5:30am and I entered 1 hr and 15 min in the empty fields of the message box. As a result the macro named “Sub Hour1Min15time530am” will be activated. Also due to the fact that the macros I have are in 15 min intervals the code would need to round to the nearest time, so if it was 5:33am when I ran the code the macro would default to 5:30am whereas if it was 5:39am when I ran the code the macro would default to 5:45am.
Do we have NumericUpDown Tool Control in MS Excel 2003 that can be employed on a userform. The one similar to the numericupdown of VB.NET. I want to restrict user to input only numerals. Though I can use IsNumeric Validation in Textbox_Change event but still I was curious to know if there is any other in-built function in MS Excel.
View 2 Replies View Relatedi have about 500 excel files that are built to specific format, only some data changes.
I need to make same changes to all the 500 files, so i'm asking that is there any kind of tool (free/commecial) that can batch changes to all files?
I want to let my buttons on tool bar in group status, there is a saparator bar between two groups, what can I do? I tried but no any result.
View 2 Replies View RelatedI have a bar chart which compares two columns of data. the data in one column is fixed to 100. the data in the other column varies. a third column states whether each entry is "A" or "M". Is there a way to include the A or M on the bar chart? Perhaps by having a set colour whether the data is A or M?
View 1 Replies View RelatedWhat I need to do is add a scroll bar to my text box in my form. I used the properties of the text box to add a scroll bar but when you preview it you can't see it. When you click somewhere inside the form it appears and is workable but not when it hasn't been clicked on. How do I make the scroll bar appear from the start. this is a vertical one ad is on a text box within the form
View 11 Replies View RelatedFYI This is cross posted on the VB Forums at [URL].....
I know that you can use the below code to add buttons to 2 of Excel's menu systems,
Code:
Application.CommandBars("Worksheet Menu Bar").Controls.Add
Application.CommandBars("Cell").Controls.Add
And this should add a command bar control of whatever type specified to either the Add-Ins tab of the ribbon or the right-click menu when clicking on a range of cells.
However, I would like to be able to add some command bar controls to the right-click menu when you click on a group of columns. Is this possible?
The graph function in Excel is driving me insane! Is it possible to do as image below shows? If so, how?
As you can see, I dont want to stack the result, but rather compare two bars with the bigger one in the background.
code to remove the titlebar of a userform in Excel/VBA.
Remove meaning the program user must not beable 2 see the titlebars..
I have some code that creates multiple new menu bars for a user which each have there own controls. I need to know which control is selected by the user for onaction. The example below is where there are up to 20 new menu bars with names Tract 1, Tract 2, etc. For each Tract, there is a controlbutton titled Absoprtion and I need to know which "Absoprtion" button was selected to run the "ViewAbsorption". I need to use th For next function because the number of menu bars could vary.
Dim objMenu As Object
Dim objViewMenu As Object
For y = x To 39
Name = "Tract" & y - 19
With Application.CommandBars("Worksheet Menu Bar").Controls
Set objMenu = .Add(Type:=msoControlPopup, temporary:=True)
objMenu.Caption = "&" & Name
End With
With Application.CommandBars("Worksheet Menu Bar").Controls(Name).Controls
Set objMenu = .Add(Type:=msoControlButton, temporary:=True)
objMenu.Caption = "&Absorption Schedule"
objMenu.OnAction = "ViewAbsorption"
Next Y
I have 2 sheets, one with users and a tool they have been using, and one with a list of unique users, I would like to count how many unique users are using a tool. The sheets are set up like so,
Sheet 1
User Tool (number of uses)
abcdefg 1
hijklmn 5
1234567 1
1234567, abcdefg, opqurst 2
wxyz123 0
Sheet 2 Have they used the tool
abcdefg
hijklmn
1234567
wxyz123
opqurst
So yes, I am trying to count whether or not the unique users have used the tool, this is a simplifed version as my data set runs into the thousands. I was using the countifs function, but that doesnt count properly if theres more than one user in the group.
I've been look for an excel tool to draw venn diagrams with the 'circle' size in propartion to the set (population) sizes and the correct degree of intersect.
Having no luck I've made one myself - it's not pretty (the code sure is ugly) but it get's the job done.
May not work in versions earlier than xl07 - haven't been able to test
So take a look - pull it to pieces all you want.
**Warning**
Attachment contains Macros
**********
Orginal text in thread:
Silly question..but that's never held me back.
I am preparing Vendors' Directory for our company. This Directory has different products listed in seperate sheets. The names, phone numbers and address of various vendors' are listed in each sheet.
My problem is that I want to create a new sheet with a find tool that will search particular name of the product or the vendor from all the sheets (say product A, product B) and list out complete information in single page.
I have attached a sample excel sheet which is supposed to search the name "Daniel" from sheets - Product A and Product B and list it out in the first sheet. The sample does not work.
How to use the Camera Icon Tool using a Macro?
I want to copy the First Row which is the Column heading of one Sheet to a different Sheet
Example : From Col A till Col G First Row is to be copied as an Image. Normally I do it using the Camera Icon, however when I tried recording a Macro for the same it did not work..
So how do I that if I provide the Start Column and End Column Alphabet as a Variable is that possible.. I want this Image to not remain Volatile which is the case using the Camera Tool..
So, how do i get the picture of only the first row or any row and store it is an Image in a different sheet as static picture so that even when the sheet is moved to a different location it does not make a difference to the Image.
