Na opinião do Instrutor fica da seguinte forma o código:
Passo 1: No editor de VBA escolha Inserir > Módulo
Passo 2: Clique no nome do módulo e crie um nome como “MsgVagaLivre”
Passo 3: Dentro do módulo escreva Function fnLista_VagaLivre (pIntervalo as Range) As Variant
Passo 4: na próxima linha: For contacarros = 1 To pIntervalo.count
Passo 5: na próxima linha: IF pIntervalo.Cells(contacarros, 1) = “VAGA LIVRE” Then
Passo 6: na próxima linha: MsgBox pIntervalo(contacarros, 1).Row
Passo 7: na próxima linha: End IF
Passo 8: na próxima linha: Next (e confira se na última linha contém o End Function)
Passo 9: Para Testar, na coluna B do Excel, digite =fnLista_VagaLivre(A1:A10) e confira os números das linhas que contêm as VAGAS LIVRES (3,5,7,9) do estacionamento.
Não entendi o passo 4 pelo uso do "To pIntervalo.count" e também não entendi o passo 6 o por quê de colocar . Row
