Notifications

Clear all

Macro copiar valor da célula e colar em outra.

2024 - VBA & Macros

Post Recente por Fernando Fernandes 10 anos atrás

4 Posts

2 Usuários

0 Reactions

921 Visualizações

RSS

Lorenzon

(@lorenzon)

Posts: 355

Reputable Member

Topic starter

Pessoal,

Preciso que ajudem-me a desenvolver um código que, através de uma condição, copiei um valor de determinada célula e coluna em outra.

Vejam a planilha anexada.

CONTROLE DE VENDA.xlsx

Postado : 23/10/2014 6:23 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

Seria isso?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 5 Then Exit Sub
    If Target.Value = "2 - A PRAZO 30 DIAS" Then Target.Offset(, 1) = Date
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 23/10/2014 11:18 am

Lorenzon

(@lorenzon)

Posts: 355

Reputable Member

Topic starter

Alexandre,

Não era bem assim, mas, a partir do seu código e as minhas alterações, obtive sucesso!

Obrigado!

Veja alterações:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub
If Target.Column <> 5 Then Exit Sub

If Target.Value = "1 - A VISTA" Then Target.Offset(, 3) = Target.Offset(, 1)

End Sub

Postado : 23/10/2014 12:23 pm