Ir ao conteúdo
  • Cadastre-se
André Camargo Monteiro

Copiar / colar especial atrelado a uma condição

Recommended Posts

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á!

Compartilhar este post


Link para o post
Compartilhar em outros sites

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 

Editado por CasaDoHardware

Compartilhar este post


Link para o post
Compartilhar em outros sites

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é

Amostra - Follow-up2.png

Compartilhar este post


Link para o post
Compartilhar em outros sites

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):

fig2.JPG

 

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

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×