Sub UsingVars()
Dim total As Long
total = cnReportData.Range("A2")
Debug.Print total
End Sub
Você está vendo a versão anterior da nova experiência da Alura que estamos preparando para você. Em breve, ela ganha uma identidade visual novinha totalmente pensada em potencializar seus estudos!
Sub UsingVars()
Dim total As Long
total = cnReportData.Range("A2")
Debug.Print total
End Sub
Oi Guilherme, tudo bom?
Não sou especialista em VBA mas o error 424 costuma estar relacionado a problemas de atribuição de valores. Verifica o que tem na celula A2 e se é realmente um valor do tipo Long.
Guilheme seu problema está com o nome da planilha "cnReportData", verifique se existe uma planilha (sheet, aba) com este nome.
Eu fiz a seguinte alteração:
total = Planilha1.Range("A2").Value
Uma outra dica, é usar "value" para dizer que o deseja é pegar o valor que está na célula.