Este fórum está sendo desativado

Possível solução com o uso das funções CONT.VALORES e MOD.

Se não conseguir, disponibilize uma amostra do seu arquivo Excel com algumas linhas pintadas manualmente e com as necessárias explicações em cada caso colocadas na própria planilha.

almeida61 escreveu: ↑05 Jan 2024 às 13:35 Exatamente isso, Osvaldo! Te agradeço imensamente pelo auxilio.
Um ano maravilhoso p todos!

Olá, almeida61.

Veja se aproveita:

=SE(E(B5="";C5="");"";SE(B5="";"I";"A"))

ou

=SE(C5="";"";SE(B5="";"I";"A"))

Jeczei, você poderia revelar pra nós qual o erro encontrado?

Vai servir para o meu aprendizado e talvez também sirva para outros usuários que venham enfrentar algo parecido.

Aqui funcionou exatamente como esperado.

"Não havia comentado que a referência ao intervalo está em outra planilha (exemplo abaixo) , neste caso o resultado não está ok" A referência a intervalo em outra planilha não provoca erro no resultado do comando que passei. Explique o que você quer dizer com "o resultado não está ok&...

Olá, Jeczei.

Substitua ~~~> FormulaLocal
por ~~~Formula2Local

Abaixo o resultado de pesquisa no Google https://www.google.com.br/search?q=vba+inputbox+para+pedir+quais+linhas+ser%C3%A3o+deletadas&sca_esv=594924063&sxsrf=AM9HkKnS_VUsQTYreIm98RQBzI7Hv1Ej1g%3A1704127256656&source=hp&ei=GOuSZdrJJZnM1sQP0NaQgA4&iflsig=AO6bgOgAAAAAZZL5KIVdo55Lkuw...

Experimente: Sub PintaCélulas() With Sheets("Planilha1") .AutoFilterMode = False .Range("A1:D" & .Cells(Rows.Count, 2).End(3).Row).AutoFilter 2, "<>*" & Sheets("Keyword").[B2] & "*", Operator:=xlAnd If .AutoFilter.Range.Columns(2).Special...

Olá, @Pegorini.

As células B11 e B12 também não contêm as letras SMX, no entanto você não pintou aquelas células.

Você pode explicar ?

Olá, @eloirfabio.

Veja se ajuda.

Private Sub btnImprimir_Click()
If MultiPage1.SelectedItem.Name = "Page1" Then
Sheets("ADVERTÊNCIA").PrintOut
Else
Sheets("SUSPENSÃO").PrintOut
End If
End Sub

=-PROC(1;-DIREITA(A1;{1\2\3\4\5\6\7\8\9\10}))

Salve, Jorge. Veja se atende. Considerei que D:E terão os cabeçalhos. Sub AgrupaDatas() Dim k As Long, m As Long For k = 4 To Cells(Rows.Count, 1).End(3).Row Do While Cells(k + m, 2) + 1 = Cells(k + m + 1, 1) m = m + 1 Loop Cells(Rows.Count, 4).End(3)(2) = Cells(k, 1) Cells(Rows.Count, 5).End(3)(2) ...

=SOMASE(C2:C8;"*casa 10*";B2:B8)

=SOMASES(B2:B8;A2:A8;"Receita Venda";C2:C8;"*casa 10*")

Olá, @elianesanjos. Se entendi corretamente, o que você quer fazer é possível com o uso do caractere curinga asterisco ( * ). Por exemplo, a fórmula abaixo irá somar os valores de B1:B10 que tenham "casa..." em A1:A10. =SOMASE(A1:A10;"casa*";B1:B10) obs. dependendo da busca, o cu...

Olá, @Pegorini.

Experimente:

Sub ExcluiDuplicadas()
Range("A1:A" & Cells(Rows.Count, 1).End(3).Row).RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

Olá, @fernandogaseo.

Veja se lhe ajuda.

=SEERRO(DESLOC(PLAN1!A$1;;SOMARPRODUTO((PLAN1!$A$2:$I$26=A2)*COL($A$1:$I$1))-1);"")

Experimente: Private Sub CommandButton1_Click() Dim r As Range Set r = [B:B].Find(CDate(TextBox1.Value)) If Not r Is Nothing Then r.Offset(, 1).Value = TextBox2.Value Else: Cells(Rows.Count, 2).End(3)(2).Resize(, 2).Value = Array(CDate(TextBox1.Value), TextBox2.Value) End If Unload Me End Sub

Olá, @Sullivan2021.

Sugestão: disponibilize um amostra do seu arquivo Excel (imagens não servem).

Agora tem como retornar o valor da coluna AC e AD , SETOR e PLANO FINANCEIRO gravando na linha do respectivo item procurado na coluna x? Porque o objetivo é preencher essas colunas Z e AA buscando nas outras. Se eu entendi corretamente o seu comentário acima, é exatamente isso que as fórmulas retor...