I am preparing a model for a client that runs excel 2003. I need to change the format of a range based on the value in a cell (reference cell) that is outside the range to be reformatted.
Reference cell is a named cell with the value calculated with a Match() function, the only possible values are (1, 2, 3).
I need the VBA code to retrieve the reference cell value and apply one of three formats to the range. I believe the code for that part is something like:
Private Sub Format_Font() Set vrange = Range("d63:r63") Set refrange = Names("ind_agentfee").RefersTo Set refrange = Mid(refrange, 2) On Error Resume Next If refrange = 1 Then With vrange.Font .Style = "Comma" .NumberFormat = "_(* #,##0.0_);_(* (#,##0.0);_(* ""-""??_);_(@_)" Else If refrange = 2 Then With vrange.Font .Style = "Comma" .NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)" Else .Style = "Percent" End If End Sub
I am having problems getting the proper opening statements and declarations correct and also get an "Else without Then" error with all combination's that I am attempting. I am sure that the code is mess now as I started with a recorded macro then modified it multiple times while researching the web.
i m trying to format a cell so that it colours in red when a specific text is chosen in another cell, ive tried conditional formatting but I cannot get it to work. e.g column A has a drop down list, if GB or IEN is chosen in that cell then cell in column K will become red. (as if these two are chosen then they have to input a number into column K). Once they have inputted the number into column K i want it to go back to its original format. Or if they dont select GB or IEN then it would stay in its original format aswell.
I am using pivot table for my customer aging which a sample is enclose. What I want to do is to Highlight the field " Customer Name " in colour if the the Field " Type of guarantee" is other than 0. Also a message of " Credit limit Exceeded" if the outstanding is more than the Credit limit.
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.
I'm looking to return the values in column A adjacent to the cells in Column B equal to "Y". The kicker has been returning only the cells where the condition is true. Column C displays the desired behavior.
The closest I've been able to get is with a simple IF statement but I'm pretty sure the answer is a far cry away from there and likely requires an array formula. I'd prefer not to use VLOOKUP or OFFSET but will if the alternative is very complex.
For the above, the sum value should be 500. I have written the following function to calculate the same. On uncommenting the line 'paid = CStr(paidvar)' the value is displayed as '#VALUE!'. On uncommenting all commented lines, the value is displayed as 'Paid'.
Function PAIDAMOUNT(amountRange As Range) As Variant Dim count As Long Dim paidvar As Variant Dim paid As String Application.Volatile True PAIDAMOUNT = 0 For count = 1 To amountRange.Cells.count paidvar = amountRange.Offset(count - 1, 7 - amountRange.Column).Value 'paid = CStr(paidvar).................
I would like to try and achive a conditional format that will require a lookup function. when the condition is met it places Yes or No into a cell and changes that row colour to red for the NO condition. and after 10 days from now the rowcolour is removed.
I'm trying to sum across multiple worksheets based on a simple condition. I have a time sheet with a worksheet for each week (52 worksheets). I've gone back and added a column to code the type of work done, types 1 - 17. I want to sum the hours of each type across all worksheets. This is what I have that doesn't work:
I have a simple problem I am trying to find a set a values on a column and what to replace once found with the first 5 most left characters. Example:
in column A I can have text and numbers; the numbers that I want to find are in the following format xy:zw / xy:zw on each case the values can be from 0 to 9 so this is tons of posible combinations, I been trying to use **:** ? **:** but I don't get none. This is what I am doing
Set target = Sheets("Sheet1"). Range("A1:A9000") For Each cell In target If cell.Value = "**:** ? **:**" Then cell.Value = "00.00" Next cell
A example would be 02:47 / 03:15 the next row could have 03:15 / 04:09 and so on however I could have text in some rows. In reality I would like to find and replace the cell.value with the Left 5 characters if the cell contains ANY value maching that format. Text in that column will never have that format combination
I would like to know if there is a way to change the font type in a cell, if a condition is true in another cell. e.g font in cell C3 is Arial Rounded MT Bold and if condition is true in cell F3 then font is changed to Arial Narrow.
I am working on creating a simple Excel Database of an Engineering Tool Room Inventory for work. However I can not seem to get one particular 'NESTED IF Function' to do what I want it to do. (In advance warning, I may be going down the wrong route and might have used the wrong Formula in Excel but from my understanding the 'IF' function seemed the most plausible.
Issue: All I would like to do is for a NESTED IF Function to be able to say this:
1. When a user inputs data into one column, for example 'Column A', with the following data: 4" Square 2. Then the neighbouring column, for example 'Column B', would have a NESTED IF Function. 3. Which would output a logical response, "A, B, C, D, E, F etc...", depending on what is written in Column A. If 'Column A' - 4" Square, Then 'Column B' - A If 'Column A' - 5" Square, Then 'Column B' - B & So on... But the NESTED IF Function should only put a logical response if there is certain values within the cell, for example: User types a value into 'Column A' which contain - 4 & S, Then 'Column B' - A User types a value into 'Column B' which contain - 5 & S, Then 'Column B' - B & So on...
Currently to do the above function, I have utilised the following Excel NESTED IF Function:
& The following happens: 1. User inputs data into 'Column A' 2. The NESTED IF Function then provides an automatic response. 3. However it relies on the data being inputted without the ' " (Quotation Symbol)' 4. & With me defining the exact phrase that should be typed into the cell, for example, "4" Square"
Other: I have attached an example worksheet of the NESTED IF Function in practice, with two tables. One showing what is happening with the code above and one table showing what I would like to happen but with no function.
I'm trying to copy Rows from a worksheet ("sheet1") in Workbook ("SourceData") to another workbook ("Final") and worksheet ("Regions") based on critieria selected in a listbox ("Listbox" located in a user form in "Final". The listbox selection is pasted in another worksheet, "Steps"). The trick is, the selection can be a single choice (Region2) or multiple choice (such as Region1, Region 3 and Region 7) and I'd want to copy any rows containing the selection criteria. I've got a bare bones start, but I can already see it's going to give me trouble. Here's what I've got:
I have been struggling with this formula for ages and have finally given up. What I would like to do is to do a lookup on the concatenated values of Province, Department and Initiative No, which has mutiple values in the status of milestone column, and then give the answer based on a condition.
The condition for this example should be, that if the returned status / or statuses of the initiative is all 1, then the value should be 1, if it's all 2, then the value should be 2, and so on.....but if the values returned from the status of the initiative is a combination of 1,2 or 3, then it should give me the answer 2. If 4 is part of the comination of values returned, then the value should be 4.
Zero - 0 should be excluded from the formula as it is part of planned values and not actual.
I have a Sheet ( Named "Summary" for Example ) of about 4,000 Rows that has a LOT of Conditional Formatting.
I Added Another 100 Rows this Morning and when I Tried Saving it a Message Saying that Not All the Formatting for the New Data that had Been Added had Been Saved. Is there a Macro or Something I can Run that will Make the Conditionally Formatted Cells Stay the Colour that they are but Delete the Conditional Formatting Part of it Achieved Using "Format" & "Conditional Format" from the Menu Please.
Ideally I would like to be Able to Enter the Number of Rows ( From Row ? to Row ? ) that I want this to Apply to.
I have a userform where I can select multiple items in a listbox and add them to another. I also have the ability to filter the first listbox to make finding items easier. The issue I am having concerns the clear filter button. As currently designed, the clear filter button will reset the initial listbox back to its default values. Ideally, I would like it to reset to the default values excluding those values that currently in the second listbox.
The entire code is below for reference, but it's the sub ClearFilter_Click that I am struggling with.
List 1 (TV Brand) Sony LG Samsung Depended List 2 (Models) Sony LG Samsung EX420 55EB9600 PL43E450A1FXZP EX430 77EC9800 PL43E490B4FXZP EX550 55EA8800 PL43E400U1FXZP EX520 KN55S9C UN32EH5300FXZP EX645 55EA9800 PL64E8000GFXZP
I'm using two Listboxes (Form Control) with multiple selection options namely Listbox 1 (Brand) & Listbox 2 (Models). I want listbox 2 input range to be depended on selection made on Listbox 1 (Brand). For example, if user selects Sony then box2 should show only Sony's models and if user selects Sony & LG, box2 should show models for both Sony & LG.
Excel 2003. I have created an Excel purchase order form that has several drop-down lists that work just fine. However, I have yet to figure out how to change the font size and be able to use such things as BOLD, etc...even when I format the source data list. I can format everything else in the form...except how the drop-down list data is displayed.
im using an adapted version of Roys database. Heres my
Private Sub cmbFindcode_Click() Application. ScreenUpdating = False Sheet3.Activate
Dim strFind, FirstAddress As String 'what to find Dim rSearch As Range 'range to search Set rSearch = Sheet3.Range("b8", Range("b65536").End(xlUp)) strFind = Me.TextBox2.Value 'what to look for Dim f As Integer If Me.TextBox2.Value = "" Then MsgBox "Please enter a Fund code to search for" Goto nullentered End If With rSearch Set c = .Find(strFind, LookIn:=xlValues) If Not c Is Nothing Then 'found it..................
This works fine for the first part - i.e it loads the data into the textboxes, and loads the headers and first search result into the listbox. However it always only loads the first search result, not all.If its not clear I can post a simplified example of the working spreadsheet.
i've been trying for teh last two days to figuire out a way to conditionally format the first cell in a row to turn a certain color based on the values of several independant cells in that row, as opposed to monitoring the whole row. I have tried numerous IF, AND, OR, formulas to no avail. The cell obviously also needs to ignore blank cells...Can this be done?
Basically I want the first cell to turn yellow if dates in certain cells are within 90 days of today, and turn red if within 30 days of today.......
I have backwards co-workers that can't figure out how/why to use conditional formatting and have deigned it "not acceptable".
They've requested I fill in a HUGE spreadsheet and change the font color to red if it meets a criteria.
Simple enough to do with a conditional format that compares my data.
HOWEVER, now I need the individual cells to stay red and remove the conditional format (because conditional formatting "confuses" them). Removing the condition causes the color to go back to black. I've tried all sorts of paste specials (formula/format) to no avail...
if it is possible to concatenate multiple cells that have different font formats? For example; cell A1 is font formatted SYMBOL and contains the letter "D", cell B1 is font formatted ARIEL and contains the word "delta". What I am trying to do is concatenate the two cells while maintaining their font formats.