Entrar Ainda não tem acesso?
1
resposta

exercício for - next aula 5

Referente ao curso VBA: Automatizando tarefas no Excel, no capítulo Laço While e atividade Utilizando o Laço for... Next

por Estudante
| 135.9k xp | 15 posts
Sub Tot_plano()
    Dim totPlano as integer
    Dim linha as integer
    For linha=6 to 36
        If cells(linha,3) = UCase(“Nacional”) then 
            totPlano = totPlano + 1 
        Endif 
    Next    
    Msgbox “Total de vendas para o plano Nacional:  “ & totPlano, vbinformation, "Resultado"
End Sub
1 resposta
por André Victor Ruiz Pedroso
| 2101.7k xp | 3838 posts
Moderador Analista Pleno

Oi Barbara tudo bem?

Tá quase correto só tinha uns errinhos de aspas.

Dá uma olhadinha:

Sub Tot_plano()
    Dim totPlano As Integer
    Dim linha As Integer
    For linha = 6 To 36
        If Cells(linha, 3) = UCase("Nacional") Then
            totPlano = totPlano + 1
        End If
    Next
    MsgBox "Total de vendas para o plano Nacional:  " & totPlano, vbInformation, "Resultado"
End Sub

Continue assim e bons estudos!!!