Na coleção de nomes, crie dois nomes:
Nome: Linha
Refere-se à:
=LIN(INDIRETO(EnderecoCelulaAtiva))
Nome: Coluna
Refere-se à:
=COL(INDIRETO(EnderecoCelulaAtiva))
Em N4, coloque a fórmula:
=Linha-2&"x"&Coluna-2
OU, se precisar MESMO que seja com a macro, coloque no evento change, logo abaixo do seu código:
ActiveSheet.Range("N4").Formula="=Linha-2&"x"&Coluna-2"
Neste caso, ainda assim crie os nomes acima !
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 09/03/2017 2:02 pm