= ÍNDICE ( D$2 : D$8 ; CORRESP(1 ; (B$2:B$8 <=G2 ) * ( C$2 : C$8 >=G2 ) * ( A $2 : A$8 = F2 ) ; 0 )) obs. acrescentei espaços na fórmula para ...

=SE(OU(OU(CONT.SE(C2;"*"&H$2:H$4&"*"));CONT.SE(H$2:H$4;C2));"X";"")

Experimente: =SE(OU(CONT.SE(C2;"*"&H$2:H$4&"*"));"X";"") No seu resultado faltou "X" em F9. 😉

Olá, @hudson-araujjo No arquivo anexado montei uma opção com uma tabela simplificada. Veja se pode lhe ajudar.  Projeto-V2.xlsx

Só para não deixar dúvidas, se após Enter a célula ativa muda para a célula abaixo é porque o seu Excel está ajustado para isso, e essa mudança da cél...

Experimente: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 3 Or Target.Column > 8 Then Exit Sub ActiveSheet.Unprote...

Ao abrir o seu arquivo aqui, a planilha mostra os resultados das fórmulas conforme a imagem anexa. 1. aí pra você os resultados aparecem diferentes?...

Olá, @jonataferreira. A fórmula abaixo estendida por qualquer coluna irá retornar os conteúdos de A42, A132, A222, ... Se estendida pela linha irá...

@teleguiadoO que ele está tentando fazer é aplicar o Auto Filtro com critério equivalente a "contém".No entanto, esse critério não é disponível no Exc...

Experimente: Private Sub Valor_Change() Dim c As Range, LR As Long LR = [A:A].Find("*", , xlFormulas, , xlRows, xlPrevious).Row Application.Scree...

Olá, @depoisteconto. Experimente: Sub InsereLinhas() Dim k As Long Application.ScreenUpdating = False For k = Cells(Rows.Count, 1).End(3).Row T...

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 10 Or Target.Value <> "Não" Then Exit Sub Target.Offset(, 1).Val...

@JSCOPA10 A linha de código que eu sugeri atende este critério que você colocou no primeiro post ~~~> "gostaria de saber qual a última linha pree...

@jscopa10 Range("J3:AG" & Cells(Rows.Count, "N").End(3).Row).Copy