Boa noite!!

Poderia ser por VBA?

Sub teste()

Worksheets("Plan1").Range("a1").Copy
Worksheets("Plan1").Cells(Rows.Count, "E").End(xlUp).Offset(1, 0).PasteSpecial

End Sub

At++

Boa noite!!
Caso queira automático tente...
Abra o Editor, use as teclas Alt + F11 do lado esquerdo dê 2 click's em Plan1 e cole o código

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("A1")) Is Nothing Then
Worksheets("Plan1").Range("a1").Copy
Worksheets("Plan1").Cells(Rows.Count, "E").End(xlUp).Offset(1, 0).PasteSpecial
        Range("a1").Select
 End If
End Sub

Pode ser por VBA sim vou tentar essas ai e ja te retorno, porem gostaria de aprender se tivesse em formula. Não teria nenhum jeito por Formulas?

Boa noite!!

Se houver não me lembro, mas posso pesquisar para ver se tem, acho pouco provável, quem sabe alguém aqui do fórum, disponibilize tal informação.

Se as dicas foram uteis não se esqueça da mãozinha, at+++

Att

Alexandre, a VBA funcionou mais gostaria de saber como vc fez. para que eu faça em outra celulas.

Boa noite!!

Substitua a parte Range("A1") [Range("aqui dentro escolha a célula")].

e aqui..Substitua a parte Worksheets("Plan1").Cells(Rows.Count, "E").End(xlUp).Offset(1, 0).PasteSpecial.
Por Worksheets("Plan1").Cells(Rows.Count, "aqui sua coluna").End(xlUp).Offset(1, 0).PasteSpecial.

Att

Boa noite cirogut

Posso tentar fazer com fórmulas, mas para isso solicito que vc anexe um exemplo da tua planilha demonstrando como vc quer o resultado.

Abraço.

Patropi se conseguir é de grande ajuda.

Sessão: Pegar informação da celula A1 da guia "FOLHAS AUTO", pegar o numero que esta estre parenteses
FABRICA: informação da H8
RELATÓRIO: informação H12
LINHA: Informação H17
MATERIAL: pegar informação na A1 entre a palavra sessao até antes de chegar no (
PARES:informação na J46

Queria esse registro na guia "Produção"

Boa noite!!

Substitua a parte Range("A1") [Range("aqui dentro escolha a célula")].

e aqui..Substitua a parte Worksheets("Plan1").Cells(Rows.Count, "E").End(xlUp).Offset(1, 0).PasteSpecial.
Por Worksheets("Plan1").Cells(Rows.Count, "aqui sua coluna").End(xlUp).Offset(1, 0).PasteSpecial.

Att

Caso utilize outra guia para puxar informação aonde eu altero? modifico o nome "plan1"

Boa noite!!

Altere
Worksheets("Plan1").

Para
Worksheets("Plan2")

ou

Worksheets("Plan3") e por ai vai

alexandrevba, aquela vba que vc passou eu só consegui usar quando eu abro um documento novo. Tentei naquela planilha que passei para o Patropi e consegui um retorno.

Qual seria o erro?

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("J46")) Is Nothing Then
Worksheets("Plan2").Range("J46").Copy
Worksheets("Plan4").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial
        Range("J46").Select
End If
End Sub

Bom dia!!

Imagina que tem a Guia(Plan1, Plan2, Plan3).

se quer a ação do código (Private Sub Worksheet_Change(ByVal Target As Range)), na plan1, dentro do Editor, esse código ficará n plan1.

se quer a ação do código (Private Sub Worksheet_Change(ByVal Target As Range)), na plan2, dentro do Editor, esse código ficará n plan2.

Tome cuidado com os nomes das Worksheet's no código.
Att

alexandrevba, ve se vc consegui

tenta mudar o valor da G1 que conseguentemente muda o valor da A1. Porem não adiciona o valor da coluna E

se conseguir ja vou dar um grande passo.

Boa tarde!!
me explica exatamente o que quer...

Quer digitar em G1 ai A1 vai ficar =G1 depois abastecer Coluna E?

Att