I am using ctrl+f to find a string that may or may not be in a worksheet.
If it is found, i need to bold the row.
If it is not found, i need to go on to the next instruction in the macro.
I just don't know quite how to combine the If/Then with Find.
I am merging columns. Col B has all text in bold. Col C has all text in regular font. When I use ASAP to merge, the merged column comes out all bold. When I use a formula to merge the merged column comes out all regular. What I want is for the merged column to contain the bold text from Col B in bold, and the regular text from Col C in regular.
What I want is...
This is for service plan B: Take all data and transer to new server.
What I am getting is...
This is for service plan B:Take all data and transer to new server.
OR
This is for service plan B:Take all data and transer to new server.
I am trying to write some code that will look in an excel cell find if it contains the word that I am looking for and make it bold. I have written the following code so far
VB:
With Worksheets("Label Print").Cells(i, J)
.Characters(Start:=InStr(.Value, "Name"), Length:=Len("Name")).Font.Bold = True
End With
[COLOR=#3E3E3E][B][/B][/COLOR]
The issue is that if "Name" occurs twice (or more) in a cell it will highlight only the first.
I'm using the code snippet below to add text and apply formatting to a cell within a given sheet.
[Code] .....
I'm now trying to amend this so, the word "All" is in bold text and I've recorded the a macro, and have the following:
[Code] ....
The problem is, is that when I try to amalgamate the two, I'm unable to get this to work.
I'm working on a Excel template where 6 cells are filled with text. Now I want to put all the text in those cells into one 'result cell'. I already know how to put the cell values into strings and paste them beneath each other.
My problem is that I don't only want to copy the cell values but also the formatting, because all of the separate cells have a bold title. If I only copy the values the formatting isn't copied with it, so my question is:
How do I copy the cell formatting (bold titles) with it or how can I make a string bold?? Beneath is my code:
[Code] ....
I'm trying to figure out a macro that will add b and /b tags around bold text. Bolded text can appear multiple times within a cell. I need it to run on all cells within a sheet.
So I need it to:
1. Search for bold strings within cells
2. Identify the length of the bolded strings
3. Add b and /b at the beginning and end of those strings
4. Repeat for all active cells
The only macro I was able to work out adds tags to only the last bolded string, whereas I need the tags on several non-continuous strings.
Can Excel format text in a formula?
i.e.: =if(R25>6"This is Simple test", "This is the other part part of the test")
and then underline the word "Simple" or to have the word "other" bold.
I have the following code:
[Code] ..........
However, whenever I run the code, if there's even on word that is bold in the cell, then the entire text string in the cell turns bold. How can I stop this from happening? i want to keep the format of the text string the same, only remove and replace the items listed in the code.
Instead of bolding only the cells with an asterick in them it will bold every cell with text in it. I also would like to adapt this code to only search through column A but have not been able to figure it out.
Sub FindIt()
Dim c As Range, firstaddress As String, ws As Worksheet, FindMe As String
FindMe = "*"
For Each ws In ThisWorkbook.Worksheets
With ws.UsedRange
Set c = .Find(FindMe, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Font.bold = True
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
Next ws
End Sub
I am trying to Find a cell containing a string ("derf" in this case). Then bold the entire row and continue to loop till it hits the end of the row and column.
Here is what I have.
Sub Macro3()
Range("B65536").End(xlUp).Select 'Finds the bottom in column B and sets it to endhere
ActiveCell.Value = "endhere"
Range("A1").Select 'goto the top
Do Until ActiveCell.Value = "endhere" 'The Do Loop Starts
Rows("1:30").Select
Set rfoundcell = Selection.Find(What:="derf", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
With rfoundcell
rfoundcell.EntireRow.Font.Bold = True
End With
Loop 'Keep looping till it hits the bottom of the columns row!
End Sub
I need to create a macro that will examine a range of cells, for example D12:T12, find the cell with the largest number value in that range then set the font for that cell to bold (or red, or change the cell background color).
View 2 Replies View RelatedHow do we run a macro if the selection is not bold and If bold then do nothing.
View 3 Replies View RelatedI am trying to create a macro that if a value in a cell in column A is bold, then the value in the same row in column H is bold, then loop it to run on the rest of the worksheet.
View 9 Replies View RelatedI am having trouble getting my IF statement to test if the cell contains the text "sale" return "X" if not "Y". I need it to search through the text string in that cell and find a certain word, and if it finds that word, retrn a value. I am really having difficulty with is what symbol or function do I use for the logical test? (i.e. =, <>, MATCH, INDEX?)
View 4 Replies View RelatedI want to have a function or macro that if cells have mingled bold text, that only the bold text shall remain in the cells, and all the rest of the text must be deleted.
View 4 Replies View RelatedHere's an interesting one:
A1 contains a text string which is both bold and unbold (
B1 is blank
I need a macro which scans the cells with text and copies the BOLD portions of the text string into the adjacent cell.
Example:
A1
The sky is blue
Macro is run
B1
sky blue
I am trying to do a sort of index match thing using VBA. What I am attempting to do is to use the prefix of a long number and try to find that exact prefix in a string array, and output that string array value. So this is what I have so far as a test:
[Code].....
So I can match the text exactly so if I put PREFIXB in cell A1 in this example, i will get the msg box saying "YES", but if I make it PREFIXB1231k4j3jj1kj32cj, it will display "NO". I want to get it so that PREFIXB will be displayed in the cell that I put the formula in. So if A1 = "PREFIX1AAA100CF" and cell B1 = "=ABC(A1)", cell B1 will display "PREFIX1AAA".
Now the thing is that these prefixes can have different lengths, but will never encompass the exact prefix of another. So if I had a prefix of: PRE1AB, I won't have a prefix of PRE1A.
find the first numerical in a text string that is immediately followed by an x
so that i can extract the packing size from packing description workbook attached
DESCRIPTION
PACKING SIZE
SUNFLOWER OIL 12X1LT
12X1LT
[Code].....
i am trying to find country name in cell consisting of sting, i applied "=INDEX(K2:X2,MATCH(TRUE,INDEX(ISNUMBER(SEARCH(K2:X2,A2)),0),0))" this formula i am getting desired result but i am not able to apply ctrl+d since all cell reference are iterating.
View 8 Replies View RelatedI would like to call up a find box, then be able to search several worksheets for a string, to copy and paste the related row to a new worksheet.
I've gotten as far as being able to search for a string and get the row pasted, as long as the string is defined in my macro. Is there a way though to be able to call up a find box first though, and search for the input variable? (alternatively, I can only imagine a separate piece of code for each variable, of which there are many, and I am actually trying to save time.
The following line finds last "non-blank" row in a column. I have a column that has formulas in 10000 rows. Most of the time only first 7000 rows will have data, other cells below will have "". I need to find the last row with real data, not "".
Is there a way to add a condition or check to the following line?
1) Find strings "CA", "Ca", "ca", "California", "california", "cali", "Cali" in Column F
2) If the string is found, then record the Real value at Column D of that row in Column I
3) Continue this until there are no more strings in Column F
4) Add the values recorded in Column I and display the final value at the bottom of the list.
say I have a string that looks like this
C:Documents and Settingsme[test 2-2006.xls]Sheet1
I want to extract the DATE prior to .xls. I can get to this:
C:Documents and Settingsme[test 2-2006
It is possible that the filename would have numbers in it prior to the date.
I'm trying to figure out a way to get to the last SPACE in the string.
I would like to modify the macro below in order to find cells that do not contain */*/20*
How do I achieve this?
Code:
Sub delete_oldads()
Dim cel As Range, cfind As Range
ActiveSheet.UsedRange.Select
For Each cel In ActiveSheet.UsedRange
If cel = "" Then GoTo nextcel
Set cfind = cel.Find(what:="*/*/20*", lookat:=xlPart)
If Not cfind Is Nothing Then
cfind.Copy Cells(cfind.Row, "A")
cfind.Clear
End If
nextcel:
Next cel
End Sub
I know "Instr" find out whether a particular string exits. Can it also tell how many of that particular string appear in a text?
View 3 Replies View RelatedI understand that the function FIND(find_text, within_text, start_num) will find the first occurrence of a stated string. And by adjusting the start_num, you can skip a set number of characters before the search begins.
But, is there a way to find the Last occurrence of said string? In my case the find_text string may occur multiple times in the variable length within_text cell to be searched.
Sample: Find the last occurrence of MDU
Code:
Sample string1 - ABDJ FFU MDU WWW AEH JJF MDU JJI LLK OOI HAHA QWAS
Sample string2 - HFUR MDU HDS IGH RJR KDHF LLDE MDU KKJ MDU GGG
In the above 2 sample strings the output of the Find() function needs to be 26 & 40. Having a cell formula would be desirable, but if it can only be done by VBA that is acceptable, also.
I need to check a certain value in a string
1.VOX-20-APPL-01
2.VOX-20-APPL-01-AP01
3.VOX-20-APPL-01-AP02
4.VOX30-APL
5.VOX30-APS-AP01
In the list over I want to find nr 2 and 3. Using Instr sorting for 'ap' gives me all the list. How could I use string functions in a VBA macro.
I have the following string of text and want to take out certain parts of it. Assume the string is in cell A1.
In cell B1 I want "Company ABC DEF"
In cell C1 I want "10.50%"
In cell D1 I want "12/13/2014"
String:
Company ABC DEF (USD) 10.50% 12/13/2014
how the MID formulas work (as a bonus)? I used =MID(A1,FIND(")",A1,1)+2,45) and it returns "10.50% 12/13/2014".
So I see that that formula says start from 1 character after ")", count 2 over, and then put in the next 45 characters. How do I do an in between amount, and how do I just have it come from the LEFT but stop when it finds " ("
I have this page in html. How to find the value 1 and 4 in:
<td WIDTH="25%" ALIGN="center"><font style="font-family: Verdana,
Arial, Helvetica, sans-serif; font-size: 10px; font-weight:
bold"> Pagine 1 di 4 </font></td>
and to find the value 308: <td align="center" colspan="11" class="INFO">Totale fidi individuati:308<br></td>. after store the value founded in var_1, var_4 and var_308. NOTE: in this case the value are 1, 4 and 308 but the contet of tag the value can change because the page is dinamic, in other case find the value after:
font-weight:bold"> Pagine now is 1
font-weight:bold"> Pagine 1 di now is 4
<td align="center" colspan="11" class="INFO">Totale fidi individuati:now is 308
I want to find out the max of (Property No) which is String and Number together, according the (Location), How it is possible?
for further info see the example...