Este fórum está sendo desativado

[gersoncauper]

Por Gentileza, gostaria de uma macro, que pegasse o resultado do campo nomeado "campo_resultado" e coloca-se o resultado na celula D1.
pois gostaria que nao fosse feito chamando o campo nomeado como foi feito na celula C9. No entanto, queria que a macro chama-se o campo nomeado e desse o resultado sem usar formulas. é possivel?

[gfranco]

Bom dia.

Código: Selecionar todos

Sub main()

Sheets("Sheet1").Range("d1").Value = Evaluate(ThisWorkbook.Names("campo_resultado").RefersTo)
End Sub

[gfranco]

Eu, particularmente, prefiro essa outra construção para retornar esse resultado:

Código: Selecionar todos

Sub main2()

Sheets("Sheet1").Range("d1").Value = Sheets("Sheet1").Cells(3, Sheets("Sheet1").Columns.Count).End(1).Column - 1


End Sub

*Levando-se em conta que estou referenciando a aba pelo nome apenas à titulo ilustrativo pois geralmente trabalho com os codenames das planilhas nos códigos que escrevo.