How To Run Macro If Selection Is Not Bold And If Bold Then Do Nothing

Aug 5, 2012

How do we run a macro if the selection is not bold and If bold then do nothing.

View 3 Replies


ADVERTISEMENT

Merging Cols Changes Bold To Non-bold Or Non-bold To Bold

Jun 8, 2008

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.

View 9 Replies View Related

Make 1 Cell Bold If Another 1 Is Bold

Oct 2, 2007

I 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 Related

VBA Bold Selection Code

Oct 9, 2008

i'm using the following code to make a selection bold or not (basically as a replacement for the bold button). It works fine unless you select a group of cells...some of which are already bold and some of which are not...in this case it doesn't work....here is the code

View 2 Replies View Related

Delete All Text Which Is Not 'bold' In Cells With 'mingled Bold' Text

Jan 23, 2010

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.

View 4 Replies View Related

Bold And Unbold Text Macro

Apr 25, 2008

i'm trying to write a macro that does the same thing as the bold button. Click once and the text is bold, click again and it un-bolds.

View 14 Replies View Related

VBA Macro To Bold 1st Words In Range

Oct 26, 2008

Here is my dataset... with ( cell references):

(Cell A1): "John: Apples, Oranges, Grapes"
(Cell A2): "Sally: Oranges, Peaches, Grapes"
(Cell A3): "Tom: Apples, Peaches"
(Cell A4): "Bailey: Apples, Grapes"

How do I get the text above formatted to bold the individual's names? Here is my desired result:

(Cell A1): "John: Apples, Oranges, Grapes"
(Cell A2): "Sally: Oranges, Peaches, Grapes"
(Cell A3): "Tom: Apples, Peaches"
(Cell A4): "Bailey: Apples, Grapes"

how to do this with visual basic ( VB) code. I need VB instructions to be detailed.

View 9 Replies View Related

Macro Seems To Make Entire Text String In Cells Bold

Aug 1, 2014

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.

View 4 Replies View Related

Via Macro, Search Item In Cell And Bold/Color Row If Found

Dec 7, 2006

Is it possible to search a worksheet that may contain different number of rows (from day to day) and for every instance of a word like "HOLD" is found in column "C" to Color that intire Row Red and also Bold the Row as well?

View 9 Replies View Related

Set Last Row To Bold?

Sep 1, 2013

I am trying to use VBA code to set the last row to bold. I have been able to set the entire row to bold using:

Code:
EntireRow.Font.Bold = True

but I would like for the code to be more dynamic. I.E. Only making cells on the last row Bold If they contain values. I have been able to do something similar in the past with interior color on the header row but, am looking for the same type of thing for the last row in this instance. The code I was able to use to turn the interior color of cells Green looked like this:

Code:
Range("A1", Cells(1, Columns.Count).End(xlToRight)).SpecialCells(xlCellTypeConstants).Interior.ColorIndex = 3

View 3 Replies View Related

Sort By Bold

May 21, 2007

I need to sort by cells that are bold. Does anybody know a way I can do this?

View 10 Replies View Related

Last Day Of Month Bold

Sep 6, 2007

Col. A are dates,I would like to format Cells so the last day of the month is bold useing conditional fomating

View 9 Replies View Related

Concatenate And Bold

Nov 10, 2008

I have a simple concatenate in Excel...

=CONCATENATE(A1, ", ", A2)

Which produces:

This is, my text

Now, I want 'my text' i.e. the contents of A2 to be in bold.

I've played with the TEXT() function before, as per this page:
[url]

To get Excel to play nicely with date formats and stuff, however, my research has come to a dead end with Bold/Italic - with everyone suggesting that VBA is the only solution.

As I don't feel overly comfortable using VBA is there any other solution? (If not, is this a VBA 101 task or an advanced task?)

View 9 Replies View Related

IF (A1 Font = Bold, A1+A2)

Dec 2, 2008

how to create an if statement based on font properties.

I did a couple searches on "conditional formatting" but didn't find anything, and it seems like the only way would be through a macro, am i correct? I'd much rather be able to do this on a formula sheet if possible.

View 9 Replies View Related

VBA Code To Bold Row Which Contains SUM

Jul 27, 2009

I'm new to VBA and needed help with:
I need to 'bold' the row which contains sum, the problem is that the location of the row varies depending on how long/short the report is....
Here is the code I used to bold a particular row:

Range("A14").EntireRow.Font.Bold = True

But instead of A14, i need it to be a row of no more than 5 columns, one of which contains the word 'SUM'.

View 9 Replies View Related

Bold Cell To Right If Cell Bold

Nov 28, 2006

i am trying to write a small piece of vba

basically if the cell in column "0" is bold then bold colum "o"
and "m" this must loop to last data row of colum "O"

