I have programmed an Excel file that removes all the standard commandbars from Excel and then opens a custom commandbar, I built, with limited functionality ( Named "Limited"). When I open this file on another computer, since that custom commandbar does not exist in that copy of Excel no Limited commandbar shows. So I created a macro that builds the custom commandbar when a file is opened. What I want is when the file is opened on subsequent times that it checks to see if that commandbar already exists. If it does, it skips the macro which builds this custom commandbar for the first time. It then disables the standard Excel commandbars (code written already) and enables the "Limited" commandbar (code aleardy written).
How can I save a new xlt or xls so that the toolbar settings I am viewing will always reload with excel. I have tried purging all items from my xlstart locations, but unwanted (and unchecked) toolbars keep reappearing when I restart excel.
I had made a Workbook with my own command Bars, and everthing is ok .. the problem is when i copy it to anthor pc. i have got an error msg. and when i check the code (debug) i've found the problem is with that command bars ( it's missing ) and now the Q is:
how to copy a workbook with it's all add-in's and customised bars ?
So basically I'd like to know if there is a duplicate line item what line item the duplicate actually exists on. Is there an easy way to do this with a formula?
I have a database of 6 digit numbers in one column(let's say column A). I would like to put in a 6 digit number in a cell (b1)and have another cell (c1) give me a response as to whether that number exists in the database (Exists or Doesn't Exist).
I am trying to make a spreadsheet for bank reconiliation. I found this formula, =if( countif($B1:$B$1000,D1),D1)=0,D1,"") but there are two open parathese and three close. What needs to be corrected?
I'm sure this will be an easy question, but I've been searching for awhile and can't seem to find an answer. I'm trying to write code in VBA that will check if a directory within c:documents and settings...my documents exists, and then save a file to that directory. The problem is, I'm having trouble finding the my documents directory. Is there some object or property that I could use to find the my documents path? Note that the worksheet that I'll be working with is in a separate directory, and therefore neither activeworkbook.path nor thisworkbook.path would be an option.
I have two columns of data with a minimum value in the first column and a maximum value in the second column. What I'm trying to get is an indicator in a third column which tells me if a whole number falls at or between the minimum and maximum values. Here is a sample of my data:
Before my workbook is open the following code is run, which asks the user to enter the password. Depending on the password Range("name").Value takes values from the worksheet "Data" from table "M4:M20". The list of passwords is in the table "L4:L20". My code seems to be not optimal (too long). Does anybody know how to optimize this code?
Sub GoodMorning() On Error Goto Error 'Prompt the user for a password and unhide the worksheet if correct Select Case InputBox("Please enter the password", _ "Enter Password")
Case Is = "" Call HideSheets MsgBox "Sorry, that password is incorrect! Please contact the administrator.", _ ............
Im trying to write a formula that will check if a name that I have in column A also appears in column B and if it does I want it to return a value for example TRUE in column C.
I'm currently doing a survey and I have all employees in column A (600persons) and then column B I enter thos that have taken the survey. So If an employees name exist in column B he/she has done the survey and then they I get the value "TRUE" or "1" or something else. So in this way I can easily see who has and who hasn't done the survey. I've been trying with VLOOK and so on but I can not get it right? Maybe I need VBA?
I require a row of details to be copied to another worksheet by typing in a unique ID using a macro so Sheet 1 is a data base of items (every item have a unique code like 1001, 1002 etc) and sheet 2 has a table, and next to the table is a cell, which i need to work like a search engine.
i need to be able to type the unique id in a cell, in sheet 2, then click an Add command Button. This button then finds the unique id in sheet 1, and copies all the items details in the same row, into sheet 2 in the table, then i require the search engine to be cleared for the next item to be added. (Assumed Experience:Below Average, I know few formulas and know very basic macros)
Column A has a bunch of numbers and some duplicates Column B has the same numbers but lots more and no duplicates Column C describes what column B number does
All I want is for my formula to return the value in C when A#=b#:b#. The if statement, that I can't figure out how to get it to work right is this. =IF(A2=B2:B1021,C2:C1021)
This is fine if the 1st value is true (meaning a2=b2), the problem is the IF statement returns the 1st value in the array(I think) which in this case is false. An example of the array is below, the result of my formula is always false unless i change B2 to equal A2.
00E200002-Way Mir 00E200012-Way Mir 00E200022-Way Mir 00E200032-Way Mir 00E000E22-Way Mir
I have this code below which creates a CommandBar but my problem is that I thought the line of Code .Width 100 would make the width of the actual CommandBar increase if I adjusted that number, but this doesnt seem to be the case. The title in only shows Nursing Sta instead of Nursing Staff Rota. How can I make the CommandBar wider than is?
I am trying to disable a shortcut menu for a commandbar I created. I am able to disable all shortcut menus for all commandbars with this:
Application.ShortcutMenus(1).Enabled = False
But, I'm not trying to disable rightclicking for all commandbars, just one. Is that possible? As far as I can tell, the "shorcutmenus" property is a direct child of application.
I've created a CommandBar Menu using Macros. It's not a linear code, I've used Do-While to create the different objects and embedded objects. As you can guess all objects refer to the same Macro. And in this Macro is were I've got the problem. I can't come with a code to get the name of the object or the index reference, and thus I can't create the actions for the different objects in the menu.
I have a right click event for a cell where I create a custom commandbar with single or multiple control buttons based on the cell value. I want to link each control button to another cell in the same sheet.
when open xl app my addin is installing, but when excution gets to delete the my addin an error appears tells :invalid procedure call or argument.
Sub workbook_open On Error Resume Next 'Just in case '*Delete existing Super Menu if it was left. Application. CommandBars("Worksheet Menu Bar").Controls("Accountant Menu").Delete On Error Goto 0
I have create a Command Bar, my problem I'm trying to understand is this 1.Can you amend the font colour of the any Captions on the CommandBar? 2.How can I get the Caption to pick up from a range and use the range name as the Caption?
I have named a range in a worksheet that I want to pick up and use as the range. Below is my CommandBar code
'The following code creates a new commandbar name Visual Basic Editor, which on event delete the VBE module1. How can I tie the built in visual basic editor commandbar to this.
Sub bar() Set mybar = CommandBars("Tools").Controls("Macro") Set mycontrol = mybar.Controls _ .Add(Type:=msoControlButton) With mycontrol .Caption = "Visual Basic Editor" .FaceId = 1 .OnAction = "MySub" End With mycontrol.Visible = True End Sub
Function mysub() With ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule .DeleteLines 1, .CountOfLines End With End Function
I'm trying to make a converter between about 8 various types of values. These are not units like Km or miles or something like that, but rather numbers that represent a specific "hardness value" on a variety of scales (to name a few: HRC, HRA, K)
What I've been doing so far is plotting the two types against eachother and then getting the best trendline I can so that I can use that formula to convert between the two with relative certainty. (for example, when plotting HV vs HRC my fourth order polynomial trendline with an Rsquared of 1 is y=0.0001x4 - 0.0188x3 + 1.0768x2 - 20.709x + 350.69)
My questions comes up where I was hoping to make a window or box of some sort allowing the user to input a numeric value, then selecting the Input units and the hopeful output calculated units, and have the box spit back to the user the conversion.
I want to be able to create a range of VBA userforms to quickly perform long tedious tasks. I want these userforms to be accessed from a nice tidy toolbar.
I have done this and it looks nice and works well. What I would like to be able to do is have my custom toolbar of userform controlled functions be transferable so that if someone else wants my toolbar and attached functions they can install it easily much the same way you can do with an add in.
Is this sort of thing possible or does it require them to manually install all my userforms, modules and toolbar? If it is possible what sort of things should I be looking at?
This is quite a complicated one so please feel free to help in chunks rather than the whole at once...
From Row 9 onwards column A and C are checked.
Condition 1
If in column A and column C the same values exists in the next row down e.g. A9 = JONES C9 = Peter and A10 = JONES C10 = Peter then the data in column E is checked for those two rows.
In the two checked rows in Column E, data which contains the words Pre-int, Upper-int, Int, Elementary, Advanced or Beginner is then inserted into D5 on spreadsheets titled "Schedule A GE2" and "Schedule B GE2".......
I have a form, when I fill in the order no, I want it to look if the value exists in a range and then notify me with a msgbox. Here is my code - it doesn't work no matter what I insert into the textbox it tells me that it exist.
Basically, all I want is for a formula to tell me if I have matching data in two separate cells. What I have is data entered in cell A1. What I would like is one single formula to check if the same entry has been entered in cells A2:A10 and if so, return a 1, and if not return 0.
Basically, if a cell value exists in a list on another worksheet then move to next row. If the cell value does NOT exist then look at columns J, K, L and M and see if a specific value exists in each. If any of these cells contain this criteria then copy the row and add it to the bottom of a growing list on another sheet. Here is what I have so far.
Sub OrdersHeld()
Application.ScreenUpdating = False
Dim x As Double Dim ws As Worksheet Dim numberofrows As Double
