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]

Are you running the Macro or do you want it to work each time you type something?

As it is now, if you put your cursor inside the code you have pictured and then press the green play button at the top (in the ribbon) it should change the font.
You can also assign the code to a button within the worksheet you are working on.

 

[Jagat Pavasia]

Are you running the Macro or do you want it to work each time you type something?

As it is now, if you put your cursor inside the code you have pictured and then press the green play button at the top (in the ribbon) it should change the font.
You can also assign the code to a button within the worksheet you are working on.

I don't want to assign macro to each time. I want automatically.


I want that if I type " 225.60 (D-45, D-56, ND-24) " then it should be automatically convert bracket font to size 8 like " 225.60 (D-45, D-56, ND-24) ".
In short, I want small size of font in the bracket.
Before bracket the font size is 12 and inside bracket it should be size 8.

 

[Peter_SSs]

Try this Worksheet_Change event code. To implement ..
1. Right click the sheet name tab and choose "View Code".
2. Copy and Paste the code below into the main right hand pane that opens at step 1.
3. Close the Visual Basic window & test.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Changed As Range, c As Range
  Dim p As Long
  
  Set Changed = Intersect(Target, Range("E6:I500"))
  If Not Changed Is Nothing Then
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    For Each c In Changed
      c.Font.Size = 12
      p = InStr(c.Value, "(")
      If p > 0 Then c.Characters(p, Len(c.Value)).Font.Size = 8
    Next c
    Application.EnableEvents = True
    Application.ScreenUpdating = True
  End If
End Sub

 

[Jagat Pavasia]

Try this Worksheet_Change event code. To implement ..
1. Right click the sheet name tab and choose "View Code".
2. Copy and Paste the code below into the main right hand pane that opens at step 1.
3. Close the Visual Basic window & test.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Changed As Range, c As Range
  Dim p As Long
 
  Set Changed = Intersect(Target, Range("E6:I500"))
  If Not Changed Is Nothing Then
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    For Each c In Changed
      c.Font.Size = 12
      p = InStr(c.Value, "(")
      If p > 0 Then c.Characters(p, Len(c.Value)).Font.Size = 8
    Next c
    Application.EnableEvents = True
    Application.ScreenUpdating = True
  End If
End Sub

THANK YOU MY DEAR.....................WORKING AS I WANT......


THANK YOU THANK YOU THANK YOU THANK YOU THANK YOU THANK YOU THANK YOU THANK YOU

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.

For the future though, please note #14 of the Forum Rules and make your posts in the standard font size and without being all bold and all caps.