VBA: Macro to UPPERCASE selected cells that have bolded objects/words

[SimonTheWicked]

Hi guys,

This is my first post in MrExcel.com

I've been looking for a solution in Excel 2016 to uppercase selected cells (which is easy) but I only need words which are bolded to uppercase, not all of them.

Any ideas on how I can make such a macro? Help would be greatly appreciated.

Regards,
Simon

 

[shknbk2]

This works with the activecell. Changing to work with a range of cells is easy.

Sub UpperCaseBold()
    Dim i As Integer
    For i = 1 To Len(ActiveCell.Value)
        If ActiveCell.Characters(i, 1).Font.Bold Then
            ActiveCell.Characters(i, 1).Text = UCase(ActiveCell.Characters(i, 1).Text)
        End If
    Next
End Sub

This could take a long time to run on a large group of cells since it is working character by character.

 

[SimonTheWicked]

This works with the activecell. Changing to work with a range of cells is easy.

Sub UpperCaseBold()
    Dim i As Integer
    For i = 1 To Len(ActiveCell.Value)
        If ActiveCell.Characters(i, 1).Font.Bold Then
            ActiveCell.Characters(i, 1).Text = UCase(ActiveCell.Characters(i, 1).Text)
        End If
    Next
End Sub

This could take a long time to run on a large group of cells since it is working character by character.

Works like a charm! Only works with one cell at a time, but I think that will be enough. I can hotkey the macro.

 

[Akuini]

Works like a charm! Only works with one cell at a time, but I think that will be enough. I can hotkey the macro.

I modified shknbk2 code to make it work in selection, try this:

Sub UpperCaseBold()
    Dim c As Range, i As Long
    Application.ScreenUpdating = False
    For Each c In Selection
        For i = 1 To Len(c)
            If c.Characters(i, 1).Font.Bold Then
                c.Characters(i, 1).Text = UCase(c.Characters(i, 1).Text)
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

 

[SimonTheWicked]

[SOLVED] VBA: Macro to UPPERCASE selected cells that have bolded objects/words

I modified shknbk2 code to make it work in selection, try this:

Sub UpperCaseBold()
    Dim c As Range, i As Long
    Application.ScreenUpdating = False
    For Each c In Selection
        For i = 1 To Len(c)
            If c.Characters(i, 1).Font.Bold Then
                c.Characters(i, 1).Text = UCase(c.Characters(i, 1).Text)
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub

Woah, even better. Thank you, Akuini

Thank you guys, this is EXACTLY what I've been looking for.

 

[Akuini]

Re: [SOLVED] VBA: Macro to UPPERCASE selected cells that have bolded objects/words

You're welcome, glad to help, & thanks for the feedback.