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.
View 7 Replieswhy 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 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 wanted to disable the function "Delete" when right-clicking on worksheets.
I copy paste the following VBA code in every sheet code :
In my table there is something wrong in array formula so that I'm not getting correct output in the table.
View 14 Replies View RelatedI have created a data entry spreadsheet for staff.
I need to format all data entry field to uppercase.
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.
View 3 Replies View RelatedI 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.
How can I change the font size on Excel Worksheet column and row headers... Not cell fonts but the Row and Column numbers outside of the table itself?
View 1 Replies View Relatedi 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 am trying to automate text for a document. How can I combine Greek symbols and normal typing in one cell?
View 9 Replies View RelatedI 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)
how to use {Sum(if(... )} to whole columns?
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
[Code] ..........
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).
View 3 Replies View RelatedIf 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.
View 2 Replies View RelatedI 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,"
View 5 Replies View Relatedin this example below i need to work out what the divsor would be for values inbetween the data?
View 9 Replies View RelatedI want to have the macro delete the color applied once a new "Row" is selected!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim RR As Range
Set RR = Target
Cells(RR.Row, 2).Interior.ColorIndex = 36
Cells(RR.Row, 3).Interior.ColorIndex = 36
Cells(RR.Row, 4).Interior.ColorIndex = 36
End Sub
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?
View 9 Replies View RelatedI 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
On Error Resume Next
ReDim arrDataTot(1 To 1)
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).
View 4 Replies View RelatedI 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.
View 2 Replies View RelatedI 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.