Format A String

[Ark68]

I have this line of code which populates a cell with a text string

.Range("B" & t) = ptyp & pt

Is it possible, and if so how, to format the result so that ptyp is bold while pt remains normal? eg ptype = Change and pt >8:00P so that the finished result in B# is 'Change >8:00P'

 

[Rick Rothstein]

I have this line of code which populates a cell with a text string

.Range("B" & t) = ptyp & pt

Is it possible, and if so how, to format the result so that ptyp is bold while pt remains normal? eg ptype = Change and pt >8:00P so that the finished result in B# is 'Change >8:00P'

Try this as the next code line...

.Range("B" & t).Characters(1, Len(ptyp)).Font.Bold = True

Note: I used ptyp because you repeated that spelling a couple of times, but in your description where you said you assigned "Change" to it, you spelled it ptype (with an 'e' at the end), so you will need to verify the spelling of the variable name.

 

[ZAX]

I hope this is what you are looking for.

.Range("B" & t) = ptyp & pt
.Range("B" & t).Characters(1, Len(ptyp)).Font.Bold = True

ZAX

 

[ZAX]

Sorry For Posting After You Mister But The Forum Didn't Show Your Post Right Away.

 

[Ark68]

Thanks folks for your help ... works beautifully. (and yes Rick ... I missed that one bad reference in my message ... you were correct.)

Anyway, could this code have any lingering effects?

Here is the code that that line is in:

    For t = 13 To 22     
                   Dim gt As String
                    Dim pt As String
                    Dim ptyp As String
                
                    gt = Application.VLookup(.Range("A" & t), rcore, 23, False)
                    pt = Application.VLookup(.Range("A" & t), rcore, 30, False)
                    ptyp = Application.VLookup(.Range("A" & t), rcore, 26, False)
                
                    If .Range("H" & t) = pristaff Then 'groom time
                        .Range("B" & t) = gt
                    ElseIf .Range("I" & t) = pristaff Then
                        If ptyp = "Initial" Then
                            .Range("B" & t) = pt
                        Else
                            .Range("B" & t) = ptyp & pt
                            .Range("B" & t).Characters(1, Len(ptyp)).Font.Bold = True
                        End If
                    End If
                    .Range("B" & t).Font.Size = 6
            next t

In my testing, cells (in columb B) after the one in which the bold format has been applied are also bolded. So values where ptyp = "initial" are bolded when they shouldn't be when they follow a B# in which there has been bolding applied.

 

[Rick Rothstein]

    For t = 13 To 22     
                   Dim gt As String
                    Dim pt As String
                    Dim ptyp As String
                
                    gt = Application.VLookup(.Range("A" & t), rcore, 23, False)
                    pt = Application.VLookup(.Range("A" & t), rcore, 30, False)
                    ptyp = Application.VLookup(.Range("A" & t), rcore, 26, False)

                    Range("B" & t).Characters.Font.Bold = False

                    If .Range("H" & t) = pristaff Then 'groom time
                        .Range("B" & t) = gt
                    ElseIf .Range("I" & t) = pristaff Then
                        If ptyp = "Initial" Then
                            .Range("B" & t) = pt
                        Else
                            .Range("B" & t) = ptyp & pt
                            .Range("B" & t).Characters(1, Len(ptyp)).Font.Bold = True
                        End If
                    End If
                    .Range("B" & t).Font.Size = 6
            next t

In my testing, cells (in columb B) after the one in which the bold format has been applied are also bolded. So values where ptyp = "initial" are bolded when they shouldn't be when they follow a B# in which there has been bolding applied.

Try adding the line of code I show in red above and see if that solves your problem.

 

[Ark68]

Seems to have done the trick Rick. Thank you.