Sub exercicio()
Dim count As Integer
Range(“c6”).Select
Do While ActiveCell <> “”
If ActiveCell = “Nacional” Then
count = count + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
MsgBox ("Quantidade de planos do tipo nacional vendido: " & count)
End SubOlá, neste exercício meu código ficou assim mas sempre que ele chega na terceira linha, a linha de "Range("c6")... abre uma caixa de erro com a seguinte mensagem:
Erro em tempo de execução '1004':
O método 'range' do objeto '_Global' falhou.
Alguem saberia dizer o que está acontecendo? Obrigado.
