Excel Encontrar Determinada palavra numa celula e deixar em Negrito

[Neodenn]

Boa tarde,

Tenho um código que encontra a palavra ''INICIAL'' na celula "L5", caso seja verdadeiro, somente o valor INICIAL é formatado para NEGRITO.

Gostaria de um auxilio para encontrar outras palavras, como por exemplo: "CONTINUACAO", e realizar a formatação.

 

O Código já funciona corretamente.

 

<

Range("L5").Characters(WorksheetFunction.Find("INICIAL", Range("L5").Value, 1), Len("INICIAL")).Font.Bold = True
>

Desde já grato!

[Basole]

@Neodenn  pode ser desta forma? 

 

With Range("L5")
.Characters(WorksheetFunction.Find("INICIAL", .Value, 1), Len("INICIAL")).Font.Bold = True
.Characters(WorksheetFunction.Find("CONTINUACAO", .Value, 1), Len("CONTINUACAO")).Font.Bold = True
End With

 

[Neodenn]

@Basole Boa tarde,

 

Infelizmente eu ja havia tentado isso antes e dá esse erro...

 

Mas de qualquer forma, agradeço a ajuda, estou tentando de varias formas mas está difícil kkkk

[Basole]

Experimente essas alteracoes.

Substitua o codigo que postei anteriormente por este.

 

Dim sfd
Dim Tmp   As String
Dim x     As Long
Dim m     As Long
Dim y      As Long
Dim fNum  As Integer
Dim ArrFd As Variant
Dim xStr  As String
Dim T     As Variant
   T = Array("INICIAL", "CONTINUACAO")
    With [L5]
        For Each sfd In T
        If VBA.Len(sfd) < 1 Then Exit Sub
          ArrFd = VBA.Split(sfd, ",")
            For xFNum = 0 To UBound(ArrFd)
            xStr = ArrFd(xFNum)
            y = VBA.Len(xStr)
            m = UBound(VBA.Split(.Value, xStr))
            If m > 0 Then
            Tmp = ""
            For x = 0 To m - 1
            Tmp = Tmp & VBA.Split(.Value, xStr)(x)
            .Characters(VBA.Len(Tmp) + 1, Length:=y).Font.Bold = True
            Next
            End If
            Next xFNum
        Next
    End With

 

Caso persista o erro poste a planilha ou um exmeplo bem proximo do original

 

[Neodenn]

@Basole Cara deu certo!!!!!

Muitíssimo obrigado, tentei de varias formas e não consegui, não tinha pensado em usar uma array para percorrer o texto. Agradeço muito os seus esforços para tentar solucionar o problema, e até mesmo enriqueceu meu conhecimento. Parabéns, muito bom mesmo!