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

Copiar / colar especial atrelado a uma condição

Posts recomendados

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 

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
Este tópico está parado há muito tempo. Certifique-se que a sua mensagem tem a ver com o tema sendo discutido. Obrigado.

Junte-se à conversa

Você pode postar agora e cadastrar-se depois. Se você tem uma conta, faça o login para postar.

Visitante
Responder

×   Você colou conteúdo com formatação.   Restore formatting

  Só é possível ter até 75 emoticons.

×   O link foi automaticamente convertido para mostrar o conteúdo.   Clique aqui para mostrá-lo como link comum

×   Seu texto anterior foi restaurado.   Limpar o editor

×   You cannot paste images directly. Upload or insert images from URL.






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

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!