small font in bracket

[Jagat Pavasia]

hello, dear sir/ madam,

my E6 to I500 have amount and then some text in bracket.
I want font size 8 in bracket.

example picture is below :
please help me with VBA code:

help me

 

[Georgiboy]

Perhaps you could try something like the below:

Sub ChangeSize()
    Dim rng As Range, rCell As Range, v As String, f As Integer, l As Integer
    
    Set rng = Range("E6:I500").SpecialCells(xlCellTypeConstants)
    
    For Each rCell In rng
        With rCell
            v = .Value
            f = InStr(v, "(")
            l = Len(v) + 1
            .Characters(f, l - f).Font.Size = 8
        End With
    Next rCell
End Sub

 

[Georgiboy]

You might also consider changing this line:

.Characters(f, l - f).Font.Size = 8

To this:

.Characters(f, l - f).Font.Superscript = True

Or:

.Characters(f, l - f).Font.Subscript = True

 

[Jagat Pavasia]

Perhaps you could try something like the below:

Sub ChangeSize()
    Dim rng As Range, rCell As Range, v As String, f As Integer, l As Integer
   
    Set rng = Range("E6:I500").SpecialCells(xlCellTypeConstants)
   
    For Each rCell In rng
        With rCell
            v = .Value
            f = InStr(v, "(")
            l = Len(v) + 1
            .Characters(f, l - f).Font.Size = 8
        End With
    Next rCell
End Sub

did not work

 

[Georgiboy]

Going to need more detail about what you have in your cells and a better explanation than "did not work"

Did it do nothing?
Did it change the wrong part of the text?
Did it change all of the text?
Do you have numbers with no text?
etc.

Perhaps you could upload some of your data using XL2BB add-in:

XL2BB - Excel Range to BBCode

Excel 'mini-sheet' in messages - XL2BB Although experts prefer to read your description and question instead of working in your actual file to solve your problem, there are times that it is difficult to explain an issue without providing actual...

www.mrexcel.com

 

[Jagat Pavasia]

Perhaps you could try something like the below:

Sub ChangeSize()
    Dim rng As Range, rCell As Range, v As String, f As Integer, l As Integer
   
    Set rng = Range("E6:I500").SpecialCells(xlCellTypeConstants)
   
    For Each rCell In rng
        With rCell
            v = .Value
            f = InStr(v, "(")
            l = Len(v) + 1
            .Characters(f, l - f).Font.Size = 8
        End With
    Next rCell
End Sub

my Dear.........it did not work anything in my excel sheet, even i used new sheet and then try it

 

[Sanjeev1976]

Can you attach a sample of your data using XL2BB or upload your file on some platform and share the link here

 

[Fluff]

Are the values in those columns from a formula?

 

[Jagat Pavasia]

Are the values in those columns from a formula?

no, there is no formula

 

[Jagat Pavasia]

Going to need more detail about what you have in your cells and a better explanation than "did not work"

Did it do nothing?
Did it change the wrong part of the text?
Did it change all of the text?
Do you have numbers with no text?
etc.

Perhaps you could upload some of your data using XL2BB add-in:

I create new micro enable sheet, and then try it.
but it did not work anything,,,