Como somar uma celula com palavras

Question

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)

                                                                        

Answer 1

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