none
Como somar uma celula com palavras RRS feed

  • Pergunta

  • Bom dia! Estou fazendo uma planilha de cadastro de empresas, onde tem três tipos de tributação são elas: lucro Real, Lucro Presumido e simples. Nessa minha planilha na coluna D1 tem a descrição titulo Tributação, e nas linhas a baixo será preenchida com uma das  três descrição como segue abaixo: Gostaria de somar nessa planilha o total de empresas já cadastrada, ou seja quantas palavras LUCRO REAL, LUCRO PRESUMIDO, SIMPLES tem na coluna nesse exemplo tem 3. Como faço essa soma no VBA?

    LUCRO REAL             (1)

    LUCRO PRESUMIDO (1)

    SIMPLES                   (1)

    TOTAL DE EMPRESAS (3)

                                                                            


    segunda-feira, 5 de dezembro de 2016 13:22

Todas as Respostas

  • Se baseie no código:

    Sub Contar_Empresas()
    
    MsgBox "SIMPLES: " & WorksheetFunction.CountIf(Range("D:D"), "SIMPLES")
    MsgBox "LUCRO PRESUMIDO: " & WorksheetFunction.CountIf(Range("D:D"), "LUCRO PRESUMIDO")
    MsgBox "LUCRO REAL: " & WorksheetFunction.CountIf(Range("D:D"), "LUCRO REAL")
    
    End Sub


    Rafael Kamimura - http://excelmaniacos.com

    segunda-feira, 5 de dezembro de 2016 20:00