Copiar / colar especial atrelado a uma condição

[André Camargo Monteiro]

Pessoal, boa tarde, estou precisando de uma ajuda, já que sou um novato:

 

Estou trabalhando em uma planilha de controle de importação e há duas colunas chaves para um dos cálculos envolvidos: a coluna F que é a previsão de entrega do material na fábrica, que vai sendo alterada em função do preenchimento de outras células, e a coluna AR, que contém a última data possível de um processo de importação: a entrega efetiva na fábrica. Como cada linha se refere a um processo, é necessário que uma determinada célula da coluna F seja copiada e colada como valor (colar especial) assim que a célula correspondente na coluna AR seja preenchida. O objetivo é "congelar" a última data impedindo que ela seja atualizada em função de dados externos que são semanalmente alterados.

 

Alguém pode me ajudar com essa questão?

 

Grato desde já!

[CasaDoHardware]

Como você nao disponibilizou um exemplo fica difícil ajudar corretamente, no entanto pode ajustar esse codigo:

 

Private Sub Worksheet_Change(ByVal Target As Range)

'Se alterar a planilha fora da coluna A numero 1

'O codigo nao executa

If Target.Column <> 1 Then Exit Sub

'Aterando a coluna A a data do sistema é inserida na coluna E

If Range("A" & Target.Row).Value <> "" Then
   Range("E" & Target.Row).Value = Date 
End If

End Sub

 

E so abrir o editor VBA na planilha desejada e colar o codigo

 

Se nao conseguir ajustar disponibilize o arquivo pelo menos indicando quais as celulas envolvidas 

[André Camargo Monteiro]

Obrigado pelo retorno! Estou anexando uma amostra de imagem da planilha e questão. Na coluna AR são inseridas as datas de chegada na fábrica, ou seja, o encerramento oficial do processo. Na coluna F há uma fórmula que retorna - em função do andamento de cada processo - uma data de previsão de entrega. O que é necessário, nesse caso, é que quando a coluna AR for preenchida, a data presente na coluna F seja "congelada", ou seja, copiada e colada como valor fixo (não fórmula). Lembrando que cada linha é um processo diferente e, portanto, independente um do outro.

 

Agradeço novamente pela ajuda!

André

[Basole]

Bom neste exemplo se a coluna AR um valor, for alterado (manualmente), o conteudo (valor) da respectiva linha da coluna F será inserida como valor, automaticamente.

 

* Click com o botão direito sobre a Aba desejada, e selecione "Exibir Código" (vide img). 

Em seguida cole o codigo Exemplo (abaixo):

 

Exemplo: 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lr As Long
If Target.Count > 1 Then Exit Sub
Lr = ActiveSheet.Cells(Rows.Count, "AR").End(xlUp).Row + 1

If Not Intersect(Target, Range("AR2:AR" & Lr)) Is Nothing Then
With Target.Offset(, -38)
.value = .value
End With
End If

End Sub

 

[André Camargo Monteiro]

Cara, fantástico....funcionou perfeitamente!

 

Muitíssimo obrigado! 

 

Abs,

André

[CasaDoHardware]

So para efeito didatico, basta trocar o E por F no codigo que postei que vai funcionar.