Entrar Ainda não tem acesso?
Solucionado (ver solução)
Solucionado
(ver solução)
5
respostas

Contagem de palavras até chegar a um campo vazio

Referente ao curso VBA: Automatizando tarefas no Excel

por Thiago Araújo Matos
| 40.4k xp | 6 posts

Gostaria de saber quantas vezes uma palavra aparece em uma coluna até que seja encontrado um campo vazio, fiz o seguinte código e não funcionou. Acredito que precise de alguma pequena correção.

Sub Contagem()       


        Dim contagem As Integer   
    contagem = 0   
    Sheets(1).Select   
    Range("B1").Select   
    Do Until ActiveCell = ""   
        If ActiveCell = "*" & palavra & "*" Then

   contagem = contagem + 1

   End If

            ActiveCell.Offset(1, 0).Select
    Loop
        Range("a1").Value = contagem
End Sub
5 respostas
por André Victor Ruiz Pedroso
| 2101.7k xp | 3838 posts
Moderador Analista Pleno

Oi Thiago tudo bem?

Faça assim:

Sub contagem()


Dim contagem As Integer
contagem = 0
Sheets(1).Select
Range("B1").Select
Do Until ActiveCell = ""

    contagem = contagem + 1

    ActiveCell.Offset(1,0).Select
Loop
Range("a1").Value = contagem
End Sub

Você não precisava daquele if. Porque já estava validando no do until.

Espero ter ajudado!!!

por Thiago Araújo Matos
| 40.4k xp | 6 posts

Oi André, tudo bem ? Agradeço a ajuda, acredito não ter sido muito claro na com relação a minha dúvida. Quero saber quantas vezes uma palavra específica aparece em um range. Sendo que essa palavra está dentro de um texto. Obrigado.

por André Victor Ruiz Pedroso
| 2101.7k xp | 3838 posts
Moderador Analista Pleno

Tudo ótimo. Então eu acho que é isso que precisa.

Sub contagem()


Dim contagem As Integer
contagem = 0
Sheets(1).Select
meuRange = Range("B1:C4")
minhaPalavra = "teste"
For Each celula In meuRange

    vetor = Split(celula, " ")
    For Each palavra In vetor

        If palavra = minhaPalavra Then


            contagem = contagem + 1

        End If

    Next




Next
Range("a1").Value = contagem
End Sub
por Thiago Araújo Matos
| 40.4k xp | 6 posts

Acabo de testar aqui, deu certo. MUITO obrigado pela ajuda. =D

solução!
por André Victor Ruiz Pedroso
| 2101.7k xp | 3838 posts
Moderador Analista Pleno

Disponha e bons estudos!!!