Primeiro, inclua uma nova guia chamada hystory para manter os resultados. Em seguida, insira a macro de eventos a seguir na área de código da planilha da sua planilha original:
Private Sub Worksheet_Calculate()
Dim wf As WorksheetFunction
Set wf = Application.WorksheetFunction
Dim hys As Worksheet, N As Long
Set hys = Sheets("hystory")
N = hys.Cells(Rows.Count, "A").End(xlUp).Row + 1
N = wf.Min(N, Rows.Count)
Application.EnableEvents = False
hys.Cells(N, "A").Value = [A1]
Application.EnableEvents = True
End Sub
Por ser um código de planilha, é muito fácil de instalar e usar automaticamente:
- clique com o botão direito do mouse no nome da guia próximo à parte inferior da janela do Excel
- selecione Exibir código - isso abre uma janela do VBE
- cole o material e feche a janela do VBE
Se você tiver alguma dúvida, tente primeiro em uma planilha de teste.
Se você salvar a pasta de trabalho, a macro será salva com ela. Se você estiver usando uma versão do Excel posterior a 2003, deverá salvar o arquivo como .xlsm em vez de .xlsx
Para remover a macro:
- abrir as janelas do VBE como acima
- limpe o código
- feche a janela do VBE
Para saber mais sobre macros em geral, consulte:
e
Para saber mais sobre macros de eventos (código da planilha), consulte:
As macros devem estar ativadas para que isso funcione !