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.
Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.
Voltar para a pesquisa avançada
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.
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...
We have created lots of YouTube videos just so you can achieve [...]
The best flat phpBB theme around. Period. Fine craftmanship and [...]
All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]
this should be fantastic. but what about links,images, bbcodes etc etc? [...]
Estamos migrando para uma comunidade no Discord