Este fórum está sendo desativado

[carlosguimaraes1801]

Olá a todos

Eu estou fazendo um trabalho no qual eu preciso extrair o texto formatado em itálico de dentro de cada célula, o qual corresponde à espécies florestais. Tentei uma função em VBA, mas não tive sucesso. Essa função funciona somente quando o texto inicia com caracteres formatados em itálico.

Código: Selecionar todos

Option Explicit
Public Function StandardName(ByRef OpCell As Range) As String
    Dim CharPos     As Long, _
        IsItalic    As Boolean, _
        TempStr     As String
        TempStr = ""
    
        For CharPos = 1 To Len(OpCell.Value)
            IsItalic = OpCell.Characters(CharPos, 1).Font.Italic
            If Not IsItalic Then Exit For
            TempStr = TempStr & Mid(OpCell, CharPos, 1)
        Next CharPos
        StandardName = Trim(TempStr)
End Function

Alguém poderia me ajudar a adaptar essa função ou talvez criar outra?
Seuge em anexo uma amostra dos dados que estou trabalhando.

Agradeço desde já a atenção de vocês.

Abs,
Carlos

[AndersonLeal]

Olá,

Agora está funcionando, só foi preciso uma pequena correção em seu código.

Abraço.