Armazenar números digitados sempre em mesma célula, continuamente...

Question

Preciso armazenar dados digitados sempre em mesma célula, no mesmo local, após digitar o número: enter, del e digito novo número, assim sucessivamente.

planilha 1 escrevo em formulario.

planilha 2 armazeno.

planilha 3 obtenho dados estatísticos.

Penso que devo ter a função tempo para armazenar em células diferentes. Melhor se o armazenamento informasse também a hora de entrada em formato colunas. Número e hora. Não consegui.

Gostaria de um apoio se possível. Postei a horas atrás uma pergunta quanto ao uso de voz no Excel e Outlook e muito aprendi visualizando respostas. Muito bom esse trabalho, enriquece quem realmente busca, pesquisa e necessita soluções. 

Ex:                     Plan-1                                                Plan-2                                        Plan-3

                            C                                                       A                                             Relat.Estatístico

                      1    15   Considerar que "15" seja o

                                  5º número colocado e que

                                  tenha sido colocado após um

                                  enter/del sobre o nº 28.

                                                                               1     05

                                                                                      22

                                                                                    115

                                                                                      28

                                                                                      15

Answer 1

De uma forma resumida, vc poderia nomear duas células:

• célula matriz que tem o valor a ser copiado na Plan1
• célula copia que é o início da coluna que armazenará os dados

Na Plan1, vc deve inserir:

Private Sub Worksheet_Change(ByVal Target As Range) If Target = Range("matriz") Then CopiaCelulaMatriz End If End Sub Em um módulo, vc poderia inserir:

Sub CopiaCelulaMatriz() Dim Target As Range If Range("copia").Value = "" Then Set Target = Range("copia") Else Sheets("plan2").Activate 'Range("copia").Activate Range("copia").Select Selection.End(xlDown).Select Set Target = ActiveCell.Offset(1, 0) End If Target.Value = Range("matriz").Value Application.CutCopyMode = False Sheets("plan1").Activate Range("matriz").Select End Sub Isto copia tudo que vc modificar na célula matriz em Plan1 e coloca na coluna da célula copia em Plan2.

Testei por aqui e funcionou.

Answer 2

LuizVS,

Você respondeu que é possível.

Gostaria de saber como para colocar em prática e resolver meu problema.

Uso a muito tempo o Excel e não uso macros, não domino macros.

Se possível passe a macro que me permitirá fazer o trabalho.

Att.

CarlosRGSul

Answer 3

Isto só é possível com macros. Uma macro que perceba a alteração no valor da célula digitada e armazene o valor em outra planilha. Vc precisa de uma macro coletora de dados.