Este fórum está sendo desativado

[Paulo6]

Boa tarde,
Pedia o auxilio para uma fórmula sem usar macro se possível.
Na planilha 1 existir 2 células: 1 com a linha a ser consultada e a 2ª para se poder inserir um texto.
Após definir qual a linha da planilha 2 a ser usada, ao inserir o texto, este mesmo texto ser inserido na segunda planilha, na coluna do comentário.
Posteriormente se mudar o número da 1ª célula poderemos inserir o texto noutra linha no campo do comentário ou ter acesso ao que está inserido nesse campo anteriormente.
Como posso fazer isso?
Do um exemplo:
Na planilha 1 na célula A2 será para inserir um número e na célula B2 Inserir o texto. Na planilha 2 na coluna A temos as linhas numeradas de 1 até.... e na coluna B temos o espaço para o comentário (texto). Sempre que definimos um número na célula A2 na planilha 1 e depois inserimos o texto na célula B2 ele vai inserir o texto na coluna B da 2ªplanilha na linha definida na célula A2 da planilha 1. Ou poderemos consultar o texto inserido.

Grato.
Um abraço

[Estevaoba]

Em B2 da planilha 2:

Código: Selecionar todos

=PROCV(A2;Planilha1!$A$2:$B$100;2;0)

Copie para baixo.

Good luck!

[Paulo6]

Boa tarde,
Antes de mais muito grato pela ajuda.
Na planilha 1 as 2 células são estáticas. Na planilha 2 é que existem várias linhas. Penso que a fórmula desse forma seria se na planilha 1 tivesse várias linhas.

[osvaldomp]

Experimente uma cópia da fórmula abaixo em B1 da Planilha2 e arraste para baixo.

Código: Selecionar todos

=SE(A1=Planilha1!A$2;Planilha1!B$2;"")

[Paulo6]

Excelente ficou a funcionar 50%. Ou seja escreve na linha certa o texto. Mas quando mudo o número na primeira planilha e coloco o texto na 2ª célula, apaga o outro texto inserido na linha anterior ( na 2ª planilha). Existe solução para não apagar o que foi inserido anteriormente?

[osvaldomp]

Sim, é assim que funciona por fórmulas, como você pediu.
Agora, se você quiser alterar o número e ou o texto na Planilha1 e manter o resultado anterior na Planilha2 então a solução deverá ser via macro.

[Paulo6]

Será que me poderiam auxiliar a programar a macro para que funcione?
Para ser mais preciso na planilha 1 a célula para inserir a linha é a célula c6 e para escrever o texto é a célula c15 e na planilha 2 as linhas estão numeradas a partir da A4 e a célula para inserir o texto é na CA4.

[osvaldomp]

Instale uma cópia do código abaixo no módulo da Planilha1 (para acessar o módulo clique com o direito na guia daquela planilha e escolha "Exibir Código")

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim c As Range
  If Target.Address <> "$C$6" And Target.Address <> "$C$15" Then Exit Sub
  Set c = Sheets("Planilha2").[A:A].Find([C6], lookat:=xlWhole)
  c.Offset(, 78).Value = [C15]
End Sub

obs. "e a célula para inserir o texto é na CA4." ~~~> se você quis dizer C4 e não CA4, então substitua no código o número 78 pelo número 2

[Paulo6]

Funcionou na perfeição!!!!
Grato!!!!