Como eu faria para aprimorar o código abaixo, no que se refere a linha "For Each genero in Range(“H5:H8”)" ?
Eu gostaria que que a macro identificasse a ultima linha dessa range.
Sub Exercicio2()
Dim info_genero as string Dim genero as object Dim tot as integer Info_genero = inputbox(“Digite o tipo de filme que deseja pesquisar”) 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 End Sub
