Guru do Excel + Power BI

Bom dia.
Segue uma opção
Até
Foxtri

Boa tarde.
Segue uma opção.
Até
Foxtri

Bom dia.
Segue uma opção.
Até
Foxtri

Boa tarde.
Apresento uma opção conforme meu entendimento.
Caso não sirva,favor desconsiderar.
Até
Foxtri

Bom dia.
Não sei se entendi a sua necessidade.
Vai uma opção:
B1=SE((ESQUERDA(A1;LOCALIZAR(" ";A1)-1)="Cruzeiro")*(EXT.TEXTO(A1;LOCALIZAR(" ";A1)+1;255)="Corinthians");"FORA";"")
Até
Foxtri

Boa tarde
Veja se era isso.
Até
Foxtri

Bom dia.
Veja uma alternativa.
Até
Foxtri

Boa tarde.
Segue ajuda conforme solicitou.
Até
Foxtri

Boa tarde.
Espero ter atingido o objetivo.
Até
Foxtri

Boa noite.
Acabei enviando a mesma solução anterior.
Falha minha.
Veja se era isso.
Até
Foxtri

Bom dia.
Veja se era isso.
Até
Foxtri

Boa tarde,
Fiz uma solução para vc ter uma ideia, veja se serve.
Aplique na sua planilha.
Até
Foxtri

Bom dia
Use:
If CStr(var_Base_Dados(Lin, 1)) = Texto_Procurado Then
Até
Foxtri

Bom dia.
Veja.
Até
Foxtri

Boa tarde. Segue uma opção. Sub Comb2(ByVal r As Integer, ByVal q As Integer, _ ByVal k As Integer, ByVal s As String, v As Variant) Dim v1 As Variant, sSs As String, i As Integer If q > r - k + 1 Then Exit Sub If q = 0 Then v1 = Split(Replace(Trim(s), "'", ""), " ") sS...

Boa tarde.
Segue uma opção.
Até
Foxtri

Boa tarde
Veja se era isso.
Até
Foxtri

Olá
Item 1

Ate´
Foxtri

Bom dia.
Segue uma opção.
Até
Foxtri

Em tempo...
Outra opção:
Sub Demo2()
Range("Tabela2[#All]").Select
ActiveSheet.ShowDataForm
End Sub

Até
Foxtri