Every week I have a worksheet compiled with large range of data, being input after many meetings done. The action-owner Names in open/close brackets are among the long text input in one Column (there are not more than 50 rows of data).
My problem is that in the Column every time I have to manually Bold-face the owner names in the cells that have their names, pressing F2 and Bold. Examples: ...(Wilfred)... or ...(Jacky/Joseph)... Can someone please help me with a code, say I can list out a fixed list of selected text and such code will be able to have these selected text (which is names in this case) in the cells bold-faced.
I'm trying to use the below vba code that was provided by another member. The code show work to bold any text that is found matching the text string provided.
Problem I'm having is that I get a 'Type mismatch' error when the code tries to run, as below:
Public Function Colorandbold() 'USE-COLOR AND BOLD TEXT STRINGS WITHIN TEXT EXCEL VBA 'BROUGHT TO YOU BY WWW.PROGRAMMINGLIBRARY.COM 'CREATED BY MARK SLOBODA
I 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.
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.
Attached is a sample sheet with nine columns. Column D includes a name, but in many cases it is preceeded by: 'TO', 'BY', or 'OF' and a space which I need to remove (if they exist), leaving just the name. Please note that sometimes just the name exists so nothing needs to be done. I believe that in a jet sql querie I can use something like:
I’ve got a little problem with the text to column function.
I’ve got in column A critarias and if it is for example L it should run a surtain text to column code.
With Range("A1:A65536") . AutoFilter Field:=1, Criteria1:="L" Range("B1").Select Selection.End(xlDown).Select Range(Selection, Selection.End(xlDown)).TextToColumnS Destination:=Range("B2"), DataType:=xlFixedWidth, FieldInfo:= Array(Array(0, 1), Array(21, 1), Array(60, 1)) End With
With the Auto Filter some rows between 2 until 7624 are shown. But unfortunately the text to column code is used for every row between 2 and 7624. Does anyone know how to avoid it?
Anyways, the issue is that when I have some cells selected then use the text-to-columns, it works fine.. but when I select an entire column, it "acts a fool"...
I made this video to show the effect on my computer.
I'm having trouble with the With statement near the bottom for the active sheet, effectively the row search. (Would be great if the font can be changed to red as well as text "Withdrawn").
Option Explicit Private Sub CommandButton1_Click()
Dim search As String 'stringy Dim ws As Worksheet 'worksheety Dim Answer As String 'answery Dim r As Range 'rangey search = Range("b7").Text 'texty Dim cell As Range cell = Range("4:10")
I have a worksheet on which the data is already grouped. At the top of each group is a row that contains only the group name. Since the rest of that row is blank, I want to use a blank cell on that row as a reference, then copy the group name to a newly created column, then fill that column down to the next group.
The goal is to create a column that contains the group name, rather than just having the group name as a " header" at the top of each group.
What is the VBA code for inserting text in all column B-cells of multiple selected rows?
I am creating a worksheet with a table containing various data related to orders of various materials (this is more or less data gathering from an older, paper-based 'system'). This table spans, columnwise, from A to D and expands downwards as more orders are added. The information in each column is: A=order number, B=type of material and C=material specs. and D=additional comments.
I've set it up so that the only thing I really have to do is to insert the type of material in the cells of column B, and the rest will sort itself out. Instead of having to insert a new row for each new entry and manually typing in the name of the material (these entries are often done in the midst of already existing data), I created several similar, macroed buttons for the different types of materials we use. These macros work by selecting the row of the currently active cell, inserting a new row and then add the name of the material in the column B-cell of this new row. What I am having trouble doing though, is to get the text-entry to work for a selection of multiple cells.
As an example, lets say that I would like to add 5 orders of "Grade A Steel" in the middle of the table - in the row above row 8. With the macro I currently have I can select cell B5, click the macro, and a new row will be inserted with "Grade A Steel" in column B of this new row. This action could be performed 5 times over, but would be easier if I could just mark a range of 5 cells, say B8:B12, click the macro and get the text/data inserted the column B-cells of all 5 of the new rows. So far I've been able to create a macro that inserts multiple new rows, but I've only been successful in filling the column B-cell in the first row leaving the 4 below empty.
I am using this code to hide or unhide rows of text on another sheet:
VB: Sub ProcessSheet1ChangeOnCellJ7(ByVal Target As Range)
Dim sAddress As String Dim sValue As String
'Get the address of the cell that changed without '$' signs sAddress = Target.Address(False, False)
[Code]....
When the "Not Pursuing" list box option is selected (in cell "J7" or "J8" in Sheet 1) I need to add (or over-write) "Not Pursuing" to the range of cells in column "B" (in the "Tasks" sheet), but only for that particular Goal, meaning a limited range of cells in column "B". If the "Pursuing - Show All Tasks" option is selected for a Goal then these same cells need to be blank so that the appropriate person can enter their name into the cell.
The purpose for adding "Not Pursuing" automatically to these yellow highlighted cells is that it will facilitate filtering of tasks by individual in the "Tasks" sheet..
Again I have tried several times to upload a sample file and am unable to, which I know makes it more difficult to solve. (Is there some common mistake people make? I know it's an allowed format and is very small in file size....)
Code solution can be entered directly beneath:
VB: If Target.Value = "Not Pursuing" Then ActiveWorkbook.Sheets("Tasks").Rows("29:29").EntireRow.Hidden = False ActiveWorkbook.Sheets("Tasks").Rows("30:48").EntireRow.Hidden = True
I need to split each line as follows : Each title (in bold and on a new line) and the text who follows should be placed in a new row, copying the date in each new row created.
I am trying to bold specific text in a cell. I have found some language that will do this trick to a point. In addition to the word "Foxwood" I would like to bold 9 other specific words in 5 different sheets in this workbook. Is there a way to do this without the cumbersome task of repeating this language 5 times for the different sheets and 9 times for the additional words?
Dim startPos As Integer Dim totalLen As Integer Dim searchText As String searchText = "Foxwood" For Each cl In Sheets("Week1").Range("c3:c100")
I have a sheet full of names, addresses and phone numbers in one cell like this
Albert Young 16 teststreer 12C..................7888-6338
The name Albert Young is bold. The thing is I would like to split the cell putting the names in another colomn. Then it would be ideal to split the addresses and phone numbers as well. But I have no idea how to split any of these. I scanned this from a phone book, the dots are different on each row.
i have a worksheet which has a price list for parts, about 2500 rows. in the Column C i have a retail price and in Column D have -5% of the C. i need to add Column E -10% of CERTAIN items, the ones in BOLD Only, of Column D. and change the color of that cell, is there a easy way to do this. i have attached screen shot what i mean.
I have a spreadsheet with a pivot table in it. Column "G" has all of the data in it I need to abbreviate, problem is, I only want the values in BOLD face, and there are 3-5 rows seperating each boldfaced item. I would have to manually copy-paste each bold value into a new, 'clean' column ( column "I", or in a new sheet/workbook, it doesn't matter), and lather-rinse-repeat for the next 700+ rows. It sucks. No, it really does. I stumbled upon this website which is seemingly the utopia for excel macro and programming problems, so is there anyone out there that might take the time to walk me through it...?
I am creating a sheet with the cell information coming from different cells. I want to bold and/or underline a part of the cell to add clarity.
For e.g. Cell A1 = "Trans X" (Name of the transaction); Cell B1 = "System Y" (System where the transaction exists) Cell C1 = "Type Z" (Type of transaction)
I want to create a cell which has Newsheet.Cell (x,y) = "Name: Trans X System: System Y Type: Type Z"
I created the String by reading and concatenating the values, but I am not sure how to add the formatting to a part of the string.
I'm not too sure if this will be really easy difficult or really difficult but I want to write some code that compares the value of two strings, and any characters that arent in string 2 will be return formatted in bold. For example, if String1 was "The Quick Brown Fox" and String2 was "The Quick Yellow Fox jumped over the lazy dog", String2 would then be returned as "The Quick Yellow Fox jumped over the lazy dog".
I've got a messagebox in my VBA code and I would like to bold the title of the filename that I've stored in a variable. My message box code (even though you probably don't need to see it) is as follows:
MsgBox ("There has been error. Please check the file - " & strFile & " and make sure there are no #REF errors." & vbCrLf _ & "If there are, correct the errors, save the workbook and regenerate the report. If the error still persists, reboot your machine and try again.")
Is this possible, and if so, how would I go about bolding the strFile variable?
I have a spreadsheet with rows of cells which are either blank or have text in them.
Is there an easy way to write a formula which will make the cells which have text in them bold and make the cell colour grey. But if the cell is blank keep the cell white.