Este fórum está sendo desativado

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

Boa tarde
Para o item1.
Sub Demo()
With Worksheets("Cad_Cli")
.Range("B3").CurrentRegion.Name = "Banco_de_dados"
.ShowDataForm
End With
End Sub

Item2 ??
Tente achar a solução com 80 itens cadastrados

Até
Foxtri

Bom dia.
Não consigo entender o que vc deseja.
Manda um exemplo de como vc muda a Meta etc etc.
Entendi que a coluna C é das metas para cada tipo de exame.
Até
Foxtri