Acrescentar mais um comando

2024 - VBA & Macros

Post Recente por kayomaster 7 anos atrás

3 Posts

2 Usuários

0 Reactions

773 Visualizações

RSS

kayomaster

(@kayomaster)

Posts: 90

Trusted Member

Topic starter

Gente eu tenho a seguinte linguagem

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 4 Then
  Target.Offset(0, 4).Value = Target.Offset(0, 4).Value + Target.Value
ElseIf Target.Column = 3 Then
Target.Offset(0, 4).Value = Date
  Range("G1").Value = Date
End If
End Sub

Eu preciso so de ACRESCENTAR MAIS UM COMANDO que quando eu inserir valores na coluna D ele insira a data da alteracao na célula P1. Igual como ele ja faz na G1 sendo que com a coluna C. Preciso só que acrescente mais esse comando. Alguem pode me ajudar?

Postado : 29/01/2018 2:47 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

Em vez de "linguagem", diga "macro" ou "código".
Em vez de "fórmula", diga "macro" ou "código".
Não use a palavra "ajuda" no título do tópico.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 4 Then
Range("P1").Value = Date

Target.Offset(0, 4).Value = Target.Offset(0, 4).Value + Target.Value
ElseIf Target.Column = 3 Then
Target.Offset(0, 4).Value = Date
Range("G1").Value = Date
End If
End Sub

Postado : 29/01/2018 3:06 pm