View 9 Replies View Related

Find And Bold

Jun 21, 2007

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

View 5 Replies View Related

Count Only Bold Entries

Apr 21, 2007

is there any way to get a formula to count only the entries that are in bold abd ignore all others

View 9 Replies View Related

Bold Row If Column A Equal To Certain Value?

Mar 11, 2013

The following code doesn't seem to work for me except when I use an actual number.

Set MR = Range("A1:A100")
For Each cell In MR
If cell.Value = "*3L*" Then cell.EntireRow.Font.Bold = True
Next

I am attempting to bold the entire row if the macro finds text that begins with 3L in a tab. If I change the code to look for a number, then it works fine.

Also - Is there a way to make this run on specified tabs? For instance, if I have four tabs:

January
February
March
Q1

Say I only want it to run on the January, March, and Q1 tab, how would I go about doing that?

View 2 Replies View Related

Counting Bold Cells

Apr 10, 2007

in the Score column I want a 3 for the SnAkEs team and 7 for the dj2 team. How do I total up the bold cells?

View 9 Replies View Related

Find A String And Bold The Row

Oct 15, 2008

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.

View 9 Replies View Related

Checkbox, Bold, Toggle

Jul 2, 2005

I'm having a problem making my font bold when I click on my checkbox and when I uncheck it I want the font to become unbold. I can make it bold when its checked but am not able to make it return to normal when i uncheck it..

View 9 Replies View Related

Determine If A Cell Is Bold Or Not

Jun 27, 2006

I'm trying to create a VBA module that will update data. However, I need it to skip any updates to data that has been set by the user. For simplicity, the user changes will be bold. I've found the info on the site for a function for counting cells in a range that are bold. But really just need to know how to get format of the cell.

View 4 Replies View Related

Whole Row Of Active Cell Should Be Bold

Apr 13, 2007

The text of the active cell's row should be displayed BOLD. In other words, My cursor is on row 8, then this whole row should be bold. Is this possible ?

View 5 Replies View Related

Bold Unbold Output

Apr 16, 2007

im trying to write a function and i want output to be bold when integers are outputed i did it like

Range("years").Cells(j).Font.Bold =periods

which is fine but i want to clear cells each time program is run so i used

range("x").clearcontents

, but this only deletes the values, so my question is how to delete boldness as well? i tried using IF then false function but it didnt do the job. This is what i tried to use

For j = i To def_frq * i

periods = j / def_frq
If periods = i Then Range("years").Cells(j).Font.Bold = periods Else Range("years").Cells(j) = periods

If periods <> i And Range("years").Cells(j).Font.Bold = periods = True Then Range("years").Cells(j).Font.unbold = periods Else Range("years").Cells(j) = periods

Basically I use it to split year into however many periods so it will give me fractions of the year ,but i want to select in bold when it is the whole year.

View 9 Replies View Related

Sumif With Bold Condition

Jun 1, 2007

As a starter in VBA i have a lot of doubts... one of them is, how can i sum in a column the cells that are bold? i've thought that sumif was the trick, but i don't find the way to be able to adapt code.

View 2 Replies View Related

Paste Values In Bold

Oct 4, 2007

Need line of code that can be used or modified such that one copy cell values and have them pasted in Bold?

View 3 Replies View Related

Compare & Bold Matches

Feb 16, 2008

2 worksheets,
Sheet 1 columns A&B are the same as sheet 2 A&B.

Sheet 1 is my master list (customer name = column A and carrier name = column B)

Sheet 2 (customer name = column A and carrier name = column B)

Sheet 2 is where data gets dumped so I need to change font to bold when I click a check box on sheet 1 (master list) on Column C

Check box is on column C and column C will have more then one check box.

When I click check box on C I need date to populate on column D
(But when I re-open my workbook I don't want dates to change on me using the system date)

My objective is to select customer carriers on my master list sheet 1 and update date and change font to bold on sheet 2 so I can avoid or skip that customer carrier.

Hope this is not too much for my first post.

View 3 Replies View Related

Bold Repeated String In Cell?

Aug 29, 2012

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.

View 1 Replies View Related

How To Change The Last 16 Characters Of A Cell To Bold

Sep 12, 2013

I want to change the last 16 characters of a cell to bold and font color.

I have this code but doesn't work. make it a working one.

VB:

Private Sub CommandButton1_Click()
Dim ctrRight As String
ctrRight = Right(Sheets("Planning").Range("B35").Value, 16)
MsgBox ctrRight
Right(Sheets("Planning").Range("B35").Value, 16).Font.Color = RGB(51, 153, 102)
Sheets("Planning").Range("B35").Font.Bold = True
End Sub

View 4 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved