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
I'm looking to set up a spreadsheet whereby individuals answer questions and have to format their answer using a particular font, colour, font size and so on. The idea is that I can then compare their answer sheet to a pre completed one using an =IF function and get a total score. The only problem is =if and =exact only lookup cell text/numbers and don't look at how the text is formatted within them.
View 9 Replies View RelatedI want to change the font colour in row J7:J299 if there is perticular word say "Double" in row J.
I'm creating a simple spreadsheet totalling units of alcohol up. Is it possible to change the colour of the fornt when different values are reached? For example if a total of under 8 units is reached this is displayed in green, if over 8 the figure is shown in red.
View 4 Replies View Relatedwhen i pasted the data into an Excel sheet, the background will change to red and the font will turn to blue. Besides, the font in header will change as well. I can't find the way how to do it because this template is set by other person. I can confirm this is not done by macro.
View 9 Replies View RelatedThe following code does everything I need it to except for some reason it is not sending the font colour through first or the font colour is getting overwritten. I have formula in other worksheets that are counting the red and the blue to determine which rider in a team it is. For some reason the time sent to "B Grade" worksheet is ending up in black font. Can anyone explain to me why this is occuring.
I am using worksheet function.text because I am working with elapsed times that could be over 24hrs. I was wondering if the default text colour for the worksheet.text() function is black and if it could be changed.
I humbly seek help on the "Find and Add based on Font Colour". For instance, A1="urgent"(with red font) and I want B1 to return as "ATTENTION". Other than red font, it will return as empty string. Can Conditional Formatting do the task?
View 9 Replies View RelatedI need to count cells in a column that display a red font as a result of conditional formatting triggered by the MAX function in adjacent rows.
I've tried numerous VBA codes suggested by your site and others but without success.
They work if I manually change the font colour but not when they're changed conditionally.
Attached example sheet. Basic table of data, with column F being a validation list, is it possible that when choosing COMPLETE from the list, the row and font change colour, and then move to the top of the list?
I'm not the only simpleton using the sheet so I need it to be as simple as possible. I know it doesnt seem like a big thing but the sheet we are working from is huge and I dont want people cutting and pasting away, I just dont trust them with my spreadsheets.
I have 11 names, one name in each cell, in one row. I want to be able to delete a row if there are more than 3 names in that row that have the same font colour, eg red. Would have to be a loop type macro to check all of the rows on the one worksheet.
View 9 Replies View RelatedIf a cell cntent includes a symbol [as an arrow, for instance] beside the text,the font colour does not change as required when the condition is met.
View 2 Replies View RelatedI have an autoshape rectangle which is linked to a cell on my spreadsheet. This cell will auto update whenever i type a number into a different cell (match and index formula).
I want the colour of the rectangle to be green, amber. red or black depending the value my formula brings back. I have managed to do this but the colour does not automatically update. Also when the colour goes black i will need the font in the text box to be white, at all other tines it will be black.
Excel 2013
I am trying to define a font colour within a macro When I record the macro, I choose a colour from the font colour-picker in the Home section of the ribbon. The colour I choose is one of the grey shades Everything seems to work ok, and the macro saves with the colour defined as a long number, e.g.
.Bold = False
.Italic = False
.ThemeColor = xlThemeColordark2
TintAndShade = -0.499984740745262
(Note this is the colour number returned by Excel when I chose a grey font) But when I run the macro, instead of a grey font I get a sort of pale apricot
Do I need to re-index something?
Is there a list anywhere of these long numbers and the colours that they represent?
I'm looking for the lines of VBA coding that will allow me to change the Font style, size and colour in an email.
Is there any way to change font style, size and colour of text in a combobox?
View 1 Replies View RelatedI am working on a spreadsheet for work, and have managed to do everything I need to so far but I need to colour specific letter strings, certain colours within a range of cells (each letter string will only appear once on each sheet)
The strings I will be looking for vary depending on data entered so I will need to cell reference them
The strings that need colouring are in cells with other strings that must stay black (They cannot be separated from other strings due to the nature of the grid)
I need some strings red, some green, and some blue.
These changes should also apply to the whole workbook not just one sheet.
Is there a way to do this with the VBA code.
On a user form I have added a multipage Object. It has 5 pages. How can I have each page caption read "Name" Comments where "name" is pulled from a worksheet field (say Questions!C2).
So the Caption needs to pull from a field and be concatenated with the word "Comments"
I have a userform with 70 toggle buttons, the buttons are arranged in 7 columns and 10 rows, hence I named each button c1r1 to c7r10.
The button captions will change, so I want to take the captions from cell contents: worsheet 'Buttons' and the range A1:A70
I can do this long hand...
c1r1.Caption = Sheets("Buttons").Range("A1")
c1r2.Caption = Sheets("Buttons").Range("A2")
.....
c1r10.Caption = Sheets("Buttons").Range("A10")
c2r1.Caption = Sheets("Buttons").Range("A11")
c2r2.Caption = Sheets("Buttons").Range("A12")
unitl I get to
c7r10.Caption = Sheets("Buttons").Range("A70")
I guess a loop would be better. Here's my code that does not work..
I was just going to insert word 'works' for now until I get the loop to work.
I'd also have to get a loop inside this loop, ie when the column number is 1, it needs to loop through the rows numbers, before it loops to column 2.
I guess I might be able to do that, but I fall at the first hurdle, I get Error 424, object required. I guess it does not like 'buttonaddress.caption'
Do I need to declare or dim 'buttonadress'?
buttoncoladdress = 1
buttonrowaddress = 1
Do Until buttoncoladdress = 7
buttonaddress = "c" & buttoncoladdress & "r" & buttonrowaddress
buttonaddress.Caption = "works"
buttoncoladdress = buttoncoladdress + 1
Loop
I have problem with changing multiple captions on pivot table.
I am using olap cube and I want to update all my "product code" captions on pivot table. Can it be done with VBA code?
I have old code-new code table and I want to replace the old code captions with new ones, copy paste does not work on pivot tables, and formulas are also not available, but is there a way to change the captions with VBA code?
I can't refresh the values in the captions in the labels that have been dynamically added to Frame 1 on page 1 of a multipage control. I have added the salesperson' name with a checkbox, and three labels for each sales person. The captions for the labels are the values for the number of sales, gross sales amount and commission. The captions get these values from an Array "SalesAry()".
Outside the multipage control I have another frame with the total of salesmen, service, product, customers, total sales, total commission total product sold. The user can check the checkboxes next to each sales person to include in the final report. After the user checks some of the checkboxes, there is an "Update Totals" Button on the userform (outside the multipage) to update the totals.
This works, but the values in the sales person's labels do not update. I have tried to repaint the userform me.repaint or me.frame1.repaint but the labels in the frames on pages do not repaint or refresh?? I have also tried to focus the userform to the multipage by inputting "multipage1.value = 0" just prior to me.repaint. I have three other pages on the multipage. Same issue/problem. Page2 is the Service person their number of accounts, gross sales and commission, Page 3 is the Products names Number sold, gross sales and commission and page four is the Customer name number sold and the commission.
In the end I want the user to select (check) only the salespeople, Service person, Products and Customers to include on the report. But since I can't get the labels in the frames in the multipage to update, it just looks confusing. I know that the Arrays are updating because the Totals keep getting updated correctly based on the selections, but again it looks confusing because the total don't match the values in the labels?
I have an excel application that I'm developing that is going to be used by two different departments. On one side everything will pretty much be userforms. The sheets they the data I need to pull in for them is on sheets that I have such that their visibilty is equal too xlveryhidden. I'm trying to change the captions on labels using the data on the veryhidden sheets. Something like this.
'frmCurrentProposal is a userform
'lbGroupName and lbGroupNum are both labels that should vary
frmCurrentProposal.Show
frmCurrentProposal.lbGroupName.Caption = Sheet2. Range("B2").Value
frmCurrentProposal.lbGroupNum.Caption = "Group # " & Sheet2.Range("B3").Value
The labels are not changing their values.
I have a userform with 17 checkboxes that their captions should correspond with column A range ("A2:A18) on a worksheet.
Is there a way in userform_initialize, or activate, to create the captions from that range?
I could type the code 17 times like;
Code:
me.checkbox1.caption = wb.worksheets("area").range("a2").value
I was curious to know if it could be looped? Textboxes on the same userform.
how to change in a for next loop the CommandButton.caption in a usersform
For n=1 To 300
CommandButton & n.caption= Sheets("info"). cells(n,1)
Next n
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?
View 4 Replies View RelatedI 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.
View 3 Replies View RelatedI 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.
View 2 Replies View RelatedHow do you use the Application.CommandBars in the CommandBar Object to find a button.
View 1 Replies View Relatedwhen 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
End Sub
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).
View 2 Replies View Related