No More New Fonts May Be Applied To This Worksheet
May 10, 2007
I have a very simple workbook in Excel 2000 with one page containing all my data which I update on a daily basis. Some of the data is linked to another workbook so that it updates each time I open it. Then I have 12 tabs, one worksheet for each month of the year with 10 simple graphs on each worksheet.
As you can see, it is a very simple worksheet. Each month, I copy and paste the graphs from the previous month into the current month and simply alter the Source Data in the graph to gather the current month's data. At the start of this month, it allowed me to copy and paste, but when I tried to alter the Source Data to the current month, I got a window on screen with a yellow triangle containing an exclamation mark and the words "No new fonts may be applied to this worksheet". If I click the OK button or the cross, it responds but the whole programme is locked. The only way I can get out is to give the 3 fingered salute and close Excel down.
I have a workbook with 33 worksheets and more than 150 charts. Now, when I right-click on a chart to access "Source Data" for example, I get a message saying "No more new fonts may be applied in this workbook". Then I have to click "OK" about a dozen times before I get access to the dialog box. Curiously, it happens for some charts and not for some others.
why do I get this message, excel won't let me change anything:
"No more new fonts may be applied in this workbook"
The worksheet has whole bunch of charts and I'm moving things around but it won't let me it gives me the above error message. There is no lock in the spreadsheet.
I'm trying to have it output certain symbols such as "Ó" and I can't quite figure out how to do it, i want it to basically write in the selected cell:
"Ó of " & a & "'s = " & b
where a and b are strings... my problem is i cant figure out how to have it output the sigma but keep the letters from going into symbol or windings...
I have a chart graphing different series, which includes a legend to label each series. The labels are linked to particular cells in the worksheet.
Most of the chart has Arial font formatting, but I need to change the formatting of a few characters in the legend:
I know that i can change the formatting of the whole legend, and even different entries in the legend. Is it possible to change the font of just a couple of characters in one legend entry?
Elements I need to change are: Font type (eg from arial to symbol) Size (varying from 8 to 14) Bolding etc.
I am using Excel 2003 and have a spreadsheet that lists 1521 fonts. I am using VBA and looping through the list of font names in column 1 and want to put an example of the font in column 2. I am trapping for error 1004 and using Resume Next. This works fine for 480 lines and then it just stops working. No error message or anything. The only thing I could think of is there might be a maximum number of fonts allowed per spreadsheete, but I would have though I would get an error.
I am trying to find a quicker way to populate a ComboBox with every possible font available to the user on their particular computer in a manner other than simply using a ton of .AddItem statements.
Is it at all possible to get a user created ComboBox to essentially function the same way that the ComboBox for selecting font works normally? Or is it necessary to go through and add the statements myself?
I am creating a interface to specify default settings, one of which is font.
i answered another q. here http://www.excelforum.com/excel-work...excel-sss.html but op wants to only change specified fonts on all worksheets to ariel and leave others intact.
I need to use two types of fonts to not only display a string of characters in a textbox but also past to a cell as viewed in the textbox.
An example string:
[#|:.010(M)|A|N(M)|B(M)]
The above string in Arial font would look like this:
[TP|Ø.010(M)|A|N(M)|B(M)]
I am simulating a GD&T instruction (Geometric Deimensioning and Tolerancing).
My dilema stems from the first character "[" and the last character "]". I use both of these characters to open an instruction and close the instruction (as if all characters are surrounded by a rectangle).
What I cant figure out is how to isolate the first "[" and the last "]" (They will always be the first and last characters of an unknown string length). The first "[" would be an "Arial font" and the last would be an "Arial font" everything in between is another font (in this case Verisurf). See attached example jpg file. "verisurf1.jpg"
Verisurf uses both "[" and "]" as alternate characters. I only need to capture the first and last character if: 1. The first is a "[" and or the last is a "]". They will never be vice~versa.
In the attached excel sheet you can find 2 subheadings named Safety and Waiting. Like this i have many sub headings in my excel sheets. Each sub heading contains some rows. The below is the code i used to change the Font color based on the date values.
Every thing works fine. My requirement is if any rows added under subheading "Safety" then i want to run the loop from 1 st row to last row under this subheading which will change the color based on the given date.
How to identify under which subheading the row is added and which is first row and which is last row.
Sub CycleThrough() Dim Counter As Integer If ActiveCell.Column = 3 And ActiveCell.Row >= 3 And ActiveCell.Row <= 8 Then For Counter = 3 To 8 If IsDate(Worksheets("Sheet1").Cells(Counter, 3).Value) = True Then If Date - Worksheets("Sheet1").Cells(Counter, 3).Value >= 100 Then Worksheets("Sheet1").Cells(Counter, 3).Font.Color = 255 ElseIf (Date - Worksheets("Sheet1").Cells(Counter, 3).Value >= 70) And (Date - Worksheets("Sheet1").Cells(Counter, 3).Value <= 100) Then Worksheets("Sheet1").Cells(Counter, 3).Font.Color = 82400 ElseIf Date - Worksheets("Sheet1").Cells(Counter, 3).Value < 70 Then.......................................
I need a macro to fill any cell in any column with red color. The same cell should also have red fonts with word 'RED' typed in the cell, so that word 'RED' is invisible.
I cannot acheive to have a {Sum(if(...)} formula applied to whole columns. See below.
The following formula return a numeric value. So it works. {=SUM(IF(Query!$L1:$L65535=TEXT($A37,"@"),Query!$AM1:$AM65535,))} (confirmed with Ctrl+Shift+Enter)
The following formula returns #NUM. So it fails. {=SUM(IF(Query!L:L=TEXT($A37,"@"),Query!AM:AM,))} (confirmed with Ctrl+Shift+Enter)
In MS Excel, I find that when the zoom is dropped to 50% the fonts in the list become unreadable. Is there anyway that the fonts in the list have the ability to have their own formats?
My group is putting "marks" in Excel (2007) work papers & sometimes they may want to add additional marks to those previously added in a selected cell. What I have below actually works, but I just got my VBA book last week & there has to be a better way.
Specifically, I've saved the "target" off in the same worksheet (That can't be good.) and delete it when I'm done writing it back. Can I save the original characters virtually, or to the personal.xlsb.
Code: Sub addMarkInCELL() ' Dim charCount As Integer Dim charStart As Integer Dim rngTarget As String charCount = ActiveCell.Characters.Count
I'm new to 2010 and can't work out the new conditional formatting! I need to be able to enter a letter in A1 and have E1, F1 and G1 automatically show a different letter in each cell (different coloured fonts in each cell as well).
If filtering column C, just showing 'A's, by pressing the add row button, I want to copy the last cell in column C and pasting it in row 73, since it's the next unused cell when the worksheet is unfiltered.
I have a auto filtered applied to 1000 rows of data and the actual quantity of rows I currently see is 55 rows. When I do a filldown command to apply this formula, "=CONCATENATE(X$1,I51)" the result I get is wrong becuase where the "I51" value is at the formula is picking up cell values that are hidden due to the applied autofilter.
What do I need to add to this formula so that it only picks up cell values that are not suppressed by the autofilter? I want it to disregard the hidden rows when I do a filldown and only apply the formula to the rows that are not hidden due to the applied autofilter.
How would I write a formula if I was trying to get the cell to count all expired certifications (based on a range of cells and their expiration dates) as well as all blank cells? This is what I have so far and all it's doing is displaying "FALSE"... =COUNTIF(D2:D95,"
I have a spreadsheet that I want to sum the data similar to SUMIF or SUBTOTAL after a filter is applied. So I have data in column "F" that I appliy a filter and based on that filter I want to sum only the filtered totals in column H. Is there an easy way or is creating a new function the only way to go?
I have the following code (below) which calls a function to return the sum of values in a specific part of the array.
I haven't set the function up correctly as it is causing an object not defined error(424), but I can't see where and have been going round the houses changing it. I'm wondering if it's my confusion over when to use By Val?
Sub getDataIntoArray() Dim arrDataTot() Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False
I have a worksheet that I'm trying to rank program selling. The range has subtotals that I need to exclude, so I'm trying to rank over multiple ranges. I've thought about LARGE in an array function, but can't seem to make that work. Is SUMPRODUCT a possibility? I've attached the worksheet, trying to get the top programs (again excluding the subtotals in bold).
I have a problem in applying Data Validation on cells containing Formula. Eg: cell A1 has a value 10 and cell B1 has a value 15. i have a formula "=A1+B1" in cell C1. If i apply a Data validation to the cell C1 so as to accept values only in the range of 0 to 10, the cell C1 is still accepting values grater than 10 when i change the values in the cells A1 and B1.
I can select an individual cell or range, select Format->Cells->" date" format, hit okay, and nothing actually changes unless I click on a cell so that it brings up the edit cursor. I can then hit enter (not changing the content of the cell in any way) and then Excel recognizes it as a date. The cell values are all in the standard "3/14/2001" format, with the exception that single digits are 0-padded, and there are no spaces preceding or following the date string. The issue here is that without the cells being recognized as actual dates, they cannot be properly sorted, eg: the original range:
01/04/2005 01/01/2005 01/02/2004 01/03/2005
is sorted, incorrectly, to:
01/01/2005 01/02/2004 01/03/2005 01/04/2005
...obviously for ascending order, the single 2004 date should be placed at top. Any ideas other than a custom date-text parsing macro? I could do that, but the size of each sheet, the number of sheets per batch, and the frequency of individual batches makes that idea completely impractical. ...Technically, my macro couldn't sort the above ranges correctly, but on further investigation, I noticed I couldn't do it manually either.
I have 6 pivot charts within a document. I use a macro associated with a button to refresh the tables and therefore the data displayed on the charts.
However, each time I refresh the data, the 'data label' font size also refreshes. What is particularly odd is that 5 of the charts are pie-graphs, of those 5 graphs, the font size only resets on 4 of them (with the data labels in a single chart staying at my desired font size).
I can manually put the font size back to that which I desire but I'd rather it just didn't change in the first place.
I've had a look to see if there's any noticeable differences between the 5 charts but there's nothing which I can find.
I'd be happy to run a bit of VBA to set the font size as I want it, if there isn't a better solution.
