Concatenate Cells In Columns & Change Part Of Font
Apr 12, 2008
I need for it do perform the same action on multiple rows/ cells of data. What adjustment to the code needs to be performed to do so?
Sub fconcat()
Range("C1").Value = Range("A1").Value & Range("B1").Value
For i = 1 To Range("A1").Characters.Count
Range("C1").Characters(i, 1).Font.Name = Range("A1").Characters(i, 1).Font.Name
Next
For i = 1 To Range("B1").Characters.Count
Range("C1").Characters(Range("A1").Characters.Count + i, 1).Font.Name = Range("B1").Characters(i, 1).Font.Name
Next
End Sub
I am looking for the best way to change the font of cells in a Worksheet that contain a formula. I have used Go To-Special-Formulas but have one slight problem with this method. It highlights all cells that contain an "=" sign. Some cells may be linked (ie cell A2 may say =cell A1). How would I change the font only for cells with a Function such as Sum or Vlookup and not for cells that simply link to another cell?
I'm using some basic code below in an on Workbook Open event to format cells with a value less then 2 and less than 1 with a particular color.
The code works, but it really slows my worksheet down when opening. Is there better way to write this?
Code:
Dim myRange As Range Dim cell As Range Set myRange = Range("V6:V50000") For Each cell In myRange If cell.Value < 2 Then cell.Font.ColorIndex = 5 If cell.Value < 1 Then cell.Font.ColorIndex = 3 Next
I am looking to have the cells font color in each row match the color of the font in column D that will change depending on the info of the drop down box.
Sheet 2 is the one I am looking to work with as a test.
I have attached an example file.. Basically I want the text in a range to change to red if one cell="Description".
Also, I want a cell's text to turn blue if it's corresponding data in the row says "Click on Title to Follow Link"
The example file explains it a lot better..
Thanks for the help.. Sorry if this may seem like a duplicate post but I was not able to get any of the examples I searched for to work that others have posted.. Also, maybe conditional formatting would be an option here but I could not get it to work as it will only meet the first condition that comes across thats true...
I have a marco that works perfects to Concatenate (join) all of the cells in Column A. However, I want to seperately join all of the cells in each column. So I wanted to the Concatenate of Column B to go in B1, Column C to go in C1, etc (or until there is no data in a column). I think there is a way to change this into a loop, but I don't know how. Below is the macro I have now.
Sub ConcatenateAll() Dim x As String, rng As Range, cel As Range With ActiveSheet Set rng = .Range("A2:A300") For Each cel In rng x = x & cel.Value Next .Range("A1").Value = x End With
I 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.
I have two conditions setup in Options>View - Zero Values.", "style="background: #FFFFFF;padding: 2px;font-size: 10px;width: 550px;"");' onmouseout='GAL_hidepopup();'>formatting.htm" target="_blank">conditional formatting. The first is setup for alternate row coloring with this formula inside Conditional Formatting:
Formula is = MOD(ROW(),2)
My Second Condition is
Cell Value is between $P$10 and $Q$10. This sets the font bold and a different color. The two cell values are two dates. I want to change the cells font color and bolding as long as the value is within that date range. It works fine, but for cells that are on the row that is colored the second condition doesn't apply for some reason.
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.
VBA code to use input box result in a Concatenate function.
Sub test() Dim DistName DistName = Application.InputBox("Enter District Name") ActiveCell.FormulaR1C1 = "=CONCATENATE(R[-2]C[1],"" Diabetes Dist"")" End Sub
I want to replace R[-2]C[1] with the result from the input box.
Desired results obtained via IF =IF(B2>0,A2&" , ",A2)&IF(C2>0,B2&" , ",B2)&IF(D2>0,C2&" , ",C2)&IF(D2>0,D2,"")
one , two , three , four one , two , three one , two one
Is there any smarter, shorter formula via Concatenate and Substitute or other formulas ?
My closest match, but not good enaugh is =SUBSTITUTE(CONCATENATE(A2&", "&B2&", "&C2&", "&D2), ", , ", " ") [ returna 2 commad ] one, two, three, four one, two, three, one, two one ,
i have a string in a cell, that would say "Your results are -10% for the week". is there any way to change the font to red, for the number, including the minus sign preceeding it, and the percent sign following it. all are in one column, about a thousand rows. the rest can stay black.
try explaning this again....Also conditional formatting will not work... Looking for a formula in excel to do this--- I have a lottery numbers system in the 3 digit and 4 digit numbers...In row A we have the 3 digit that were drawn about 3000 ---3 digit numbers and in row C we have also 3000 numbers for the 4 digit ....All we need to do is Highlight All the even numbers and make them RED font---in the 3 and 4 digit rows... Is there a way to do that????? A--row-----C--row 123---------4429--make the 2red in the 3 digit row and 442red in the 4 digit row. 033---------5579--nothing in this row 229---------2200---etc....
I am wanting to be able to find the last row of data (range changes on a monthly basis) and change the colour of the font to white for the entire row. I don't want to delete the row as contains totals but want the font not visable.
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.
I have a coworker trying to create a dropdown list and is using wingdings for the checkmark, x, and other symbols for filling out for. Everything works great except when you click in the field the drop down box doesnt show the wingdings font but the corresponding arial font. Is there a way to change the dropdown box to wingdings because currently the dropdown box shows various 'u's with different grammatical stresses.
I'm trying to use Excel to keep team standings for a baseball board game. I had no problem calculating wining percentage. Finally figured out how to calculate 'games behind.' Now I'm wondering if there is a way to change the font color of a team name based on their wining pct?
A typical row contains: A2(Team Name), B2 (Wins), C2 (Losses), D2 (Pct (B2/(B2+C2)), E2 (GB). Is there a way to use the IF function to return the 'Team Name' in green if D2>.500, 'Team Name' in red if D2<.500, and 'Team Name' in black if D2=.500 ??
I am trying to figure out what the formula would be to change the font color if the entered number is less than the quota.
I'm making a spreadsheet for work that each of the reps will punch in their daily numbers, and, for example, if there quota was 70 and they are <70 than the font will turn red, and if greater or equal to 70 it will turn green.
Is there anyway to change just the color of the first result? The "2" to red?
I cannot do it in the cell because of the 2 results being combined into 1 cell so I'm wondering if the formula can be modified to change the color of the 1st result.
macro that will change the cell color based on text? I have a list of titles in column B. Everytime the word 'Car' is found in this column, I would like to change the font color in columns C-G to the color white within the same row.
This appears to be so simple, I've searched the forums and have found almost the right VB code but not quite. I have a 3000 row spreadsheet with various columns. Column M can either be PASS, FAIL, REJECTED, IN PROGRESS or NOT ASSESSED. I need the rows (A to M inclusive) to change colour and text colour dependent on this condition.
I almost had an answer with Select.Case but I couldn't get the formula to work with text, only numbers.
I have a user that was recently upgraded to Excel 2003. He has a problem when changing font color in a cell. Anytime he changes the color of the font to red and then clicks another cell the color reverts back to Black. Now when he clicks on the cell it displays the color red in the formula bar but no in the cell. it also displays the correct color in hte print preview screen. this happens no matter what Excel file he is wokring in.
