Ao invés do quantitativo de gêneros de filmes serem exibidos numa caixa de dialogo, eu poderia colocar numa celula?
Ao invés do quantitativo de gêneros de filmes serem exibidos numa caixa de dialogo, eu poderia colocar numa celula?
Oi Marcio, tudo bom?
Poderia sim, basta que no fim do seu laço de repetição, ao invés de exibir uma caixa de menssagem:
For Each genero in RangE(“H5:H8”)
If genero = info_genero then
Tot = tot + 1
Endif
Next
Msgbox “Total de Filmes de “ & info_genero & “ = “ & tot
Você insira o valor em alguma celular =)
Algo como:
Activeworkbook.Sheets("SuaPlanilha").Range("A1").value = “Total de Filmes de “ & info_genero & “ = “ & tot
Abraço.