sub quant_linhas()
dim linha as integer
range ("c6").select
do while activecell <>""
if activecell = "nacional" then
linha = linha + 1
end if
activecell.offset(1,0).select
loop
msgbox = "Total de vendas: " & linha
linha = ""
end sub
Oi Barbara tudo bem?
Seu código tinha alguns errinhos. Dá uma olhadinha:
Sub quant_linhas()
Dim linha As Integer
Range("c6").Select
Do While ActiveCell <> ""
If ActiveCell = "nacional" Then
linha = linha + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
MsgBox ("Total de vendas: " & linha)
End Sub
Qualquer dúvida é só falar.