Página 1 de 1

Registro de datas em colunas laterais

Enviado: 14 Mar 2019 às 13:01
por JairJunior2
Boa tarde!

Preciso de um código Vba que quando eu lançar nas colunas "R$ compra", as colunas "data" preencham automáticas a data de "hoje". EX: se eu lançar em "B3" o valor de "R$10,00", "C3" preenche "14/03/19".

Re: Registro de datas em colunas laterais

Enviado: 15 Mar 2019 às 10:28
por osvaldomp
Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Count > 1 Then Exit Sub
 If Cells(2, Target.Column) = "R$ Compra" Then
  If Target.Value <> "" Then
   Target.Offset(, 1).Value = Date
  Else: Target.Offset(, 1).Value = ""
  End If
 End If
End Sub

Re: Registro de datas em colunas laterais

Enviado: 15 Mar 2019 às 10:57
por JairJunior2
Deu certo, obrigado Osvaldo!