Ajuda com formula no Excel

[ekalil]

Consegui fazer uma gambiarra exibindo as formulas no excel, copiando e colando e dando find no word, ele mostra qts vezes aparece no total, ai posso colocar esse numero manualmente.

Pesquisei aqui e acho que o único jeito mesmo seria por vba para o que eu queria, mas daria muito trabalho para pouca coisa tb.

Ty maisev!

Nice. Esse é o espírito.

[Cleber Trombini]

Não me segurei e fiz a Macro. Coisa de Nerd mesmo.. PQP!

Tomara que sirva. Abraços.

Option Explicit
Option Compare Text


Function ContaCelulas(strCelula As String)
Dim Cel As Range, Plage As Range
Dim iCont As Integer
Dim Mot As String
    Set Plage = Range("C1:C4") 'a ser adaptado ao trecho a percorrer.
    Mot = strCelula 'adaptar à palavra a ser buscada e excluída
    'Não é necessário se o trecho for pequeno
    Application.ScreenUpdating = False
    For Each Cel In Plage
        If Cel.Formula Like "*" & Mot & "*" Then
            iCont = iCont + 1
            
        End If
    Next Cel
    Application.ScreenUpdating = True
    ContaCelulas = iCont
End Function

GG

[Cleber Trombini]

Não me segurei e fiz a Macro. Coisa de Nerd mesmo.. PQP!

Tomara que sirva. Abraços.

Option Explicit
Option Compare Text


Function ContaCelulas(strCelula As String)
Dim Cel As Range, Plage As Range
Dim iCont As Integer
Dim Mot As String
    Set Plage = Range("C1:C4") 'a ser adaptado ao trecho a percorrer.
    Mot = strCelula 'adaptar à palavra a ser buscada e excluída
    'Não é necessário se o trecho for pequeno
    Application.ScreenUpdating = False
    For Each Cel In Plage
        If Cel.Formula Like "*" & Mot & "*" Then
            iCont = iCont + 1
            
        End If
    Next Cel
    Application.ScreenUpdating = True
    ContaCelulas = iCont
End Function

GG

Funcionou @Victormm e @ekalil

GG

[Victormm]

Não consegui ver ainda, depois vou tentar ver melhor pq vou donkar para fazer funcionar, lol.

Mas vlw, assim que eu testar e der alguma coisa aviso.
Abraço!

[Cleber Trombini]

Não consegui ver ainda, depois vou tentar ver melhor pq vou donkar para fazer funcionar, lol.

Mas vlw, assim que eu testar e der alguma coisa aviso.
Abraço!

Man. Vc altera o range de células que vai conter os cálculos na linha abaixo:

Set Plage = Range("C1:C4")

Depois vc vai numa celula e chama a função:

=ContaCelulas("A1")

Neste vídeo vc acha como usar o editor do VBA. Vai no minuto 1:50 que já tem o que vc precisa.



GG

[Slodera]

Porra aqui ng reclama de ajudar? Só os designers são haters mesmo.

[Victormm]

Não consegui ver ainda, depois vou tentar ver melhor pq vou donkar para fazer funcionar, lol.

Mas vlw, assim que eu testar e der alguma coisa aviso.
Abraço!

Man. Vc altera o range de células que vai conter os cálculos na linha abaixo:

Set Plage = Range("C1:C4")

Depois vc vai numa celula e chama a função:

=ContaCelulas("A1")

Neste vídeo vc acha como usar o editor do VBA. Vai no minuto 1:50 que já tem o que vc precisa.



GG

Quase funcionou Trombini, o problema é que ele ta contando apenas uma vez.
Ex:
Em uma celula esta assim = A1+A1+A2
Ele não conta que tem 2x A1, conta apenas uma vez. Preciso que ele conte quantas vezes tem "A1" e não quantas celulas contem A1. Se for complicado ou já não tiver mais saco para mexer nisso, não tem problemas, hehe.

Vou dar rep+ para você pela ajuda!
Ty!

[thiago_vaz]

Lol... pensei em fazer a macro, mas fiquei com preguiça de fazer sem saber o objetivo pq tenho quase certeza que o op tá donkando na montagem da planilha, hehehehhe... mas se precisar de ajuda p jogar isso aí no vba e rodar avisa aí q é ez.